VB中如何获得txt文本文件中指定某行的内容.....

Question

dim sContent as String
sContent = String(1024, 0)
SendMessage TextBox.hWnd, EM_GETLINE, lLine, sContent

Answer 1

Dim strTemp As String
Dim iLine As Integer
Open "testFile.dat" For Input As #1    '打开文件
iLine = 1
Do While Not EOF(1) And iLine < 3   '循环读取一行数据
   Line Input #1, strTemp    '读入一行数据
   iLine = iLine + 1
Loop
Close #1    '关闭文件

Answer 2

我觉得只能以行一行的读取，就像 dengdun 给出的源代码一样
因为txt文件是一个顺序文件，不可能立即找到指定的位置的

Answer 3

另外顺便一提的是，如果你用的是VB6的话，不妨使用文件系统对象(File System Objects)，它比传统的方式更加高效
用法如下：Dim fso as new filesystemobjects, ts as new TextStream
txtfile,fill as File
Set txtfile =fso.CreateTextFile("c:\1.txt", true)
Set fill=fso.GetFile("c:\1.txt")
Set ts=fill.OpenAsStream(forWriting)
for i=1 to 4
 ts.Write "Firing_Sky"
next
ts.close
Set ts=fill.OpenAsStream(forReading)
for i=1 to 4
 s=ts.ReadLine
next
ts.close

Answer 4

可以使用VB6中的FileSystemObject 对象和TextStream 对象
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.skipline
?a.readline
a.Close

Answer 5

我的基本思路和dendun一样
不过如果这个txt文件被读到textbox里可以用api函数取得
SendMessage text.hwnd,EM_GETLINE,行数，ByVal S
　其中s为字符串变量通过这个函数s为这行的内容
　s的长度可用
POS=SendMessage text.hwnd,EM_LINEINDEX,行数，ByVal 0&
LENGTH=SendMessage text.hwnd,EM_LINELENGTH,POS，ByVal 0&
　求得