Microsoft MVP성태의 닷넷 이야기
글쓴 사람
정성태 (techsharer at outlook.com)
홈페이지
첨부 파일
 
(연관된 글이 1개 있습니다.)

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 at outlook.com

비밀번호

댓글 작성자
 



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

... 121  [122]  123  124  125  126  127  128  129  130  131  132  133  134  135  ...
NoWriterDateCnt.TitleFile(s)
10965정성태5/12/201629758디버깅 기술: 81. try/catch로 조용히 사라진 예외를 파악하고 싶다면? [2]
10964정성태5/12/201626949오류 유형: 331. ASP.NET에서 System.BadImageFormatException 예외가 발생하는 경우
10963정성태5/11/201628529VS.NET IDE: 107. Visual Studio 2015의 "DTAR_..." 특수 폴더가 생성되는 문제파일 다운로드2
10962정성태5/11/201627239오류 유형: 330. Visual Studio 단위 테스트 시 DisconnectedContext 예외 발생
10961정성태5/11/201627774.NET Framework: 583. 문제 재현 - Managed Debugging Assistant 'DisconnectedContext' has detected a problem in '...'파일 다운로드1
10960정성태5/10/201626461오류 유형: 329. ATL 메서드 추가 마법사 창에서 8ce0000b 오류 발생
10959정성태5/9/201627994.NET Framework: 582. CLR Profiler - 별도 정의한 .NET 코드를 호출하도록 IL 코드 변경파일 다운로드1
10958정성태5/6/201656289개발 환경 구성: 284. "Let's Encrypt"에서 제공하는 무료 SSL 인증서를 IIS에 적용하는 방법 (1) [3]
10957정성태5/3/201630110오류 유형: 328. 윈도우 백업 시 오류 - 0x80780166 두 번째 이야기 [1]
10956정성태5/3/201627041Windows: 117. BitLocker - This device can't use a Trusted Platform Module.
10955정성태5/3/201634092.NET Framework: 581. C# - 순열(Permutation) 예제 코드파일 다운로드2
10954정성태5/3/201634836.NET Framework: 580. C# - 조합(Combination) 예제 코드 [2]파일 다운로드1
10953정성태5/2/201622252.NET Framework: 579. Assembly.LoadFrom으로 로드된 어셈블리의 JIT 컴파일 코드 공유?파일 다운로드1
10952정성태5/2/201626052.NET Framework: 578. 도메인 중립적인 어셈블리가 비-도메인 중립적인 어셈블리를 참조하는 경우파일 다운로드1
10951정성태5/2/201623766.NET Framework: 577. CLR Profiler로 살펴보는 SharedDomain의 모듈 로드 동작파일 다운로드1
10950정성태5/2/201632447.NET Framework: 576. 기본적인 CLR Profiler 소스 코드 설명 [2]파일 다운로드2
10949정성태4/28/201622307.NET Framework: 575. SharedDomain과 JIT 컴파일파일 다운로드1
10948정성태4/28/201628060.NET Framework: 574. .NET - 눈으로 확인하는 SharedDomain의 동작 방식 [3]파일 다운로드1
10947정성태4/27/201626335.NET Framework: 573. .NET CLR4 보안 모델 - 4. CLR4 보안 모델에서의 조건부 APTCA 역할파일 다운로드1
10946정성태4/26/201628482VS.NET IDE: 106. Visual Studio 2015 확장 - INI 파일을 위한 사용자 정의 포맷 기능 (Syntax Highlighting)파일 다운로드1
10945정성태4/26/201620557오류 유형: 327. VSIX 프로젝트 빌드 시 The "VsTemplatePaths" task could not be loaded from the assembly 오류 발생
10944정성태4/22/201623471디버깅 기술: 80. windbg - 풀 덤프 파일로부터 텍스트 파일의 내용을 찾는 방법
10943정성태4/22/201628664디버깅 기술: 79. windbg - 풀 덤프 파일로부터 .NET DLL을 추출/저장하는 방법 [1]
10942정성태4/19/201623583디버깅 기술: 78. windbg 사례 - .NET 예외가 발생한 시점의 오류 분석 [1]
10941정성태4/19/201622787오류 유형: 326. Error MSB8020 - The build tools for v120_xp (Platform Toolset = 'v120_xp') cannot be found.
10940정성태4/18/201627490Windows: 116. 프로세스 풀 덤프 시간을 줄여 주는 Process Reflection [3]
... 121  [122]  123  124  125  126  127  128  129  130  131  132  133  134  135  ...