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)