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

VBSで業務を自動化する

Right関数 右詰めで桁合わせ（固定長にする）【VBS】

文字列を右詰めで桁を合わせる。

固定長に書き直す時に活用できます。

文字列に全角が入ると正常に機能しません。

例文）

dim aa,bb,cc
aa  = "10"
bb = Right("0000000000" & aa, 10)　’10桁にして不足の桁は左から0詰めする
cc = Right("          " & aa, 10)　　　　’10桁にして不足の桁は左からスペーズ詰めする
Wscript.Echo bb & "," & cc

結果）
bb = 0000000010 
cc  =           10

VBSで業務を自動化する

Left関数 右詰めで桁合わせ（固定長にする）【VBS】

文字列を右詰めで桁を合わせる。

固定長に書き直す時に活用できます。

注意）文字列に全角が入ると正常に機能しません。

例文）
dim aa,bb,cc
aa  = "10"
bb = Left(aa & "0000000000" , 10)
cc = Left(aa & "          " , 10)
Wscript.Echo bb & "," & cc

結果）

bb  = 1000000000
cc   = 10     

VBSで業務を自動化する

    

If文条件分岐【VBS】

条件分岐（条件が少ない場合）If 条件式1 Then
    条件1が真の場合の処理
ElseIf 条件式2 Then
    条件2が真の場合の処理
Else
    条件1,2が偽の場合の処理
End If

VBSで業務を自動化する

Select Case文 条件分岐複数【VBS】

複数の条件の場合はSelect Case文が便利です。

Select Case 式
Case 値1
    式と値1が一致した時の処理
Case 値2
    式と値2が一致した時の処理
Case Else
    いずれも一致しなかった時の処理
End Select

VBSで業務を自動化する