VS2010-VB环境读取TXT文件任意行.doc

VS2010 _VB环境读取TXT文件任意行
应用实例步骤：
1. 使用VS2010建立一个空白的VB 窗体工程：

2. 添加文本控件，如果需要多行显示注意勾选Multiline如图：

3. 完成后的窗口如图所示：

4. 建立Txt文档：

5. 添加原代码：

6. 运行效果：

绝对路径的源代码：
Dim AllText As String
Dim a_CHT() As String

AllText = My.Computer.FileSystem.ReadAllText("D:\提取行信息.txt")
a_CHT = AllText.Split(vbCrLf)
My.Computer.FileSystem.WriteAllText("D:\ 提取行信息.txt", Join(a_CHT, vbCrLf), False)
TextBox1.Text = Trim(a_CHT(CUInt(TextBox2.Text) - 1)).Replace(vbLf, "")

相对路径的源代码：
Dim AllText As String
Dim a_CHT() As String

AllText = My.Computer.FileSystem.ReadAllText(Application.StartupPath() & "\提取行信息.txt ")
a_CHT = AllText.Split(vbCrLf)
My.Computer.FileSystem.WriteAllText(Application.StartupPath() & "\提取行信息.txt ", Join(a_CHT, vbCrLf), False)
TextBox1.Text = Trim(a_CHT(CUInt(TextBox2.Text) - 1)).Replace(vbLf, "")

PS：1. D:\提取行信息.txt——你的文件存储路径；
2 a_CHT(CUInt(TextBox2.Text) - 1) 等同于 a_CHT(需要的行数-1)