将数据与资源分开

时间:2014-03-22 05:59:38

标签: arrays vb.net

我正在创建数组并在ListBoxes 1和2中分离它的组件; 代码从文本文件(data1.txt)获取数据然后拆分; 文件内容如下:

Name1111xx,Phone1111yy
Name2222xx,Phone2222yy
Name3333xx,Phone3333yy
Name4444xx,Phone4444yy
Name5555xx,Phone5555yy
Name6666xx,Phone6666yy
Name7777xx,Phone7777yy
Name8888xx,Phone8888yy
Name9999xx,Phone9999yy

代码会将名称放在textbox1textbox2中的电话中; 现在我将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

1 个答案:

答案 0 :(得分:0)

问题可能是文本文件的路径。在您的代码中,

For Each line As String In IO.File.ReadAllLines("Data1.txt")

Data1.txt应该是该文件的path。您说您已将其位置更改为资源文件夹,因此您可能会获得path