помигите плз

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Станислав
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 15.04.2003 (Вт) 8:16

помигите плз

Сообщение Станислав » 04.12.2003 (Чт) 21:19

Подскажите плз, как организовать на VB 5.0 сначала поиск а потом сохранение найденного текста в отдельный файл.

Точнее мне нужно все строки содержащие некую комбинацию символов сохранять в отдельный файл. Например:
gfgfdgdfgdffg A1
dfdfdsfdfsfsd A1
dfdsfsdfdsfdf A2
sdfdsfdsfdfsf A3

Надо чтобы строки с "A1" записались в файл А1.dat, "А2" в А2.dat и "А3" в А3.dat. Т.е. мне надо разбить файл на несколько
файлов с определенным содержимым.

PS. Ответ прошу продублировать на Е-мыл: svwol@mail.ru

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 04.12.2003 (Чт) 21:39

Private Sub cmdSearch_Click()
Dim tmp As String

Open "C:\text.txt" For Input As #5

Open "C:\A1.txt" For Output As #1
Open "C:\A2.txt" For Output As #2
Open "C:\A3.txt" For Output As #3

Do While Not EOF(5)
Line Input #5, tmp
If InStr(1, tmp, " A1", vbTextCompare) <> 0 Then Print #1, tmp
If InStr(1, tmp, " A2", vbTextCompare) <> 0 Then Print #2, tmp
If InStr(1, tmp, " A3", vbTextCompare) <> 0 Then Print #3, tmp
Loop
Close #1
Close #2
Close #3

Close #5
End Sub

Только файл C:\text.txt должен существовать заранее...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: PetalBot и гости: 7

    TopList