vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Text durchsuchen 
Autor: ModeratorDieter (Moderator)
Datum: 07.01.02 12:36
Hallo Destiny,

genau richtig - InStr heisst das Zauberwort. 
<code>  <font color=#000099>Dim</font> lCount <font color=#000099>As</font> _
  <font color=#000099>Long</font>
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> sText <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sWord <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  sText = Text1.Text
  sWord = "und"
 
  lPos = 0: lCount = 0
  <font color=#000099>Do</font>
    lPos = InStr(lPos + 1, sText, sWord)
    <font color=#000099>If</font> lPos > 0 <font color=#000099>Then</font>
      lCount = lCount + 1
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Loop</font> <font color=#000099>Until</font> lPos = 0
 
  MsgBox sWord & " wurde " & <font color=#000099>CStr</font>(lCount) & " mal" & _
    "gefunden!"</code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text durchsuchen81destiny07.01.02 11:49
Re: Text durchsuchen292ModeratorDieter07.01.02 12:36
Re: Text durchsuchen51destiny07.01.02 16:57
Re: Text durchsuchen272ModeratorDieter07.01.02 19:17
Re: Text durchsuchen44destiny08.01.02 09:38
OK - jetzt weiss ich mehr...277ModeratorDieter08.01.02 10:39
Text durchsuchen/Dateien öffnen37destiny08.01.02 12:35
Re: Text durchsuchen/Dateien öffnen299ModeratorDieter08.01.02 13:26
Re: Text durchsuchen/Dateien öffnen39destiny08.01.02 15:37

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel