一个关于文件操作的小问题! 弱弱的给10分
问题简单大家不要见笑我现在读一个*.dat文件，用Do While Not EOF(1)...loop循环历遍每一行，当我读到某一行的时候想跳出循环不再继续读，就是相当于 EOF()=true，都有什么办法啊 ！ --------------------编程问答-------------------- break; --------------------编程问答-------------------- 晕，VB...
Exit Do --------------------编程问答-------------------- 哦 谢谢，怎么把指针知道最后一行呢 --------------------编程问答-------------------- 不能从某一行直接跳到最后一行。
可以逐行读到末尾，也可以一次读入然后以vbcrlf为界分离为一个数组，然后读取数组中相应元素。 --------------------编程问答--------------------
Function getLine(myPath As String, myLine As Long)
Dim FN As Integer, tmpLine As Long, tmpMyStr As String
FN = FreeFile
Open myPath For Input As #FN
Do While Not EOF(FN)
Line Input #FN, tmpMyStr
tmpLine = tmpLine + 1
If tmpLine = myLine Then getLine = tmpMyStr: Exit Do
Loop
Close FN
End Function
临时给你写的 --------------------编程问答--------------------
不清楚跳到最后一行的目的，如果文件比较大的话，个人建议使用API函数CreateFile,SetFilePointer,ReadFile,WriteFile,CloseHandle，GetFileSize等来完成。 --------------------编程问答-------------------- 用exit do退出
补充：VB , 基础类
