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)
12215정성태5/12/2020370개발 환경 구성: 490. C# - (Wireshark의) USBPcap을 이용한 USB 패킷 모니터링파일 다운로드1
12214정성태5/5/2020205개발 환경 구성: 489. 정식 인증서가 있는 경우 Device Driver 서명하는 방법 (2) - UEFI/SecureBoot
12213정성태5/3/2020349개발 환경 구성: 488. (코드로 가상 USB 장치를 만들 수 있는) USB/IP PROJECT 소개
12212정성태5/1/2020199개발 환경 구성: 487. UEFI / Secure Boot 상태인지 확인하는 방법
12211정성태4/27/2020307개발 환경 구성: 486. WSL에서 Makefile로 공개된 리눅스 환경의 C/C++ 소스 코드 빌드
12210정성태4/20/2020427.NET Framework: 903. .NET Framework의 Strong-named 어셈블리 바인딩 (1) - app.config을 이용한 바인딩 리디렉션 [1]파일 다운로드1
12209정성태4/13/2020248오류 유형: 614. 리눅스 환경에서 C/C++ 프로그램이 Segmentation fault 에러가 발생한 경우 (2)
12208정성태4/12/2020312Linux: 29. 리눅스 환경에서 C/C++ 프로그램이 Segmentation fault 에러가 발생한 경우
12207정성태4/2/2020316스크립트: 19. Windows PowerShell의 NonInteractive 모드
12206정성태4/2/2020377오류 유형: 613. 파일 잠금이 바로 안 풀린다면? - The process cannot access the file '...' because it is being used by another process.
12205정성태4/2/2020277스크립트: 18. Powershell에서는 cmd.exe의 명령어를 지원하진 않습니다.
12204정성태4/1/2020234스크립트: 17. Powershell 명령어에 ';' (semi-colon) 문자가 포함된 경우
12203정성태3/18/2020451오류 유형: 612. warning: 'C:\ProgramData/Git/config' has a dubious owner: '...'.
12202정성태3/18/2020563개발 환경 구성: 486. .NET Framework 프로젝트를 위한 GitLab CI/CD Runner 구성
12201정성태3/18/2020281오류 유형: 611. git-credential-manager.exe: Using credentials for username "Personal Access Token".
12200정성태3/18/2020632VS.NET IDE: 145. NuGet + Github 라이브러리 디버깅 관련 옵션 3가지 - "Enable Just My Code" / "Enable Source Link support" / "Suppress JIT optimization on module load (Managed only)"
12199정성태3/17/2020268오류 유형: 610. C# - CodeDomProvider 사용 시 Unhandled Exception: System.IO.DirectoryNotFoundException: Could not find a part of the path '...\f2_6uod0.tmp'.
12198정성태3/17/2020291오류 유형: 609. SQL 서버 접속 시 "Cannot open user default database. Login failed."
12197정성태3/17/2020427VS.NET IDE: 144. .NET Core 콘솔 응용 프로그램을 배포(publish) 시 docker image 자동 생성 - 두 번째 이야기
12196정성태3/17/2020393오류 유형: 608. The ServicedComponent being invoked is not correctly configured (Use regsvcs to re-register).
12195정성태3/17/2020511.NET Framework: 902. C# - 프로세스의 모든 핸들을 열람 - 세 번째 이야기
12194정성태3/16/2020358오류 유형: 607. PostgreSQL - Npgsql.NpgsqlException: sorry, too many clients already
12193정성태3/16/2020347개발 환경 구성: 485. docker - SAP Adaptive Server Enterprise 컨테이너 실행
12192정성태3/14/2020470개발 환경 구성: 484. docker - Sybase Anywhere 16 컨테이너 실행
12191정성태3/14/2020675개발 환경 구성: 483. docker - OracleXE 컨테이너 실행 [1]
12190정성태3/14/2020273오류 유형: 606. Docker Desktop 업그레이드 시 "The process cannot access the file 'C:\Program Files\Docker\Docker\resources\dockerd.exe' because it is being used by another process."
1  2  [3]  4  5  6  7  8  9  10  11  12  13  14  15  ...