Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для txt файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос для txt файла
A_3485 Дата: Пятница, 02.03.2012, 23:11 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Всем доброго времени суток!!
Помогите пожалуйста реализовать следующие действия с файлом 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
Дата добавления - 02.03.2012 в 23:11
Jhonson Дата: Суббота, 03.03.2012, 09:56 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Посмотрите здесь


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеПосмотрите здесь

Автор - Jhonson
Дата добавления - 03.03.2012 в 09:56
A_3485 Дата: Понедельник, 05.03.2012, 00:47 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
к сожалению для себя я там ничего не нашел sad
 
Ответить
Сообщениек сожалению для себя я там ничего не нашел sad

Автор - A_3485
Дата добавления - 05.03.2012 в 00:47
Jhonson Дата: Понедельник, 05.03.2012, 12:12 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Да как же нет??? А это:
[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()


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеДа как же нет??? А это:
[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
Дата добавления - 05.03.2012 в 12:12
Hugo Дата: Понедельник, 05.03.2012, 18:19 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Я например не понял в задании пункты 1, 3 и 4.
Да и пункт 2, если читать буквально, возможно понял не так, как думаает ТС.
Т.е. вообще ничего не понял.
Поэтому молчу smile


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЯ например не понял в задании пункты 1, 3 и 4.
Да и пункт 2, если читать буквально, возможно понял не так, как думаает ТС.
Т.е. вообще ничего не понял.
Поэтому молчу smile

Автор - Hugo
Дата добавления - 05.03.2012 в 18:19
A_3485 Дата: Вторник, 06.03.2012, 22:20 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Ура огромное спасибо!!!!!

Теперь у меня стоит задача перекодировать файл????. Просто в файле txt при выгрузке в определенную папку внутри получается абаркадара. Приходится открывать каждый день файл в ручную и менять кодировку.
Может быть можно как то менять Макросом???
 
Ответить
СообщениеУра огромное спасибо!!!!!

Теперь у меня стоит задача перекодировать файл????. Просто в файле txt при выгрузке в определенную папку внутри получается абаркадара. Приходится открывать каждый день файл в ручную и менять кодировку.
Может быть можно как то менять Макросом???

Автор - A_3485
Дата добавления - 06.03.2012 в 22:20
ambasad Дата: Вторник, 06.03.2012, 22:33 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 2 ±
Замечаний: 0% ±

Quote (A_3485)
Теперь у меня стоит задача перекодировать файл????

ну ктож Вас знает какая у Вас задача )))
Про кодировку почитайте тут: http://excelvba.ru/code/Encode
 
Ответить
Сообщение
Quote (A_3485)
Теперь у меня стоит задача перекодировать файл????

ну ктож Вас знает какая у Вас задача )))
Про кодировку почитайте тут: http://excelvba.ru/code/Encode

Автор - ambasad
Дата добавления - 06.03.2012 в 22:33
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!