2012-04-03 3 views
0

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

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

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

С уважением

Вацлав

+0

Почему вы не сохраните его в виде файла, а не .mat .txt, если он будет использоваться Matlab? – Dan

+0

Я использую Excel2010 для макросов VBA, но я ужина неопытен с этим ... Я попытался найти некоторые угрозы, которые слышат в stackoverflow, но я не очень хорошо разбираюсь в подпрограммах. Я думал, что использование .txt-файла будет более удобным, так как я буду использовать несколько таких «матриц» для моего matlab (тогда я могу просто скопировать + вставить содержимое отдельного txt-файла в качестве матрицы ввода) – Vasek

ответ

1

Привет, если вы блокировки для 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 
+0

Thank вы, Мосли. Я думаю, что это в значительной степени то, что я искал. ура – Vasek

Смежные вопросы