Hallo Leute,
Ich habe zwar schon in diesem Forum einen änlichen Beitrag gefunden und auch getestet, aber anscheind will es wohl nicht richtig.
Ich habe ein Programm, dass eine Items.txt läd. Formatierung der Datei:
Äpfel$2
Holz$17
Gold$0
usw.
EDIT:
Das Programm läd diese Datei und splittet dann jede Zeile in 2 Stücke mit folgendem Code:
Spoiler anzeigen
Nur jetzt noch die Item.txt mit dem ersetzten Ihnalt wieder zu speichern, bekomm ich auch nicht hin, weil ich nicht weiß, wie ich die geänderte Datei ansprechen kann...
Dies ist die Lösung:
Ist mir da zu helfen?
DANKE!
Ich habe zwar schon in diesem Forum einen änlichen Beitrag gefunden und auch getestet, aber anscheind will es wohl nicht richtig.
Ich habe ein Programm, dass eine Items.txt läd. Formatierung der Datei:
Äpfel$2
Holz$17
Gold$0
usw.
EDIT:
VB.NET-Quellcode
- Dim Lines() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\Items.txt")
- For Each Line As String In Lines
- Dim Split() As String = Line.Split(CChar("$"))
- 'Hier z.B. die Äpfel-Anzahl 2 mit der Zahl 7 ersetzen
- If Split(0) = "Äpfel" and Split(1) = "2" then
- Split(1) = Split(1).replace(Split(1), "7")
- End If
- next
Dies ist die Lösung:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim sFile = Application.StartupPath & "\Items.txt"
- Dim lines() As String = File.ReadAllLines(sFile)
- Using writer = New StreamWriter(sFile, False)
- For Each line In lines
- Dim data = line.Split("$"c)
- If data(0) = "Äpfel" AndAlso data(1) = "2" Then data(1) = TextBox_NeuesValue.Text
- writer.WriteLine(String.Join("$", data))
- Next
- End Using
- End Sub
I
DANKE!
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TRiViUM“ ()