【SolidWorks宏】将文件数据一行一行添加到ListBox

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/chenlu5201314/article/details/80287714
Rem 将文件数据一行一行添加到ListBox
Public Sub LoadFileToListBox(filePath As String, lb As ListBox)
    '声明
    Rem Dim filePath As String
    Dim fs As Object
    Dim otf As Object
    Dim localylp As Double
    Dim count As String
    Dim line As String
    '清空ListBox
    lb.Clear
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(filePath) = True Then
        Open filePath For Input As #1
            count = 0
            '如果1号文件没有到文件结尾(EndOfFile)
            Do While Not EOF(1)
                '将1号文件的一行赋值给strX
                Line Input #1, line
                If Left(line, Len(YLP)) = YLP Then localylp = count
                lb.AddItem line
                count = count + 1
            Loop
        Close #1
        lb.ListIndex = localylp
    Else
        MsgBox "文件""" & filePath & """不存在"
    End If
End Sub

Rem 用户窗口初始化
Private Sub UserForm_Initialize()
Dim localylp As Double
localylp = 0
filePath = "C:\Test.txt"
 LoadFileToListBox filePath, lstMat
End Sub

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页