VB对文件进行读取信息并返回到列表框条目

概述Public Function ListA(Path As String, Sz() As String, objA As Object) As Integer '声明Path路径,Sz字符串数组,ObjA对象形参Dim a1 As String '一个临时变量Dim Temp As String '呵呵，又是一个临时变量Dim Js As Integer '饿，还是一个临时变量Js =

Public Function ListA(Path As String,Sz() As String,objA As Object) As Integer  '声明Path路径,Sz字符串数组,ObjA对象形参Dim a1 As String '一个临时变量Dim Temp As String '呵呵，又是一个临时变量Dim Js As Integer '饿，还是一个临时变量Js = 0 '初始化获取行数变量值为0Open Path For input As #1 '输出List2.lis文件'使用Js变量获取整个lis文件的长度Do Until EOF(1) = Trueline input #1,TempJs = Js + 1LoopClose #1'-----------------------------------------------Open Path For input As #2For i = 0 To Js \ 2 - 2line input #2,a1objA.AddItem a1Next i'-----------------------------------------------'这里本想用For循环代替的，但好像容易溢出，鬼知道怎么回事line input #2,Temp '将文本中间两行废话读进temp变量line input #2,Temp ''-----------------------------------------------ReDim Sz(Js \ 2 - 2) '重新定义a2数组For i2 = 0 To Js \ 2 - 2 'Js总行数减去两行废话剩下的再除以上面和下面两个line input #2,Sz(i2)Next i2Close #2 '关闭文件ListA = Js / 2 - 2 + 1End Function

之后再调用

Dim ListTextNumber() As StringPrivate Sub Form_Load()Dim ReturnList As IntegerReturnList = ListA(App.Path & "\ListItem.Item",ListTextNumber,List1)End Sub

该函数可以读取某个文件的信息，并且返回到列表框。 总结

以上是内存溢出为你收集整理的VB对文件进行读取信息并返回到列表框条目全部内容，希望文章能够帮你解决VB对文件进行读取信息并返回到列表框条目所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。