Bestimmten Begriff in Datei suchen und ausgeben!

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

Schlagworte:
  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!
     
    + Multi-Zitat Zitieren
  3. 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
     
    + Multi-Zitat Zitieren
  5. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.

Auf dieses Thema antworten