VBS例）全角・半角混じりの文字列で桁合わせ（固定長にする）【VBS】

全角・半角が混じっても固定の長さに加工できるスプリクト

Dim fso,aa,cc

aa  = "愛10愛"
iFigLen = 0
  For iCnt = 1 to Len(aa)
    sFig = (mid(aa, iCnt, 1))

    '一文字の長さを調べる
    If Asc(sFig) >= 0 Then
     iFigLen = iFigLen + 1
    Else
      iFigLen = iFigLen + 2
    End If
    Next
cc = aa & Right("                          ", 20 - iFigLen )

出力データの固定長化に便利です。

VBSで業務を自動化する