.csvを特定の長さの.txtに変換します。

Question

.csvファイルがあります。私はAからBへの行（A、Bは最初に宣言されている）から始まる.txtファイルに変換したい。 .txtファイルには、オリジナルのセミコロンではなく ""の隙間があります。さらに、元の.csvファイルからコピーされた各行の終わりは、新しい.txtファイルのセミコロンで示されます（txtファイルはMatlabの入力マトリックスとして使用されます）。

お手伝いできますか？

ありがとうございます。

よろしく

ヴァーツラフ・

Answer 1

こんにちはあなたはVBAコードのロック場合、多分それはあなたを助けることができる...あなたがではなく、.MATファイルとして保存していないのはなぜ

Sub csv2mat() 
Dim Filename As String 
Dim Filenamenew As String 
Dim str As String 
'Change the path to the Files and and create a txt file 
Filename = "C:\Documents and Settings\user\Desktop\as.csv" 
Filenamenew = "C:\Documents and Settings\user\Desktop\new.txt" 
Open Filenamenew For Output As #2 
Open Filename For Input As #1 
Do While Not EOF(1) 
    Line Input #1, str 
    str = Replace(str, ";", """") & ";" 
    Print #2, str 
Loop 
Close #1 
Close #2 
End Sub