UC知道这段VB也帮忙看下
来源：百度知道 编辑：UC知道 时间：2024/05/24 08:53:43
最好详细点，比如For Input As #1是什么意思？
Function LoadFile(sFileName)
If Dir(App.Path & "\G代码\" & sFileName & ".ini") = "" Then Exit Function
Dim strV$
lstSubCategory.Clear
Open App.Path & "\G代码\" & sFileName & ".ini" For Input As #1
While Not EOF(1)
Line Input #1, strV$
'if Trim(strV$) <> "" Then
'用户自己配置文件应该不去考虑是否有回车
lstSubCategory.AddItem strV$
Wend
Close #1
End Function
Function LoadFile(sFileName)
If Dir(App.Path & "\G代码\" & sFileName & ".ini") = "" Then Exit Function
Dim strV$
lstSubCategory.Clear
Open App.Path & "\G代码\" & sFileName & ".ini" For Input As #1
While Not EOF(1)
Line Input #1, strV$
'if Trim(strV$) <> "" Then
'用户自己配置文件应该不去考虑是否有回车
lstSubCategory.AddItem strV$
Wend
Close #1
End Function
Function LoadFile(sFileName)
If Dir(App.Path & "\G代码\" & sFileName & ".ini") = "" Then Exit Function '如果打不到文件就退出函数
Dim strV$
lstSubCategory.Clear '清除列表
Open App.Path & "\G代码\" & sFileName & ".ini" For Input As #1 '用记录指针1 打开一个可以读的文件
While Not EOF(1) '读取数据 直到结尾
Line Input #1, strV$ '以行读取数据,,,
'if Trim(strV$) <> "" Then
'用户自己配置文件应该不去考虑是否有回车
lstSubCategory.AddItem strV$ '增加数据到 列表
Wend
Close #1
End Function