Добрый день, уважаемые форумчяне! Помогите пожалуйста разобрабраться с Print ,#F, Результат. У меня есть файл test.txt. Я хочу информацию из этого файла записать в другой файл test_1. Причем данные в файле test_1 должны быть структурированы следующим образом: 1. Вторая колонка должна начинаться с 15 символа; 2. Третья с 35; И если можно, то обрабатываемый файл должен выбираться из определенной папки.
[vba]
Код
Sub test()
Dim F1 As Integer Dim F As Integer
x = "C:\Documents and Settings\test.txt" file = Dir(x)
Name = "C:\Documents and Settings\" & file Файл = file
Путь = "C:\Documents and Settings\fedorov\Новая_папка\" & Файл F = FreeFile()
Open Путь For Output As #F 'открываем файл для записи
F1 = FreeFile() Open Name For Input As #F1 'считывание данных из файла Name
Do Until EOF(F1) Line Input #F1, MyText ' промотр содержимого файла
Результат = Данные_1 & " " & Данные_2 & " " & Данные_3 Print #F, Результат
Loop
Close #F1 End Sub
[/vba]
Добрый день, уважаемые форумчяне! Помогите пожалуйста разобрабраться с Print ,#F, Результат. У меня есть файл test.txt. Я хочу информацию из этого файла записать в другой файл test_1. Причем данные в файле test_1 должны быть структурированы следующим образом: 1. Вторая колонка должна начинаться с 15 символа; 2. Третья с 35; И если можно, то обрабатываемый файл должен выбираться из определенной папки.
[vba]
Код
Sub test()
Dim F1 As Integer Dim F As Integer
x = "C:\Documents and Settings\test.txt" file = Dir(x)
Name = "C:\Documents and Settings\" & file Файл = file
Путь = "C:\Documents and Settings\fedorov\Новая_папка\" & Файл F = FreeFile()
Open Путь For Output As #F 'открываем файл для записи
F1 = FreeFile() Open Name For Input As #F1 'считывание данных из файла Name
Do Until EOF(F1) Line Input #F1, MyText ' промотр содержимого файла
Нашел следующие ошибки: 1. Если число меньше чем Len(Данные), тогда естественно выдает ошибку. 2. функция Mid вырезает данные по конкретному количеству символов, таким образом у меня и не получается то что я хочу получить. Теперь мне нужно както определить в Данные_1...... символы <> пробел. Тогда может и заработает......
.....подставил данные пишет ошибку: Run - time Error '5'. Invalid procedure call or argument
Нашел следующие ошибки: 1. Если число меньше чем Len(Данные), тогда естественно выдает ошибку. 2. функция Mid вырезает данные по конкретному количеству символов, таким образом у меня и не получается то что я хочу получить. Теперь мне нужно както определить в Данные_1...... символы <> пробел. Тогда может и заработает......A_3485
Сообщение отредактировал A_3485 - Понедельник, 12.05.2014, 18:19