none
Zeichenfolge in Textfile finden

    Frage

  • Hallo Zusammen,

    ich möchte gerne per VBA feststellen, ob eine bestimmte Zeichenfolge (z.B. "Guten Tag") in einer Textdatei (.csv) vorhanden ist.

    Folgenden Code habe ich dazu gefunden:

    Public Function Search_Content(ByVal sFilename As String, Suchstring) As String

     Dim F As Integer
     Dim sInhalt As String

     ' Existiert die Datei ?
     If Dir$(sFilename, vbNormal) <> "" Then
     ' Textdatei im Binärmodus öffnen und gesamten
     ' Inhalt in einem Rutsch auslesen
     F = FreeFile
     Open sFilename For Binary As #F
     
     sInhalt = Space$(LOF(F))
     Get #F, , sInhalt
     Close #F
        If InStr(sIhnalt, Suchstring) Then 'Hier einfach den Suchbegriff in dem Dateiinhalt suchen
        Search_Content = 1
        Else
        Search_Content = 0
        End If
     End If

     End Function

    Aber offenbar kann diese Funktion den File nicht lesen. sInhalt enthält nur Leerzeichen.

    Hat jemand eine Idee was ich anders machen muss?

    Vielen Dank für Hilfe

    Patrick

    Donnerstag, 15. Januar 2015 15:25

Antworten