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
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
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
danke. Und wie bekomme ich es anstatt in eine MsgBox in eine weitere Textdatei?
BeChri
Indem Du es in die andere Datei schreibst.
schon klar, aber ich habe eigentlich gemeint, ob es einen Code gibt, der das was eigentlich ich der Message Box angezeigt wird statt dessen in eine Datei mit z.B. dem Namen CBA321 speichert.
BeChri
Jetzt stellt sich mir die Frage, wo das Problem ist: Statt den Text in der MessageBox anzuzeigen schreibst Du ihn einfach in eine Datei.
Oder verstehe ich Dein Problem nur nicht? Oder willst Du nicht selbst denken und alles vorgekaut bekommen? Ich glaube, daß letzteres nicht zutrifft.
Egal, jetzt klappt alles so wies klappen soll.
Danke für die Hilfe.
BeChri