Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Mit VB Textdatei durchsuchen und bestimmte Stelle in MsgBox

bechri / 6 Antworten / Baumansicht 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
bechri Nachtrag zu: „Mit VB Textdatei durchsuchen und bestimmte Stelle in MsgBox“
Optionen

danke. Und wie bekomme ich es anstatt in eine MsgBox in eine weitere Textdatei?

BeChri

MfG Chris
bei Antwort benachrichtigen
T-Rex bechri „danke. Und wie bekomme ich es anstatt in eine MsgBox in eine weitere Textdatei?...“
Optionen

Indem Du es in die andere Datei schreibst.

 GrüßeT-Rex 
bei Antwort benachrichtigen
bechri T-Rex „Indem Du es in die andere Datei schreibst.“
Optionen

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

MfG Chris
bei Antwort benachrichtigen
T-Rex bechri „schon klar, aber ich habe eigentlich gemeint, ob es einen Code gibt, der das was...“
Optionen

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.

 GrüßeT-Rex 
bei Antwort benachrichtigen
bechri T-Rex „Jetzt stellt sich mir die Frage, wo das Problem ist: Statt den Text in der...“
Optionen

Egal, jetzt klappt alles so wies klappen soll.
Danke für die Hilfe.

BeChri

MfG Chris
bei Antwort benachrichtigen