VC6 テクニック TCHAR を付加マクロ

あるふ — Mon, 15 Dec 2008 21:30:00 GMT

一応今でも使ってるマクロです。ヤッツケ間バリバリですけど、そのまま載せます

string str = "a\"aa";

↑みたいのを↓に置き換えます。

string str = _T("a\"aa");

複数行対応なので、Ctrl+aで全選択してから実行するとそのファイル全体を置き換えます。

今のところ問題は出てないですけど、ありそう・・

vbsはよくワカランです

.net版はまた後日

Sub ReplaceTcharFunctionCore()
ActiveDocument.Selection.StartOfLine dsFirstText
ActiveDocument.Selection.EndOfLine dsExtend

Dim Str
Str = ActiveDocument.Selection

if left(str,8) <> "#include" then

Set regEx = New RegExp
regEx.Global =True

regEx.Pattern = "_T$("".*?"")$"
Str = regEx.replace(Str, "$1")

regEx.Pattern = "(""""|"".*?\\\\""|"".*?([^\\]""))"
Str = regEx.replace(Str, "_T($1)")

regEx.Pattern = "L_T$("".*?"")$"
Str = regEx.replace(Str, "L$1")

        ActiveDocument.Selection = Str
    else
        ActiveDocument.Selection = Str
    end if
end sub

Sub ReplaceTcharFunction()
Dim StartLine
StartLine = ActiveDocument.Selection.TopLine

Dim EndLine
EndLine = ActiveDocument.Selection.BottomLine + 1

    For i=1 To (EndLine-StartLine)
        ReplaceTcharFunctionCore()
        ActiveDocument.Selection.LineDown
    Next

End Sub