读取文件指定行 VB源码

温总

Public Function ReadRowConnent(FileName As String, iRow As Integer)
    'FileName = App.Path & "\Config.ini"
    If Len(Dir$(FileName)) = 0 Then
        err.Raise 53 '文件没有找到
        '这里处理没找到文件事件
    Else
        Dim j As Integer
        j = 0
        Open FileName For Input As #1
        '取文件内容，这种是知道文件的固定行数
        Do While Not EOF(1)
            '------------取文件内容
            Line Input #1, DateSr
            j = j + 1
            If j = iRow Then '这个你也可以用其他判断语句。
                '在这里可以处理 TEMP 读取的内容
                ReadRowConnent = DateSr
            End If
        Loop
        Close #1
    End If

End Function

'调用方法------------------------------------------------

Text1 = ReadRowConnent(app.path & "/config.ini", 2) '第一个参数是路径，第二个参数是你要读取的行数

xxhaishixx

感觉挺好

itxmft

小手一抖  经验到手`