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

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!

Versuch´s mal so;

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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

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

MfG
TakaYuka