Vba 将.csv转换为具有特定长度的.txt
我有一个.csv文件。我想把它转换成从A行到B行的.txt文件(A,B在开头声明)。.txt文件应具有空格“”,而不是原始分号。此外,在新的.txt文件中,从原始.csv文件复制的每一行的结尾都应该用分号表示(txt文件将用作Matlab的输入矩阵) 你能帮我一下吗 提前谢谢 问候Vba 将.csv转换为具有特定长度的.txt,vba,csv,text-files,Vba,Csv,Text Files,我有一个.csv文件。我想把它转换成从A行到B行的.txt文件(A,B在开头声明)。.txt文件应具有空格“”,而不是原始分号。此外,在新的.txt文件中,从原始.csv文件复制的每一行的结尾都应该用分号表示(txt文件将用作Matlab的输入矩阵) 你能帮我一下吗 提前谢谢 问候 Vaclav您好,如果您锁定VBA代码,也许这可以帮助您 Sub csv2mat() Dim Filename As String Dim Filenamenew As String Dim str As Strin
Vaclav您好,如果您锁定VBA代码,也许这可以帮助您
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
如果Matlab要使用它,为什么不将其保存为.mat文件而不是.txt文件?我正在使用Excel2010进行VBA宏,但我对此非常缺乏经验。。。我曾尝试搜索stackoverflow听到的一些威胁,但我并不真正熟悉这些程序。我认为使用一个.txt文件会更方便,因为我将在我的matlab中使用几个这样的“矩阵”(然后我可以复制并粘贴单独的txt文件的内容作为输入矩阵),谢谢Moosli。我想这正是我想要的。干杯