помигите плз

[Станислав]

Подскажите плз, как организовать на 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]

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 должен существовать заранее...