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で業務を自動化する