|
ありがとうございます。
こちらでも自己解決しました、確かに配列を使う必要はありませんでした。
Dim FSO As New FileSystemObject
Dim TS As TextStream
Set TS = FSO.CreateTextFile(FileName:=NewFile, Overwrite:=True)
Dim TmpFile As Variant
TmpFile = FreeFile
Open OldFile For Input As #TmpFile
'入力ファイルから変換しつつ出力
Do Until EOF(TmpFile)
Line Input #TmpFile, strTextLine
DataLine = Split(strTextLine, ",")
'ここでDataLine(0)に変換処理
strTextLine = DataLine(0)
For C = 1 To UBound(DataLine)
strTextLine = strTextLine & "," & DataLine(C)
Next C
TS.WriteLine strTextLine
Loop
Close #TmpFile
TS.Close
まだテストしていませんが、
これでファイルを開くことも格納することもなく処理できそうです。
|
|