So ersetzen Sie die Textzeichenfolge in einer Textdatei

Question

Ich bin neu bei vb.net und versuche, etwas wirklich einfaches zu tun. Ich habe diesen Code, der bestimmte Zeile von Text aus INI-Datei liest.

Dim FilePath As String = Application.StartupPath & "\bin\userconfig.ini" 
Dim text As String = IO.File.ReadAllText(FilePath) 
Dim newText = text.Replace("UserName = ", TextBox_NewUser.Text) 
IO.File.WriteAllText(FilePath, newText) 

Wie ich es, dass die Textzeile nach dem "=" ersetzen mit etwas, das Sie in TextBox_NewUser eingeben. Wie Sie mit dem aktuellen Code sehen können, ersetzt es nur die ganze "UserName =", die ich nicht will.

Das spezifische Textzeile in der ini standardmäßig diesen Wert hat:

"UserName = Unnamed" 

So wie ich es zu ersetzen, genau das "Unnamed" mit etwas, das ich in TextBox_NewUser geben?

Jede Hilfe wird am meisten geschätzt.

Answer 1

Dim newText = text.Replace("UserName = Unnamed", "UserName = " & TextBox_NewUser.Text) 

Answer 2

Hier ist ein anderer Weg, um dies zu tun, gibt es zusätzliche Aussagen, die gemacht werden könnten, z.B. der folgende Code übernimmt die Linien beginnen nicht mit Leerzeichen und wenn sie es tun würden Sie zuerst auf jeder Zeile ein Trimm tun, bevor Starts usw.

Config-Datei

Role = Moderator 
UserName = xxxx 
Joined = 09/23/1006 

-Code

Public Class Form1 
    Private fileName As String = 
     IO.Path.Combine(
      AppDomain.CurrentDomain.BaseDirectory, "userConfig.ini") 
    ''' <summary> 
    ''' assumes the file exist but does not assume there is text in 
    ''' the text box. 
    ''' </summary> 
    ''' <param name="sender"></param> 
    ''' <param name="e"></param> 
    ''' <remarks></remarks> 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     If Not String.IsNullOrWhiteSpace(TextBox_NewUser.Text) Then 
      Dim lines As List(Of String) = IO.File.ReadAllLines(fileName).ToList 
      For index As Integer = 0 To lines.Count - 1 
       If lines(index).ToLower.StartsWith("username") Then 
        lines(index) = String.Concat("UserName = ", TextBox_NewUser.Text) 
       End If 
      Next 
      IO.File.WriteAllLines(fileName, lines.ToArray) 
     End If 
    End Sub 
End Class 

mit

Beispielprojekt für Microsoft OneDrive, VS2013 https://onedrive.live.com/redir?resid=A3D5A9A9A28080D1!907&authkey=!AKQCanSTiCLP4mE&ithint=file%2czip