문자열에 _T() 넣기

MFC에서 Unicode기반의 작업을 하다보면, 문자열을 넣을때 귀찮은 경우가 많다.

일반적으로 _T("냠냠이") 이런식으로 적용을 하는데, 매번 _T()를 넣는다는것이 나의 귀차니즘을 자극시키는....

그래서 Macro를 작성하여 적용하는것이 어떨까 한다.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' -.선택한 문자열을 검색하여 문자열 앞뒤에 _T()를 삽입한다.
' 09.01.19 pumpguy create
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Do_TMacro()
Dim objStartPt As EditPoint
Dim szLineData As String
Dim point As EditPoint
Dim nColPos As Integer
Dim szNewData As String
Dim bFirst As Boolean
Dim ch As String

bFirst = True
With DTE.ActiveDocument.Selection
szLineData = .Text
For i = 1 To szLineData.Length
Select Case Mid(szLineData, i, 1)
Case Chr(34)
If bFirst Then
szNewData = szNewData + "_T("
szNewData = szNewData + Mid(szLineData, i, 1)
bFirst = False
Else
szNewData = szNewData + Mid(szLineData, i, 1)
szNewData = szNewData + ")"
bFirst = True
End If
Case Chr(92)
szNewData = szNewData + Mid(szLineData, i, 2)
i = i + 1
Case Else
szNewData = szNewData + Mid(szLineData, i, 1)

End Select
Next i
.Text = szNewData
End With
End Sub

사용법은 해당 Macro를 작성한후, Tools->Customize 를 통해 나온 DialogBox에서 Keyboard Button을 눌러 단축키와 Macro를 연결하면 된다.

Bug : 2개이상의 Line을 Select시 두번째 줄부터 열이 안맞는다~ ㅎㅎㅎ 정신건강상 한Line씩만 선택해서 작업하시길.