Text3.Text = ""
For x = 0 To File1.ListCount - 1
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As x
Text2.Text = Input(LOF(x), x)
Close x
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "нет"
End If
Next x
Поиск по файлам.
Скажите, как сделать поиск нужного слова по файлам?
вот этот код результата не приносит :
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As x
Text2.Text = Input(LOF(x), x)
Close x
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then 'Сверяется 2 текстовых поля
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "нет"
End If
Next x
...
вот этот код результата не приносит :
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As x
Text2.Text = Input(LOF(x), x)
Close x
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then 'Сверяется 2 текстовых поля
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "нет"
End If
Next x
...
а как у тя qw задано?
[QUOTE=KAN]а как у тя qw задано?[/QUOTE]
Правильно подмечено! Если qw = 0 то по идее должна вылететь ошибка. Но по скольку прописан On Err... то она сответсвенно не вылетает.
Что бы наверняка проверить ето, зделай так:
Если вылетит ошибка на выделенной строке - я и KAN были правы!
Правильно подмечено! Если qw = 0 то по идее должна вылететь ошибка. Но по скольку прописан On Err... то она сответсвенно не вылетает.
Что бы наверняка проверить ето, зделай так:
Код:
Если вылетит ошибка на выделенной строке - я и KAN были правы!
в событии Form LOad я присваиваю пременной qw значение единицу.
Вообще-то код должен быть правильным, но он неправильно ищет по файлам. Если, например я пишу слово Visual, а оно находиться в файле 1.txt. Но прога решает что его вообще нигде нет! И ещё выводит ошибку invalid property array index...
и ещё правильней наверно будет заменит строчку
For x = 0 To File1.ListCount
на
For x = 1 To File1.ListCount
For x = 0 To File1.ListCount
на
For x = 1 To File1.ListCount
А у тебя етот код в событии Form_LOad находиться?
всмысле код цикла? нет в событиии буттон_клик.
Мой тебе совет: перед началом цыкла напишы следующее: MsgBox qw.
И еще, ты знаеш что такое глобальные переменные часного типа ?
И еще, ты знаеш что такое глобальные переменные часного типа ?
^ ^ ^
| | |
Ето спам!!! При чем на нашем форуме !!! Надо бить тревогу и забанить етого пользователя, ведь он использует форум не поназначению и делает противный ОФТОП!!!!!! Короче, спамерам здесь не место!!!!
Проследите все его сообщения, кроме спама - ничего!!!
:mad: :mad: :mad:
| | |
Ето спам!!! При чем на нашем форуме !!! Надо бить тревогу и забанить етого пользователя, ведь он использует форум не поназначению и делает противный ОФТОП!!!!!! Короче, спамерам здесь не место!!!!
Проследите все его сообщения, кроме спама - ничего!!!
:mad: :mad: :mad:
Если SanCHos ещё раз оставит такое сообщение, то он больше в этот форум никогда не войдёт, да и в другие тоже!!!! Уж об этом я позабочусь:(
Вернёмся к теме... Поставил мессагу. Она выдаёт всегда 1! и дальше происходит ошибка(см. выше)
[QUOTE=ace lighting]Если SanCHos ещё раз оставит такое сообщение, то он больше в этот форум никогда не войдёт, да и в другие тоже!!!!Уж об этом я позабочусь:([/QUOTE]
Ну и как ты себе ето представляеш?
Вернемся к нашим баранам :)
Слушай, будь добр скинь не рабочую часть кода, ато так сложно понять что у тебя там.
Ну и как ты себе ето представляеш?
Вернемся к нашим баранам :)
Слушай, будь добр скинь не рабочую часть кода, ато так сложно понять что у тебя там.
Попробуй такой вот код. Жирным - изменения от твоего начального кода.
А ещё попробуй убрать On Error, может он ошибку выдаёт, а тебе не показывает.
Код:
i = FreeFile
File1.Path = App.Path
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As i
Text2.Text = Input(LOF(x), x)
Close x
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "Нет"
End If
Next x
File1.Path = App.Path
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As i
Text2.Text = Input(LOF(x), x)
Close x
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "Нет"
End If
Next x
А ещё попробуй убрать On Error, может он ошибку выдаёт, а тебе не показывает.
[QUOTE=Валериус]Попробуй такой вот код. Жирным - изменения от твоего начального кода.
А ещё попробуй убрать On Error, может он ошибку выдаёт, а тебе не показывает.[/QUOTE]
Да спасибо ошибки больше нету, но только он не правильно выдаёт название файла. короче вот - сами смотрите. я тут в коде немножко всего убрал... введите ключевое имя для поиска - visaul и увидите что сначала он ничё не покажет, а потом ещё раз нажав на кнопку он покажет visual.txt
Код:
i = FreeFile
File1.Path = App.Path
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As i
Text2.Text = Input(LOF(x), x)
Close x
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "Нет"
End If
Next x
File1.Path = App.Path
Text3.Text = ""
On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As i
Text2.Text = Input(LOF(x), x)
Close x
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & Left(File1.FileName, 15)
Else
Text3.Text = "Нет"
End If
Next x
А ещё попробуй убрать On Error, может он ошибку выдаёт, а тебе не показывает.[/QUOTE]
Да спасибо ошибки больше нету, но только он не правильно выдаёт название файла. короче вот - сами смотрите. я тут в коде немножко всего убрал... введите ключевое имя для поиска - visaul и увидите что сначала он ничё не покажет, а потом ещё раз нажав на кнопку он покажет visual.txt
для Bard:
у меня связи есть. Неволнуйся... :):):)
у меня связи есть. Неволнуйся... :):):)
[QUOTE=ace lighting]и увидите что сначала он ничё не покажет[/QUOTE]
On Error Resume Next убери - тогда все ясно станет!
Замени на ету функцыю, и будет пробивать с первого раза.
On Error Resume Next убери - тогда все ясно станет!
Код:
Private Sub Command1_Click() 'При нажатии на кнопку:
i = FreeFile
File1.Path = App.Path
Text3.Text = ""
'On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
If x <> File1.ListCount Then
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As 1
Text2.Text = Input(LOF(1), 1)
Close 1
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & File1.FileName
End If
End If
Next x
End Sub
i = FreeFile
File1.Path = App.Path
Text3.Text = ""
'On Error Resume Next
For x = 0 To File1.ListCount ' Здесь х=0, это точно
If x <> File1.ListCount Then
File1.ListIndex = x
Open App.Path & "\" & File1.FileName For Input As 1
Text2.Text = Input(LOF(1), 1)
Close 1
If InStr(Text2.Text, Text1.Text) <> 0 Then 'qw можно вобще опустить
Text3.Text = Text3.Text & " " & File1.FileName
End If
End If
Next x
End Sub
Замени на ету функцыю, и будет пробивать с первого раза.
да! спасибо всё правильно! Работает! Скажите теперь как теперь сделать чтоб он не видел разницы между строчными и заглавными буквами?
:mad: Я же тебе сказал:
[QUOTE=Bard]Замени на ету функцыю, и будет пробивать с первого раза.[/QUOTE]
ПОЛНОСТЬЮ!!!
У меня ета функцыя работает!
[QUOTE=Bard]Замени на ету функцыю, и будет пробивать с первого раза.[/QUOTE]
ПОЛНОСТЬЮ!!!
У меня ета функцыя работает!
сорри! я чё-то сначала не увидел разницу в коде :D