HTML Quellcode mit VB ändern

[ronaldo84]

Hallo.
Ich habe folgendes Problem. Ich möchte den Quelltext einer HTML Datei mit VB verändern. Dazu muss ich die Datei öffnen den den String suchen den ich ersetzen will und dann die Ersetzung vornhmen. Leider klappt das irgendwie nicht. Dazu habe ich aus einem Tutorial folgenden Code der genau die oben gennanten Schritte machen soll:

vsFind = "Test"
vsReplace = "Fertig"
FN1 = FreeFile()
	MsgBox (firm & "-preisliste.htm")
	Open "C:\Datenbank\" & firm & "-preisliste.htm" For Input As #FN1
	 Do While Not EOF(FN1)
		Line Input #FN1, strLine
		If InStr(strLine, vsfind) > 0 Then
		 strLine = Replace(strLine, vsfind, vsReplace)
		End If
		Loop
Close #FN1

Leider klappt das nicht. Kann ich das überhaupt so machen? Wird die Datei auch im modus zum editiern geöffnet? Kann mir jemand dabei helfen? Oder bin ich auf der flaschen Spur?
Danke schonmal

P.S. Es kommt keine Fehlermeldung. Alles läuft Fehlerfrei ab. Er wird nur keine Änderung in der Datei vorgenommen.

 

[Shakie]

Du veränderst die Zeile nur in der Variable "strLine", aber nicht in der Datei. Du musst die Zeile dann auch wieder in die Datei reinschreiben, sonst tut sich da nichts. Wenn du eine Datei mit "For Input" öffnest kannst du allerdings nur lesen und nicht gleichzeitig reinschreiben.