Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена и фильтр строк / 13 сообщений из 13, страница 1 из 1
23.05.2011, 16:00
    #37274761
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
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". Но вместо этого не отфильтровывает пустые строки и заменяет только первые строки после пустых строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:09
    #37274793
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
afrobibaВ этом моменте дожны объеденяться файлы лежащие в одной папке

Про объединение в этом коде ничего нет.

А в остальном работает правильно - никаких пустых строк не остается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:20
    #37274822
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Shocker.ProА в остальном работает правильно - никаких пустых строк не остается
да как это?


кинул базу с папкой с файлами для обединения. попробуйте обеденить и заменить данные. то что должно получится находится в файле "on.txt". маялся с этим моментом очень долго, так ни чего и не получилось сделать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:29
    #37274844
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Похоже на проблему с кодировкой символа перевода строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:31
    #37274850
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
afrobibaпопробуйте обеденить
Код для объединения не приведен
afrobibaто что должно получится находится в файле "on.txt".
То, что должно получиться в результате чего? Объединения? может быть Обработки? Не должно получиться, так как там нет строк, содержащих " 30000 1", то есть файл должен получиться пустым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:46
    #37274892
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Shocker.ProКод для объединения не приведен
весь код есть в базе (ПКМ на любой кнопке в режиме конструктора - обработка событий)

Shocker.ProТо, что должно получиться в результате чего? Объединения? может быть Обработки? Не должно получиться, так как там нет строк, содержащих " 30000 1", то есть файл должен получиться пустым.
файл "on.txt" итог работы всего кода. Т.е. объединение файлов и замены символов строк.
было = "3513537229 30000 1" , стало = "mocaut:indic=3,tel=537229,catmin=mor;"
в самом начале я кинул только кусок кода т.к. именно в этом моменте он не удаляет пустые строки и в последствии не заменяет строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:48
    #37274900
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
afrobibaв самом начале я кинул только кусок кода т.к. именно в этом моменте он не удаляет пустые строки и в последствии не заменяет строки.

Давай-ка так, чтобы не ворошить твою прогу, дай исходный файл для обработки тем кодом, который ты привел в первом сообщении. (то есть уже объединенный, но еще не обработанный)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:52
    #37274913
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Shocker.Pro,

вот.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:54
    #37274918
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
afrobiba,

Не знаю, в чем проблема.
Вышеприведенный код обрабатывает файл как надо, никаких пустых строк, фильтр правильный, все замены адекватные.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 16:56
    #37274924
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Shocker.Pro,

то есть у вас все работает идеально?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 17:01
    #37274942
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
afrobibaShocker.Pro,

то есть у вас все работает идеально?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 17:05
    #37274951
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Shocker.Pro,

ну я тогда вообще ни чего не понимаю.
Спасибо что откликнулись
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 17:09
    #37274962
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена и фильтр строк
Так ты попробуй это код отдельно, как я его пробую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена и фильтр строк / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 157ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158700]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 14ms
total:  157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]