Question

vb.Net对文件指定字符串的修改

小弟刚涉及VB.Net不久，遇到个不会的习题，求大神指点。
要求点击下一条按钮可以显示每块各自区域的字符串，如果按了修改的话可以把文本框中的内容替换到原有的位置（替换掉那一块的所有内容）。
不知道用哪个访问方式可以实现我的要求。
文件内容和界面如图！





Answer 1

文本框 TextBox1
上一条 Button1
下一条 Button2
修改 Button3

Imports System.IO
Public Class Form1
    Dim currIndex As Integer = 0
    Dim s2 As List(Of String) = New List(Of String)
    Dim s As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        s = File.ReadAllText(Application.StartupPath & "\txt.txt")
        Dim s1 As String() = s.Split("@")
        For i As Integer = 0 To s1.Length - 1
            If s1(i).Trim() <> "" Then
                s2.Add("@" & s1(i))
            End If
        Next
        TextBox1.Text = s2(0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        currIndex = currIndex + 1
        If currIndex > s2.Count - 1 Then
            MsgBox("已经是最后条了")
            Return
        End If
        TextBox1.Text = s2(currIndex)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        currIndex = currIndex - 1
        If currIndex < 0 Then
            MsgBox("已经是第一条了")
            Return
        End If
        TextBox1.Text = s2(currIndex)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        s2(currIndex) = TextBox1.Text
        s = ""
        For i As Integer = 0 To s2.Count - 1
            s &= s2(i)
        Next
        File.WriteAllText(Application.StartupPath & "\txt.txt", s)
    End Sub
End Class

Answer 2

这样就可以了

追问

您的这个方法只能实现一次对一个字符的读出吧，而且已没有办法对于多行读写，能帮我再改改么？

追答

后来这个我之前已经改过了，重下即可