Søge funktion til streg

du kan bruge.. InStr(1, strText, strFind, vbTextCompare)

Private Sub Form_Load()
Dim strText As String
Dim strFind As String

  strFind = "abe"
  strText = "den blå ABE er da meget sød :D"

  If InStr(1, strText, strFind, vbTextCompare) Then
    MsgBox "Ja '" & strFind & "' er i teksten"
  End If
End Sub

Hvordan får jeg ud hvor mange gange den er i teksten, og hvilke ord der er fundet

strText = "Der var en gang en abemand, der havde en ABE og en abekat, men alle abedyrene døde"
her vil jeg altså have abemand, ABE, abekat, abedyrer, fundet og vist, evt tilføjet til lstFound

Skal bruge det til at søge "inden i" filer

Kan man egentlig søge i en binær fil efter tekst( ved godt binære filer ikke indeholder "tekst") men mere om der kommer fejl hvis man gør

streg = streng, <-- dobbelt slå fejl ;(

Sætter point op fra 15 -> 45

2 tekstbokse ,en listboks og en commandknap

Private Sub Command1_Click()
Dim strText As String, strFind As String, T As Integer, ST As Integer, SL As Integer
  strText = Text1.Text
  strFind = Text2.Text
  Do
A = InStr(1, UCase(strText), UCase(strFind), vbTextCompare)

  If A <> 0 Then
  For T = A To 1 Step -1
  If Mid(strText, T, 1) = " " Then
  ST = T
  Exit For
  End If
  Next
 
  For T = A To Len(strText)
  If Mid(strText, T, 1) = " " Then
  SL = T
  Exit For
  End If
  Next
  List1.AddItem Mid(strText, ST, SL - ST)
  strText = Mid(strText, SL, Len(strText) - SL)
  End If

Loop Until A = 0
End Sub

en rettelse

Private Sub Command1_Click()
Dim strText As String, strFind As String, T As Integer, ST As Integer, SL As Integer
  strText = Text1.Text ' sætningen
  strFind = Text2.Text ' ordet der skal findes
  List1.Clear
  Do
        A = InStr(1, UCase(strText), UCase(strFind), vbTextCompare)

  If A <> 0 Then
 
    For T = A To 1 Step -1
      If Mid(strText, T, 1) = " " Or A = 1 Then
          ST = T
          Exit For
      End If
    Next
   
    For T = A To Len(strText)
      If Mid(strText, T, 1) = " " Or T = Len(strText) Then
          SL = T
        If T = Len(strText) Then SL = T + 1
          Exit For
      End If
     
    Next
     
      List1.AddItem Mid(strText, ST, (SL - ST) + 1)
      strText = Mid(strText, SL, Len(strText))
   
  End If

Loop Until A = 0
End Sub

kabbak > lÆG SVAR
joern > Læg Svar

et svar ;-))

Joern > Svar???