我写的一段程序，供大家参考。

Question

问题：怎样从一个文本文件中读取一个特定行的从某个字符开始的长度已知的字符串？
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中？早上我自己写了一段，可以实现该功能，很简单，班门弄斧一回，请指教！
Dim a As Integer
a = 0
Dim string1 As String
Dim newline As String
Open "（此处为文件路径和文件名）" For Input As #1
Do While a < 50  '50代表要找的是第50行
Line Input #1, newline
  a = a + 1
Loop
string1 = Mid(newline, 28, 9)  '从第28个字符开始，长度为9的字符串
Text1.Text = string1  '将找出的字符串在text文本筐中显示出来该程序主要用了函数line input，a是一个记录变量，用于记录找了多少行。

Answer 1

怎样从一个文本文件中读取一个特定行的从某个字符开始的长度已知的字符串？
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中？
比如你要读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中。
你可以这样做：
先是打开文件，然后：
dim str as string
dim i as integer
do not Atendofstream then
   i=i+1
   if i=3 then str=readline
loop while i>3
 再就是:mid(str,4,5)