Visual Basic Forum

saarlodrie · Newbie Anmeldedatum: 21.04.2010 Beiträge: 2

Hallo,

bin neu in der programmierwelt und möchte eine txt DAtei öffnen, einen Wert suchen und ändern.

In der Datei steht test!1234
ich möchte dann test! suchen und die ZAhlen ändern, später über eine Variabel.

Hier mal mein Code, aber irgdedwie ghet das nicht.

Open dateiname For Input As #1
Do While Not EOF(1)
Line Input #1, gesamtstring

pos = 1
x = InStr(pos, gesamtstring, "@", vbBinaryCompare)
test = Mid(gesamtstring, pos, x - pos)

If test = Suchkriterium Then

test = Suchkriterium & "@" & "123"
gesamtstring = test

End If
Loop
Close #1

es wird hier die VAriable geändert, aber wie kann ich das in die DAtei zurückschreiben.

Schon mal DAnke für die Hilfe
_________________

saarlodrie · Newbie Anmeldedatum: 21.04.2010 Beiträge: 2

Sorry das ich nochmal melde, hänge hier total.

hat wirklich keiner eine Idee.

wenn ich mit open.... for output as #1 öffne, gehts zu do while not eof(1) dann auf end sub und die Datei ist leer.

Hoffe es kann mir jemand helfen..

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

hi
na klar bleibt die datei leer wennst mit for output öffnen möchtest

weil dann die datei erstellt wird Wink

probiers mal mit