Bestimmten Begriff in Datei suchen und ausgeben!

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von B0B, 8. Juli 2006 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 8. Juli 2006
    Hi,

    hab da n Problem mit Visual Basic:

    Ich will eine Datei (Datei.txt) durchsuchen. In jeder Zeile stehen Nummern (z.b 06)
    Ich will die Datei so durchsuchen, dass wenn ich eine Zeile mit dem Begriff oder den Nummern gefunden habe, dass was davor (vor der Nummer/Begriff) steht ausgegeben wird.

    Geht das?

    Achja die Zahlenkombi/Begriff steh in jeder Zeile an der 151-153 Stelle!

    Danke für jede Hilfe!
     

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.
  3. #2 8. Juli 2006
    hier das hab ich mal für mein webinterface gecodet. ist zwar genau umgekehrt aber ich denke umschreiben kannstes selber^^

    Code:
    Public Function GetTextAfter(Data As String, Wort As String) As String
     Dim a As Integer
     Dim b As Integer
     Dim c As String
     Dim SplitArray() As String
     On Error Resume Next
     
     SplitArray() = Split(Data, vbCrLf)
     For a = 0 To UBound(SplitArray)
     c = SplitArray(a)
     If InStr(c, Wort) Then
     For b = 1 To Len(c)
     If Mid(c, b, Len(Wort)) = Wort Then
     GetTextAfter = Mid(SplitArray(a), b + Len(Wort))
     Exit Function
     End If
     Next b
     Exit Function
     End If
     Next a
    End Function
    also einfach txt einlesen (gibt genug tuts dafür) und in die function eingeben

    ps: ich weis dass die lösung net elegant ist aber ich bin zu faul es zu ändern ;)
     
  4. #3 8. Juli 2006
    vielen dank!
     

  5. Videos zum Thema
Die Seite wird geladen...