Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Verfolgung starten Optionen

Mit VB Textdatei durchsuchen und bestimmte Stelle in MsgBox

bechri / 6 Antworten / Flachansicht Nickles

Hallo,
ich habe eine Textdatei und da steht irgendwo z.B. ABC123 und hintendran sind noch ca. 25 weitere Zeichen. Nun möchte ich, dass VB genau dieses Wort findet (nicht mit Zeilenangabe sondern genau das Wort ABC123) und mit den 25 weiteren hintendranstehenden Zeichen in einer MessageBox anzeigt.
Wie geht das?

BeChri

MfG Chris
bei Antwort benachrichtigen
T-Rex bechri „Mit VB Textdatei durchsuchen und bestimmte Stelle in MsgBox“
Optionen

Dim FNr As Long
Dim strFlag As String
Dim strText As String
Dim lngPos As long

strFlag = "ABC123"

FNr = FreeFile
Open "C:\MeineDatei.txt" For Binary Access Read Lock Read As #Fnr
strText = Space$(LOF(Fnr))
Get #Fnr, , strText
Close #FNr

lngPos = Instr(1, strText, strFlag, vbBinaryCompare)
If lngPos 0 Then
    MsgBox Mid$(strText, lngPos + Len(strFlag), 25)
End If
 GrüßeT-Rex 
bei Antwort benachrichtigen
danke. Und wie bekomme ich es anstatt in eine MsgBox in eine weitere ... bechri
Indem Du es in die andere Datei schreibst. T-Rex
schon klar, aber ich habe eigentlich gemeint, ob es einen Code gibt, der das ... bechri
Jetzt stellt sich mir die Frage, wo das Problem ist: Statt den Text in der ... T-Rex
Egal, jetzt klappt alles so wies klappen soll. Danke für die Hilfe. BeChri bechri