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

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

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/chenlu5201314/article/details/80287714
个人分类: SolidWorks宏
想对作者说点什么? 我来说一句

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

关闭
关闭
关闭