少莫千华

Rem "读取文件的第一行数据"Public Function ReadFirstLineDataFromFile(fileName) As String '声明 Dim filePath As String Dim fs As Object Dim otf As Object '执行过程 filePath = fileName ...

REM "获取数组长度"Public Function ArrayLength(ByVal ary) As Integer ArrayLength = UBound(ary) - LBound(ary) + 1End FunctionREM "调用示例"Sub SplitSample() '声明 Dim temp() As String Dim EgStr...

Rem 将文件数据一行一行添加到ListBoxPublic 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 ...

Rem 获取SolidWorks的标题并解析Private Sub SldWorks_GetTitle() Dim SwApp As Object Dim TitleStr As String Dim PartStr() As String Dim Part1 As String Dim Part2 As String Dim Swmodel As...

Rem 向指定的文件写入一行数据Public Sub WriteFirstLineDataToFile(filePath As String, content As String) '声明 Dim fs As Object Dim ctf As Object '执行过程 Set fs = CreateObject("Scripting.FileS...

Rem 选择文件夹Public Sub SG_BrowseForFolder() '** 使用Shell.Application对象来选择文件夹 Dim objShell Dim objFolder Dim strPath As String Set objShell = CreateObj...

Rem 选择文件-从注册表中获取Function SG_BrowseForFileFromReg() Dim shell: Set shell = CreateObject("WScript.Shell") Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") Dim tempFolder: Set t...