Конвертировать .csv в .txt определенной длины - PullRequest
0 голосов
/ 03 апреля 2012

У меня есть файл .csv. Я хочу преобразовать его в файл .txt, начиная со строки A до B (A, B объявляются в начале). Файл .txt должен содержать пробелы "" вместо оригинальных точек с запятой. Кроме того, конец каждой скопированной строки из исходного файла .csv должен быть указан точкой с запятой в новом файле .txt (файл txt будет использоваться в качестве входной матрицы для Matlab).

Не могли бы вы помочь мне с этим?

Заранее спасибо.

Привет

Вацлав

1 Ответ

1 голос
/ 03 апреля 2012

Привет, если вы блокируете код 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...