我正在创建数组并在ListBoxes 1和2中分离它的组件; 代码从文本文件(data1.txt)获取数据然后拆分; 文件内容如下:
Name1111xx,Phone1111yy
Name2222xx,Phone2222yy
Name3333xx,Phone3333yy
Name4444xx,Phone4444yy
Name5555xx,Phone5555yy
Name6666xx,Phone6666yy
Name7777xx,Phone7777yy
Name8888xx,Phone8888yy
Name9999xx,Phone9999yy
代码会将名称放在textbox1
和textbox2
中的电话中;
现在我将data1.txt移动到Solution Resources;
我试着做同样的分离,但我做不到;它可能是简单的代码?
我编写代码并将其插入richtextbox1;
我的代码如下:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each line As String In IO.File.ReadAllLines("Data1.txt")
Dim AllData = line.Split(","c)
Dim Name = AllData(0)
Dim Phone = AllData(1)
ListBox1.Items.Add(Name)
ListBox2.Items.Add(Phone)
Next
TextBox1.Text = "Data2"
Dim objReader As String = My.Resources.ResourceManager.GetObject(TextBox1.Text)
RichTextBox1.AppendText(objReader)
End Sub
End Class
答案 0 :(得分:0)
问题可能是文本文件的路径。在您的代码中,
For Each line As String In IO.File.ReadAllLines("Data1.txt")
Data1.txt
应该是该文件的path
。您说您已将其位置更改为资源文件夹,因此您可能会获得path
。