vb 读取文件指定行
发布时间：2020-12-16 22:16:30 所属栏目：大数据 来源：网络整理
导读：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
|
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) '第一个参数是路径，第二个参数是你要读取的行数（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |