Всем доброго времени суток!! Помогите пожалуйста реализовать следующие действия с файлом txt с помощью макроса: 1. Необходимо открыть файл txt для просмотра (затем для записи измененнго файла). 2. Определить в исходном файле значение 10 и 11 символа 3. Если символы 10 и 11 являются ЧИСЛОМ, тогда они просто удаляются и в измененный файл заносятся без 10 и 11 позиции 4. Если символы 10 и 11 являются текстом тогда просто идет запись строчки в измененный файл
Всем доброго времени суток!! Помогите пожалуйста реализовать следующие действия с файлом txt с помощью макроса: 1. Необходимо открыть файл txt для просмотра (затем для записи измененнго файла). 2. Определить в исходном файле значение 10 и 11 символа 3. Если символы 10 и 11 являются ЧИСЛОМ, тогда они просто удаляются и в измененный файл заносятся без 10 и 11 позиции 4. Если символы 10 и 11 являются текстом тогда просто идет запись строчки в измененный файлA_3485
Sub Test() Open "file.txt" For Output As #1 Print #1, "Этот текст будет записан в файл" Close #1
Open "file.txt" For Input As #1 Dim s As String Input #1, s MsgBox s Close #1 End Sub
Для записи используется оператор Print, а для чтения - Input. У этих операторов есть свои особенности.
Print #1, "Hello , File"
Оператор Input #1 прочитает только Hello и все. Запятая воспринимается как разделитеть. Чтобы прочитать строку целиком, используется оператор Line Input.
Sub Test() Open "file.txt" For Output As #1 Print #1, "Hello , File" Close #1
Open "file.txt" For Input As #1 Dim s As String Line Input #1, s MsgBox s Close #1 End Sub
[/vba] Остается только выполнить проверку на 10 и 11 символы оперетором mid()
Да как же нет??? А это: [vba]
Code
Sub Test() Open "file.txt" For Output As #1 Print #1, "Этот текст будет записан в файл" Close #1
Open "file.txt" For Input As #1 Dim s As String Input #1, s MsgBox s Close #1 End Sub
Для записи используется оператор Print, а для чтения - Input. У этих операторов есть свои особенности.
Print #1, "Hello , File"
Оператор Input #1 прочитает только Hello и все. Запятая воспринимается как разделитеть. Чтобы прочитать строку целиком, используется оператор Line Input.
Sub Test() Open "file.txt" For Output As #1 Print #1, "Hello , File" Close #1
Open "file.txt" For Input As #1 Dim s As String Line Input #1, s MsgBox s Close #1 End Sub
[/vba] Остается только выполнить проверку на 10 и 11 символы оперетором mid()Jhonson
"Ничто не приносит людям столько неприятностей, как разум."
Я например не понял в задании пункты 1, 3 и 4. Да и пункт 2, если читать буквально, возможно понял не так, как думаает ТС. Т.е. вообще ничего не понял. Поэтому молчу
Я например не понял в задании пункты 1, 3 и 4. Да и пункт 2, если читать буквально, возможно понял не так, как думаает ТС. Т.е. вообще ничего не понял. Поэтому молчу Hugo
Теперь у меня стоит задача перекодировать файл????. Просто в файле txt при выгрузке в определенную папку внутри получается абаркадара. Приходится открывать каждый день файл в ручную и менять кодировку. Может быть можно как то менять Макросом???
Ура огромное спасибо!!!!!
Теперь у меня стоит задача перекодировать файл????. Просто в файле txt при выгрузке в определенную папку внутри получается абаркадара. Приходится открывать каждый день файл в ручную и менять кодировку. Может быть можно как то менять Макросом???A_3485