ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена и фильтр строк
13 сообщений из 13, страница 1 из 1
замена и фильтр строк
    #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:00
| Ответить | Цитировать | Написать  
замена и фильтр строк
    #37274793
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobibaВ этом моменте дожны объеденяться файлы лежащие в одной папке

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

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


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

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

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

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

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

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

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


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