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(\提取行信息.txt\) a_CHT = AllText.Split(vbCrLf)
My.Computer.FileSystem.WriteAllText(\提取行信息.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)