VBAで、VBAのプログラムをVBSに変換する（文字の変換処理、変換回数の設定）

Question

VBAで、VBAのプログラムをVBSに変換したいと思います。
日本語変数に"[ ]"を付ける処理で、日本語変数名が★○・★○▲のような、
一方が他方に含まれるような関係だと、処理がうまくいきません。
どのようにすればよいでしょうか。
よろしくお願いします。

１行で複数の変数を宣言することはありません。
エクセルのバージョンは２０１３です。

Option Explicit

Dim zenkakuVals As Object

Private Sub vba2vbs()
    Dim fileName As String
    Dim buf As String
    Dim myDic As Object
    Set myDic = CreateObject("Scripting.Dictionary")
    Dim cnt As Long
    cnt = 1
    Set zenkakuVals = CreateObject("Scripting.Dictionary")
    
    'ファイルは".vbs"形式で保存したものを読み込む　文字コードはANSIで保存しておく
    fileName = Application.GetOpenFilename("vbsファイル,*.vbs")
    If fileName = "False" Then Exit Sub
    Open fileName For Input As #1
    
    '読み込んだプログラムを一行づつ処理する
    '（変数宣言の"As"以降を取る、日本語変数があればリストに追加する処理をする）
    Do Until EOF(1)
        Line Input #1, buf
        buf = henkan(buf)
        myDic.Add cnt, buf
        cnt = cnt + 1
    Loop
    Close #1
    
    '日本語変数をエクセルシート上に貼り付け、文字列長にソートする★★★編集★★★
    WS1.Cells(1, 2).Resize(zenkakuVals.Count, 1).Value = Application.Transpose(zenkakuVals.Keys)
    WS1.Cells(1, 1).Resize(zenkakuVals.Count, 1).Formula = "=Len(B1)"
    WS1.Sort.SortFields.Clear
    WS1.Sort.SortFields.Add Key:=WS1.Range("A1"), Order:=xlAscending
    WS1.Sort.SetRange WS1.Range("A1").CurrentRegion
    WS1.Sort.Header = xlNo
    WS1.Sort.Apply
    WS1.Cells(1, 3).Resize(zenkakuVals.Count, 1).Formula = "=""変数"" & Row()"
     
    '日本語変数と変数Noを文字列長順に配列に代入する
    Dim tempHensu() As Variant
    tempHensu = WS1.Cells(1, 2).Resize(zenkakuVals.Count, 2).Value
    
      
    'プログラムの各行で、文字列長の長い順に日本語変数を検索し、出現すれば、一時置換用の文字列に置き換える
    For cnt = 1 To myDic.Count
        For i = UBound(tempHensu) To 1 Step -1
            If InStr(myDic(cnt), tempHensu(i, 1)) > 0 Then
                myDic(cnt) = Replace(myDic(cnt), tempHensu(i, 1), tempHensu(i, 2))
            End If
        Next
    Next
    
    '一時置換用の文字列が出現すれば、対応する日本語変数に"[ ]"付きで変換する
    For cnt = 1 To myDic.Count
        For i = UBound(tempHensu) To 1 Step -1
            If InStr(myDic(cnt), tempHensu(i, 2)) > 0 Then
                myDic(cnt) = Replace(myDic(cnt), tempHensu(i, 2), "[" & tempHensu(i, 1) & "]")
            End If
        Next
    Next
    
    '変換したプログラムを出力する
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fileName = fso.GetParentFolderName(fileName) & "\" & fso.GetBaseName(fileName) & "_new.vbs"
    Open fileName For Output As #2
    For cnt = 1 To myDic.Count
        Print #2, myDic(cnt)
    Next
    Close #2
End Sub

Private Function henkan(ByVal buf As String) As String
    '"Dim 変数 As Boolean"など変数宣言から"As"以降を取る
    Dim henkanWords() As Variant
    henkanWords = Array("As Boolean", "As Integer", "As Long", "As String", "As Object", "As Variant")
    Dim word As Variant
    For Each word In henkanWords
        buf = Replace(buf, word, "")
    Next
    henkan = buf
    '変数が全角の場合に、リストに追加する
    If InStr(buf, "Dim") > 0 Then
        buf = Trim(Replace(buf, "ReDim", ""))
        buf = Trim(Replace(buf, "Dim", ""))
        If InStr(buf, "'") > 0 Then buf = Left(buf, InStr(buf, "'") - 1)
        If Len(buf) < LenB(StrConv(buf, vbFromUnicode)) Then
            If InStr(buf, "(") > 0 Then buf = Left(buf, InStr(buf, "(") - 1)
            If Not zenkakuVals.Exists(buf) Then zenkakuVals.Add buf, 1
        End If
    End If
End Function

＜変換前＞

Dim 日本語変数旧 As Long
Dim 日本語変数 As Long
Dim 日本語変数新 As Long

if 日本語変数=3 then 日本語変数新=4
日本語変数旧=4

＜変換後＞

Dim [[日本語変数]旧] 
Dim [日本語変数] 
Dim [日本語変数]新 

if [日本語変数]=3 then [日本語変数]新=4
[[日本語変数]旧]=4

Comments

[hatena19]

Dim 日本語変数旧 As Long, 日本語変数 As Long
というように１行で複数の変数を宣言することはないということでいいでしょうか。

[hatena19]

あとエクセルのバージョンはなんでしょうか。
スピルが使えるバージョンですか。

Answer 1

アイデアだけですが、ご参考に。

変数を長い方から順に、別名に置き換えます。
サンプルのVBSなら、下記のように置き換えます。

日本語変数旧 → 変数1
日本語変数新 → 変数2
日本語変数 → 変数3

次に、別名を元の変数名に戻すときに[]で囲むようにします。

変数1 → [日本語変数旧]
変数2 → [日本語変数新]
変数3 → [日本語変数]

質問のコードでは変数名をDictionaryオブジェクトに格納してますが、これは並べ替えの機能はないので、シートに書き出して、シート長で文字列長の降順で並べ替えて、上から順に変換するようにすればいいでしょう。

Comments

[nkym771]

ありがとうございます。
日本語変数名の部分の問題を解決し、
VBAをVBSに変換することができるようになりました。