0

我的起始代码将从文本文件中读取所有行并将它们放在一个数组中

Public textArray As String()
textArray = File.ReadAllLines("textfile.txt")

我希望能够删除一行文本，编辑一行文本并将一行文本添加到文本文件中。我的想法是在行中显示所有文本行，我可以单击一行并将文本放置在文本框中，从该文本框中我可以编辑文本。删除、编辑和添加将是三个单独的按钮。

我需要一个起始代码，我对如何启动它感到困惑。

4

2 回答 2

1

列表框将非常适合您的任务。加载文件就像使用 items 集合的 AddRange 方法一样简单ListBox1.Items.AddRange(File.ReadAllLines("textfile.txt"))。

使用 File.WriteAllLines 保存数据同样简单File.WriteAllLines("textfile.txt", ListBox1.Items)。

要编辑数据，您可以使用按钮并读取列表框中的选定行，或者您可以处理选定的 indexchanged 事件

于 2013-08-02T16:52:19.163 回答
0

我建议使用StreamreaderandReadLine()来阅读所有行并使用 aList来保存它们。

所以读取+保存的代码是：

Dim lineList As New List(Of String)()

Dim sr As StreamReader = New StreamReader(path)

    Do While sr.Peek() >= 0
         lineList.add(sr.ReadLine())
    Loop

然后在表单中添加一些标签（带有文本）：

For i as Integer = 0 to lineList.Count - 1
    Dim Label as New Label
    lineLabel.Text = lineList.Item(i)
    lineLabel.Location = New Point(0, 50 * i) 'you can change the 50 to whatever value you want
    Me.Controls.Add(Label)
    AddHandler Label.Click, AddressOf Me.Label_Click 'here we add a handler for the label-clicks
Next

处理程序将如下所示：

 Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    'handle the label clicks here
 End Sub
于 2013-08-02T08:36:17.367 回答