Microsoft MVP성태의 닷넷 이야기
글쓴 사람
홈페이지
첨부 파일
 

PowerShell ISE의 스크립트를 복사 후 PPT/Word에 붙여 넣으면 한글이 깨지는 문제

아는 분이, PowerShell ISE 도구에서 스크립트 내용을 PowerPoint로 복사하면 깨진다고... 하는군요. ^^ 직접 해보니... 다음과 같이, 아주 잘~~~ 깨집니다.

ise_paste_into_ppt_1.png

혹시 이것을 해결할 수 있는 방법이 없을까요? 마이크로소프트의 경우, "확장(Extension)" 구조를 제공하기로 유명한데 실제로 PowerShell ISE에도 "Add-ons" 메뉴가 있습니다. 그렇다면 아마도 PowerShell ISE에 대한 객체 모델이 있을 것이고 그것을 이용해 사용자가 선택한 텍스트를 "한글이 깨지기 이전의 상태"로 구한다면... 하는 상상을 할 수 있게 만듭니다. ^^

다행히 이와 관련해서 검색해 보면 다음의 코드를 발견할 수 있습니다.

Colorized capture of console screen in HTML and RTF.
; https://devblogs.microsoft.com/powershell/how-to-copy-colorized-script-from-powershell-ise/

Copy-Script.zip
; https://msdnshared.blob.core.windows.net/media/MSDNBlogsFS/prod.evol.blogs.msdn.com/CommunityServer.Components.PostAttachments/00/09/31/20/78/Copy-Script.zip

코드에 이미 대부분의 내용이 구현되어 있는데요,

##############################################################################################################
# Copy-Script.ps1
#
# The script entire contents of the currently selected editor window to system clipboard.
# The copied data can be pasted into any application that supports pasting in UnicodeText, RTF or HTML format.
# Text pasted in RTF or HTML format will be colorized.
#


# Create RTF block from text using named console colors.
#
function Append-RtfBlock ($block, $tokenColor)
{
    $colorIndex = $rtfColorMap.$tokenColor
    $block = $block.Replace('\','\\').Replace("`r`n","\cf1\par`r`n").Replace("`t",'\tab').Replace('{','\{').Replace('}','\}')
    $null = $rtfBuilder.Append("\cf$colorIndex $block")
}

# Generate an HTML span and append it to HTML string builder
#
function Append-HtmlSpan ($block, $tokenColor)
{
  if ($tokenColor -eq 'NewLine')
  {
    $null = $htmlBuilder.Append("<br>")
  }
  else
  {
    $block = $block.Replace('&','&amp;').Replace('>','&gt;').Replace('<','&lt;')
    if (-not $block.Trim())
    {
        $block = $block.Replace(' ', '&nbsp;')
    }
    $htmlColor = $psise.Options.TokenColors[$tokenColor].ToString().Replace('#FF', '#')
    $null = $htmlBuilder.Append("<span style='color:$htmlColor'>$block</span>")
  }
}

function Copy-Script
{
    if (-not $psise.CurrentOpenedFile)
    {
        Write-Error 'No script is available for copying.'
        return
    }
    
    $text = $psise.CurrentOpenedFile.Editor.Text

    trap { break }

    # Do syntax parsing.
    $errors = $null
    $tokens = [system.management.automation.psparser]::Tokenize($Text, [ref] $errors)

    # Set the desired font and font size
    $fontName = 'Lucida Console'
    $fontSize = 10

    # Initialize HTML builder.
    $htmlBuilder = new-object system.text.stringbuilder
    $null = $htmlBuilder.AppendLine("<p style='MARGIN: 0in 10pt 0in;font-family:$fontname;font-size:$fontSize`pt'>")

    # Initialize RTF builder.
    $rtfBuilder = new-object system.text.stringbuilder
    # Append RTF header
    $null = $rtfBuilder.Append("{\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 $fontName;}}")
    $null = $rtfBuilder.Append("`r`n")
    # Append RTF color table which will contain all Powershell console colors.
    $null = $rtfBuilder.Append("{\colortbl ;")
    # Generate RTF color definitions for each token type.
    $rtfColorIndex = 1
    $rtfColors = @{}
    $rtfColorMap = @{}
    [Enum]::GetNames([System.Management.Automation.PSTokenType]) | % {
        $tokenColor = $psise.Options.TokenColors[$_];
        $rtfColor = "\red$($tokenColor.R)\green$($tokenColor.G)\blue$($tokenColor.B);"
        if ($rtfColors.Keys -notcontains $rtfColor)
        {
            $rtfColors.$rtfColor = $rtfColorIndex
            $null = $rtfBuilder.Append($rtfColor)
            $rtfColorMap.$_ = $rtfColorIndex
            $rtfColorIndex ++
        }
        else
        {
            $rtfColorMap.$_ = $rtfColors.$rtfColor
        }
    }
    $null = $rtfBuilder.Append('}')
    $null = $rtfBuilder.Append("`r`n")
    # Append RTF document settings.
    $null = $rtfBuilder.Append('\viewkind4\uc1\pard\f0\fs20 ')
    
    $position = 0
    # Iterate over the tokens and set the colors appropriately.
    foreach ($token in $tokens)
    {
        if ($position -lt $token.Start)
        {
            $block = $text.Substring($position, ($token.Start - $position))
            $tokenColor = 'Unknown'
            Append-RtfBlock $block $tokenColor
            Append-HtmlSpan $block $tokenColor
        }
        
        $block = $text.Substring($token.Start, $token.Length)
        $tokenColor = $token.Type.ToString()
        Append-RtfBlock $block $tokenColor
        Append-HtmlSpan $block $tokenColor
        
        $position = $token.Start + $token.Length
    }

    # Append HTML ending tag.
    $null = $htmlBuilder.Append("</p>")

    # Append RTF ending brace.
    $null = $rtfBuilder.Append('}')

    # Copy console screen buffer contents to clipboard in three formats - text, HTML and RTF.
    #
    $dataObject = New-Object Windows.DataObject
    $dataObject.SetText([string]$text, [Windows.TextDataFormat]"UnicodeText")
    $rtf = $rtfBuilder.ToString()
    $dataObject.SetText([string]$rtf, [Windows.TextDataFormat]"Rtf")
    $html = $htmlBuilder.ToString()
    $dataObject.SetText([string]$html, [Windows.TextDataFormat]"Html")

    [Windows.Clipboard]::SetDataObject($dataObject, $true)
    'The script has been copied to clipboard.'
}

$psise.CustomMenu.Submenus.Add("Copy Script", {Copy-Script}, $null)

위의 스크립트를 보면, ISE로부터 현재 열려있는 파일의 텍스트를 가져와서,

$text = $psise.CurrentFile.Editor.Text

Token 분해를 한 다음,

$tokens = [system.management.automation.psparser]::Tokenize($Text, [ref] $errors)

이를 바탕으로 RTF(및 HTML) 구문으로 새롭게 구성한 후 클립보드에 복사합니다.

$dataObject = New-Object Windows.DataObject
$dataObject.SetText([string]$text, [Windows.TextDataFormat]"UnicodeText")
$rtf = $rtfBuilder.ToString()
$dataObject.SetText([string]$rtf, [Windows.TextDataFormat]"Rtf")
$html = $htmlBuilder.ToString()
$dataObject.SetText([string]$html, [Windows.TextDataFormat]"Html")

[Windows.Clipboard]::SetDataObject($dataObject, $true)

스크립트에서 한글이 사용된 부분까지의 RTF 텍스트를 출력해 보면 다음과 같이 나옵니다.

{\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Lucida Console;}}

{\colortbl ;\red0\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red138\green43\blue226;\red128\green0\blue128;\red139\green0\blue0;\red255\green69\blue0;\red0\green0\blue139;\red0\green191\blue255;\red0\green128\blue128;\red169\green169\blue169;\red0\green100\blue0;}

\viewkind4\uc1\pard\f0\fs20 \cf12 #테스트입니다.

보는 바와 같이 "#테스트입니다."라는 한글이 문장이 그대로 복사되고 있는데 바로 저 텍스트를 유니코드로 인코딩해서 처리하면 됩니다. 예를 들어, 다음과 같이 해주면 되는 것입니다.

{\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Lucida Console;}}

{\colortbl ;\red0\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red138\green43\blue226;\red128\green0\blue128;\red139\green0\blue0;\red255\green69\blue0;\red0\green0\blue139;\red0\green191\blue255;\red0\green128\blue128;\red169\green169\blue169;\red0\green100\blue0;}

\viewkind4\uc1\pard\f0\fs20 \cf12 #\u53580?\u49828?\u53944?\u51077?\u45768?\u45796?.

따라서 Append-RtfBlock 함수의 구현을 다음과 같이 확장해 주면,

function Append-RtfBlock ($block, $tokenColor)
{
    $colorIndex = $rtfColorMap.$tokenColor
    $block = $block.Replace('\','\\').Replace("`r`n","\cf1\par`r`n").Replace("`t",'\tab').Replace('{','\{').Replace('}','\}')

    $wordBuilder = new-object system.text.stringbuilder

    foreach ($ch in $block.ToCharArray())
    {
        $n = [int]$ch
        if ($n -ge 255) // 255를 넘는 글자는 무조건 유니코드 인코딩으로 변경해 RTF에 추가
        {
            $nText = $n.ToString()
            $null = $wordBuilder.Append("\u$($nText)?")
        }
        else
        {
            $null = $wordBuilder.Append($ch)
        }
    }

    $null = $rtfBuilder.Append("\cf$colorIndex $wordBuilder")
}

이제부터는 한글이 섞인 스크립트를 복사할 때 Ctrl+C를 누르지 말고 다음과 같이 ".\copy2word.ps1" 스크립트를 실행한 후 PowerPoint/Word에 복사하면 됩니다

ise_paste_into_ppt_2.png

(변경된 전체 소스 코드는 github에 올렸습니다.)




참고로, 원 소스 코드(Copy-Script.zip)에서는 HTML 포맷으로도 변환해 클립보드에 추가하는 내용이 있는데요, 이상하게 그 코드만 있으면 (워드에는 잘 복사가 되지만) PowerPoint에는 복사가 안 됩니다. 원인을 모르겠군요. ^^ 혹시 아시는 분은 덧글 부탁드립니다.




[이 글에 대해서 여러분들과 의견을 공유하고 싶습니다. 틀리거나 미흡한 부분 또는 의문 사항이 있으시면 언제든 댓글 남겨주십시오.]

[연관 글]





[최초 등록일: ]
[최종 수정일: 6/5/2019 ]

Creative Commons License
이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.
by SeongTae Jeong, mailto:techsharer@outlook.com

비밀번호

댓글 쓴 사람
 



2019-06-05 10시18분
Rich Text Format (RTF) Version 1.5 Specification
; http://www.biblioscape.com/rtf15_spec.htm
정성태

1  2  3  [4]  5  6  7  8  9  10  11  12  13  14  15  ...
NoWriterDateCnt.TitleFile(s)
12074정성태12/11/2019297디버깅 기술: 140. windbg/Visual Studio - 값이 변경된 경우를 위한 정지점(BP) 설정(Data Breakpoint)
12073정성태12/10/2019405Linux: 24. Linux/C# - 실행 파일이 아닌 스크립트 형식의 명령어를 Process.Start로 실행하는 방법
12072정성태12/9/2019228오류 유형: 583. iisreset 수행 시 "No such interface supported" 오류
12071정성태12/9/2019280오류 유형: 582. 리눅스 디스크 공간 부족 및 safemode 부팅 방법
12070정성태12/9/2019301오류 유형: 581. resize2fs: Bad magic number in super-block while trying to open /dev/.../root
12069정성태12/19/2019469디버깅 기술: 139. windbg - x64 덤프 분석 시 메서드의 인자 또는 로컬 변수의 값을 확인하는 방법
12068정성태11/28/2019581디버깅 기술: 138. windbg와 Win32 API로 알아보는 Windows Heap 정보 분석 [2]파일 다운로드2
12067정성태11/27/2019479디버깅 기술: 137. 실제 사례를 통해 Debug Diagnostics 도구가 생성한 닷넷 웹 응용 프로그램의 성능 장애 보고서 설명 [1]파일 다운로드1
12066정성태11/27/2019334디버깅 기술: 136. windbg - C# PInvoke 호출 시 마샬링을 담당하는 함수 분석 - OracleCommand.ExecuteReader에서 OpsSql.Prepare2 PInvoke 호출 분석
12065정성태11/25/2019339디버깅 기술: 135. windbg - C# PInvoke 호출 시 마샬링을 담당하는 함수 분석파일 다운로드1
12064정성태11/25/2019554오류 유형: 580. HTTP Error 500.0/500.33 - ANCM In-Process Handler Load Failure
12063정성태11/21/2019361디버깅 기술: 134. windbg - RtlReportCriticalFailure로부터 parameters 정보 찾는 방법
12062정성태12/20/2019311디버깅 기술: 133. windbg - CoTaskMemFree/FreeCoTaskMem에서 발생한 덤프 분석 사례 - 두 번째 이야기
12061정성태11/20/2019321Windows: 165. CoTaskMemAlloc/CoTaskMemFree과 윈도우 Heap의 관계
12060정성태11/21/2019380디버깅 기술: 132. windbg/Visual Studio - HeapFree x64의 동작 분석
12059정성태11/20/2019374디버깅 기술: 131. windbg/Visual Studio - HeapFree x86의 동작 분석
12058정성태11/19/2019384디버깅 기술: 130. windbg - CoTaskMemFree/FreeCoTaskMem에서 발생한 덤프 분석 사례
12057정성태11/18/2019272오류 유형: 579. Visual Studio - Memory 창에서 유효한 주소 영역임에도 "Unable to evaluate the expression." 오류 출력
12056정성태11/18/2019421개발 환경 구성: 464. "Microsoft Visual Studio Installer Projects" 프로젝트로 EXE 서명 및 MSI 파일 서명 방법파일 다운로드1
12055정성태11/17/2019243개발 환경 구성: 463. Visual Studio의 Ctrl + Alt + M, 1 (Memory 1) 등의 단축키가 동작하지 않는 경우
12054정성태11/15/2019617.NET Framework: 869. C# - 일부러 GC Heap을 깨뜨려 GC 수행 시 비정상 종료시키는 예제
12053정성태11/15/2019293Windows: 164. 윈도우 10 - 명령행 창(cmd.exe) 속성에 (DotumChe, GulimChe, GungsuhChe 등의) 한글 폰트가 없는 경우
12052정성태11/15/2019261오류 유형: 578. Azure - 일정(schedule)에 등록한 runbook이 1년 후 실행이 안 되는 문제(Reason - The key used is expired.)
12051정성태12/2/2019520개발 환경 구성: 462. 시작하자마자 비정상 종료하는 프로세스의 메모리 덤프 - procdump [1]
12050정성태11/14/2019381Windows: 163. AcLayers의 API 후킹과 FaultTolerantHeap
12049정성태11/13/2019312.NET Framework: 868. (닷넷 프로세스를 대상으로) 디버거 방식이 아닌 CLR Profiler를 이용해 procdump.exe 기능 구현
1  2  3  [4]  5  6  7  8  9  10  11  12  13  14  15  ...