全角・半角が混じっても固定の長さに加工できるスプリクト
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で業務を自動化する
CSVデータを読み込み１項目のデータのみ固定長で出力する。
Dim fso,data
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' 読み込みファイルの指定
Dim inputFile
Set inputFile = fso.OpenTextFile("aa.csv", 1, False, 0)
' 書き出しファイルの指定
Dim outputFile
Set outputFile = fso.OpenTextFile("aa.txt", 2, True)
Do Until inputFile.AtEndOfStream
Dim lineStr
lineStr = inputFile.ReadLine
data = Split(lineStr,",")
outputFile.WriteLine data(0) '１項目目のデータを出力
Loop
' バッファを Flush してファイルを閉じる
inputFile.Close
outputFile.Close