Text in .txt inbestimmte pos. schreiben

[TakaYuka]

Hi zusammen,
Mein Problem: Mein Programm soll einen bestimmten Text an einen bistimmten Ort in einer .txt Datei schreiben. (Will nicht umbedingt .ini benutzen).

Die Datei sieht etwa so aus:
ip =
port =
usw...
Nun soll er den Wert hinter das "=" schreiben. Wenn bereits einen Wert da steht soll er den überschreiben.

Sorry wenn dieses Problem bereits einmal im Forum behandelt wurde aber ich habe mit der Suchfunktion nichts gefunden was mit hier genau weiterhelfen könnte.

MfG
TakaYuka

 

[DrSoong]

Lies deine Datei doch einfach mit Open/Input in ein Array ein, such mit InStr() das "=" und ersetzte den dahinter stehenden Text duch den gewünschten Text. Dann einfach das ganze Array wieder speichern.


Der Doc!

 

[wincnc]

Versuch´s mal so;

Private Sub Command1_Click()
Dim Text As String
Dim NeuerText As String

Nr = FreeFile
Open "D:\Test.txt" For Input As #Nr
 While Not EOF(Nr)
  Line Input #Nr, Text
   If Mid(Text, 1, 4) = "ip =" Then Text = "ip = 192.168.100.1"
   If Mid(Text, 1, 6) = "port =" Then Text = "port = 1068"
  NeuerText = NeuerText & Text & vbCrLf
 Wend
Close #Nr

MsgBox NeuerText

Kill "d:\test.txt"

Nr = FreeFile
Open "D:\Test.txt" For Binary As #Nr
Put #Nr, , NeuerText
Close #Nr

End Sub

 

[TakaYuka]

Danke für die schnellen Antworten. Geht nun perfekt!

MfG
TakaYuka