写了几个函数,可以完成的所有的功能.下有代码 .并有例子.'''读取文本文件内的指定行.请不要设置太多.影响速度'''FilePath文件路径'''LineValue可选参数返回指定行数Function ReadFileLine(FilePath As String, Optional LineValue As Integer = 10) As StringIf Len(Dir(FilePath)) = 0 Then Exit FunctionDim t As String, i As Integer, f As Integerf = FreeFileOpen FilePath For Input As #fDo Wh...
