清理数组中重复的数据和读取顺序文件到数组 清理数组中重复的数据 Public Function ClearArray(A() As String, ByRef B() As String) Dim i As Long Dim j As Long Dim N As Long Dim L As Long i) For j = 0 To UBound(B) If Temp1 = B(j) Then Temp = True: Exit For End Function ...展开收缩
1 , Manager.zipThis has assorted functions (file copy, time, settings, etc).2 , manc-html.zipAn example I did to retreive an Email Address or URL from an HTML file.3 , basFile.zipThis bas fi le is filled with assorted file related functions. If you
'--------cIniFile.cls 代码---------------- '这里定义了一个cIniFile类 Option Explicit '// Private member that holds a reference to '// the path of our ini file Private strInI As String '// Win API Declares Private Declare Function WritePrivateProfileString _ L
