0

csv ファイルの行ごとに空のテキスト ファイルを作成するスクリプトが必要です。

私のcsvファイルには3列のデータがあります...

Along Came Polly,2003,192
American Beauty,1999,146
American Cousins,2007,286
An American Crime,2007,179

行ごとに名前が付けられ、次のようにフォーマットされた空のテキスト ファイルを作成したいと考えています。

Along Came Polly (2003) Slot 192.txt
American Beauty (1999) Slot 146.txt
American Cousins (2007) Slot 286.txt
An American Crime (2007) Slot 179.txt

私はVBの経験がないので、誰かがこれを手伝ってくれますか。

ありがとう、ティム

4

1 に答える 1

0

これはあなたが探しているかもしれないものです

Option Explicit
Dim objFSO, objTextFile, strFileLine,objFile,strFileName



' Create the File System Object
 Set objFSO = CreateObject("Scripting.FileSystemObject")


 Set objTextFile=objFSO.OpenTextFile("C:\Documents and Settings\amolc\Desktop\SO\Sample.csv")  ''Mention Path of your CSV file here 


 Do Until objTextFile.atEndOfStream
     strFileLine =objTextFile.ReadLine
     strFileLine =Split(strFileLine,",")
     strFileName=strFileLine(0)&" ("&strFileLine(1)&") "&"Slot "&strFileLine(2)&".txt"
     Set objFile = objFSO.CreateTextFile("C:\Documents and Settings\amolc\Desktop\SO\"&strFileName)  ''Hardcoded path is the location where you can store your text file
Loop
于 2012-07-20T04:40:47.797 に答える