VPF::замена и фильтр строк - Форум программистов

afrobiba

Дата 18.5.2011, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.5.2011

Репутация: нет
Всего: нет

Код


DIM b AS STRING
b = " 30000 1"
OPEN "F:\on.txt" FOR INPUT AS #1
OPEN "F:\o123n.txt" FOR OUTPUT AS #2
WHILE NOT EOF(1)
LINE INPUT #1, txt
IF INSTR(1, txt, b) > 0 THEN PRINT #2, txt
WEND
CLOSE #1
CLOSE #2
MsgBox ("отфильтровал")
OPEN "F:\o123n.txt" FOR INPUT AS #1
OPEN "F:\o12n.txt" FOR OUTPUT AS #2
WHILE NOT EOF(1)
LINE INPUT #1, txt
IF LEN(txt) >= 5 THEN MID$(txt, 1, 5) = "m11au"
PRINT #2, txt
WEND
CLOSE #1
CLOSE #2
MsgBox ("заменил1")

Помогите переделать данный кусок кода. В этом моменте дожны объеденяться файлы лежащие в одной папке и оставить в собранном файле только строки содежащие " 30000 1", а остальные удалить. И заменять первые пять символов на "m11au". Но вместо этого не отфильтровывает пустые строки и заменяет только первые строки после пустых строк.

Staruha

Дата 18.5.2011, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Пустая строка = "" и пожалуй строки надо считать типа i=i+1

--------------------

Возмездие настигнет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »