テキストファイルのテキスト文字列を置き換える方法

Question

私はvb.netを初めて使用していて、本当に簡単なことをしようとしています。私は.iniファイルから特定の行のテキストを読み取るこのコードを持っています。

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) 

どのように私はそれはあなたがTextBox_NewUserに入力する何かを"="後にテキストの行を置き換え作るのですか。現在のコードでわかるように、私は欲しくない"UserName ="全体を置き換えます。

デフォルトでの.ini内のテキストの特定の行がこの値を持っていること：

"UserName = Unnamed" 

それでは、どのように私はそれは私がTextBox_NewUserを入力何かで、ちょうどその"Unnamed"を交換するのですか？

ご協力いただければ幸いです。

Answer 1

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

Answer 2

これについてもう1つの方法があります。これには別のアサーションがあります。コードは以下の行が空白で始まっていないと仮定し、彼らがした場合は、最初STARTSWITHなど

設定ファイル

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

コード

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 

を使用する前に、各行のトリムを行うだろう

Microsoft OneDriveのサンプルプロジェクト、VS2013 https://onedrive.live.com/redir?resid=A3D5A9A9A28080D1!907&authkey=!AKQCanSTiCLP4mE&ithint=file%2czip