Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Effektive Suchfunktion
Autor: Watson
Datum: 28.09.03 10:25
Frage: Wie kann man mit dem langsamen VB eine einigermaßen ordentliche Suchfunktion für Texte realisieren? Wenn man die simple Methode benutzt, also quasi <code>Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long) Sub Suchen() Dim SearchString As String Dim b As Integer On Error GoTo 1 SearchString = InputBox("Suchstring?", "Suchen") Gefunden = False For b = 1 To Len(Text1) - Len(SearchString) + 1 DoEvents If SearchStop = True Then Exit For If Mid(Text1, b, Len(SearchString)) = SearchString Then Gefunden = True Text1.SetFocus Text1.SelStart = b - 1 Text1.SelLength = Len(SearchString) Sleep (1000) End If Next b SearchStop = False If Gefunden = False Then MsgBox "Suchstring nicht gefunden!", vbOKOnly, "File View 2003" End If 1 End Sub<7</code> , dann ist das für längere Texte einfach zu langsam? Wer weiß Rat? Thx im Vorraus

Effektive Suchfunktion	719	Watson	28.09.03 10:25
Re: Effektive Suchfunktion	413	michaelk	28.09.03 12:49
Re: Effektive Suchfunktion	393	Watson	28.09.03 18:59
Re: Effektive Suchfunktion	387	michaelk	29.09.03 07:28
Re: Effektive Suchfunktion	355	Watson	30.09.03 18:22
Re: Effektive Suchfunktion	413	Watson	01.10.03 20:35
Re: Effektive Suchfunktion	396	michaelk	01.10.03 20:54
Re: Effektive Suchfunktion	377	Watson	02.10.03 18:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen