Проверить наличие символа в строке, считанной из файла - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! сразу скажу, что по форуму искал, ничего путного не нашел и поэтому прошу помощи. Задача следующая: кодом visual basic 6.0 (нужен именно он) нужно открыть текстовый файл, построчно считать его содержимое.После считывания каждой строки тут же реализовать проверку наличия в этой строке символа "@". Если символа "@" в строке нет, то считать следующую строку и повторить проверку наличия символа. Если есть символ "@", то всю эту строчку записать в файл. И так до конца файла. Пока есть вот такой кусок кода:
Как реализовать проверку на содержимого строчек на наличие символа "@" - хоть убей не понял! Прошу Вашей помощи. Форум - рыл. Не нашел. Заранее благодарен!

Решение задачи: «Проверить наличие символа в строке, считанной из файла»

textual
Листинг программы
Private Sub cmdLoad_Click()
    Dim FileNum As Integer, FileNum1 As Integer, txt As String
    FileNum = FreeFile
    Open "C:\Parser\1.txt" For Input As FileNum
         FileNum1 = FreeFile
         Open "C:\Parser\2.txt" For Output As FileNum1
            Do Until EOF(FileNum)
               Line Input #FileNum, txt
               If InStr(1, txt, "@") > 0 Then Write #FileNum1, txt
            Loop
         Close #FileNum1
    Close #FileNum
End Sub

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы