Прога ВИСНЕТ при поиске в 12 текстовиках...

[cashman]

Процедура такая:
вводится слово "..."
потом его ищет в 1.txt, затем в 2.txt и т.д.
все строки где оно встречалось выводит в textbox
ПРОБЛЕМА в том, если юзверь введет скажем "пробел", то прога находя его в каждой строке просто подвешивает себя.
Сделал: если text1.text = " " то не искать + сообщения "мол, сам дурак", Но это не подойдет так как в текст пронизан пробелами по 10 штук подрят...
аналогично если юзверь ввел скажем "а" - тот же результат...
Как сделать чтоб не висла???...

[deepslam]

может минимальную длину вводимого слова задать?
также можно искать, если например в строке поиска одни проблемы, то не искать и сделать некий словарик исключений

[cashman]

минимальная длинна слова - это неплохо, попробую
а как прогу притормаживать, т.е. чтобы не торопилась искать и себя подвешивать, а не торопясь, не дергаясь все пережевала и не зависла (DoEvents - пробовал вставлять между открытием следующего *.txt - не помогло).

[GM]

если например в строке поиска одни проблемы

Проблемы, или все же пробелы

Попробуй вот так:

Код: Выделить всё

dim s as string
dim lCounter as long
dim sResult as string
dim whatfind as string
whatfind = text1.text 'обязательно так быстрее
open "1.txt" for input as #1
do until eof(1)
lcounter = lcounter +1
line input #1,s
if instr(s,whatfind) > 0 then sResult = sResult & s & vbcrlf
if lcounter mod 10 =0 then doevents
loop
text2.text = text2.text & sresult
close #1


[Sirik]

Используй функцию Trim (она "отрезает" все пробелы справа и слева).
Потом если длина слова, которое требуется искать, равна 0, тогда выход с надписью "сам дурак"

[cashman]

2GM
попробую... а что искать "переменную" быстрее чем "текст" из text1.texе???
2Sirik
Я не пользовался функцией Trim... дай пример кода (желательно полный, чтоб не пришлось гадать еще над теми редкими вещами которых я не знаю)

[BV]

Ну не понятно только одно - каким способом ты ищешь.
Я, где только возможно, использую RTB - и не тормозит, и ищет ВСЕ.

[GM]

2GM
попробую... а что искать "переменную" быстрее чем "текст" из text1.texе???
2Sirik
Я не пользовался функцией Trim... дай пример кода (желательно полный, чтоб не пришлось гадать еще над теми редкими вещами которых я не знаю)

Да, обращение к переменной, быстрее чем к объекту.

[tyomitch]

2GM
попробую... а что искать "переменную" быстрее чем "текст" из text1.texе???

Да, обращение к переменной, быстрее чем к объекту.

Обращение - да, но поиск в них выполняется одинаково быстро. Если текст большой, то разница из-за медленного обращения будет незаметна.

[GM]

2GM
попробую... а что искать "переменную" быстрее чем "текст" из text1.texе???

Да, обращение к переменной, быстрее чем к объекту.

Обращение - да, но поиск в них выполняется одинаково быстро. Если текст большой, то разница из-за медленного обращения будет незаметна.

Я просто вспомнил 20 textbox'ом в которых были числа, и я сравнивал совпадали ли они с данными, объем был большой, так что разница была очень заметна. Да и если такой вариант тоже работает почему бы им не воспользоватся

[Sirik]

Данный пример просто "убивает" все лишние пробелы (из-за которых у тебя и были тормоза):

Код: Выделить всё

Text1.Text = Trim(Text1.Text)

[cashman]

2Sirik
сперва был в восторге от функции Trim, но вскоре понял что она мне не совсем подходит, т.к. ищем "пар" и выводим все где он встречается. Но если встречается "паром", то прога считает, что нашла верно.
Но мне нужен только "пар" и если я раньше мог ввести "пар " (т.е. с пробелом), то теперь функция Trim этой возможности не дает.
2tyomitch & GM
"текст большой" - это ты говоришь об искомом тексте или тексте в котором мы ищем.
P.S. Пример, Ищем: ("." & 10 & "." & peremennaya)
вот это все выражение в скобках для увеличения скорости поиска лучше занести в отдельную переменную, или нет смысла писать еще одну строчку кода?..

[GM]

2cashman
Я имею ввиду что при частой обращении к объекту скорость падает. Т.Е. ты цыклом проходиш по каждой строке файла и с помощью
instr смотриш есть ли там это слово, так вот ты каждый раз обращаешся к Text1, откуда возможные тормоза.
Вот тут пример, сможеш заценить разницу в скорости:

Код: Выделить всё

Private Sub Form_Load()
Dim i As Long
Dim l As Single
MsgBox "Считывание с Text1"
l = Timer
For i = 1 To 500000
If Text1.Text = "Some text" Then
End If
Next
MsgBox Timer - l & " c."
MsgBox "Считывание с переменной"
l = Timer
Dim s As String
s = Text1.Text
For i = 1 To 500000
If s = "Some text" Then
End If
Next
MsgBox Timer - l & " c."
End Sub


[AjaxVS]

>>Я не пользовался функцией Trim...

+_+ +_+ +_+

А у меня во всех прогах самая популярная функция Trim... Я вообще не представляю, как можно работать с файлами текста без нее...
Короче, Trim рулез!

[hCORe]

Вернее, Trim$. Он быстрее, поскольку принимает и возвращает строку, а не универсальный тип Variant, который тормозит

[tyomitch]

2hCORe: как вообще может тип тормозить? Тормозить может какое-то действие.

[cashman]

прошу прощения у модераторов, но повторюсь, т.к. вопрос остался незамеченным:
Я сперва был в восторге от функции Trim, но вскоре понял что она мне не совсем подходит, т.к. ищем "пар" и выводим все где он встречается. Но если встречается "паром", то прога считает, что нашла верно.
Но мне нужен только "пар" и если я раньше мог ввести "пар " (т.е. с пробелом), то теперь функция Trim этой возможности не дает.
Есть функция которая убирает пробелы? скажем слева от курсора, или иной ваш вариант, который поможет со словом "пар"???

[Qubicz]

LTrim()