VB 函数收集

'自定义函数从字符串中分离出路径

Function ParsePath (sPathIn As String) As String
　 Dim I As Integer
　 For I = Len(sPathIn) To 1 Step -1
　　 If InStr(":", Mid$(sPathIn, I, 1)) Then Exit For
　 Next
　 ParsePath = Left$(sPathIn, I)
End Function

'自定义函数从字符串中分离出文件名

Function ParseFileName (sFileIn As String) As String
　 Dim I As Integer
　 For I = Len(sFileIn) To 1 Step -1
　　 If InStr("", Mid$(sFileIn, I, 1)) Then Exit For
　 Next
　 ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)
End Function

'自定义函数从字符串中分离出文件扩展名

Function GetFileExt (sFileName As String) As String
　 Dim P As Integer
　 For P = Len(sFileName) To 1 Step -1
　　 If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
　 Next
　 GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function

'**************************************
'INI 读写模块
'FieldMAX 2006-11-16
'
'值 = GetINI(标题, 变量, [默认], [文件名])
'WriteINI(标题, 变量, 值, [文件名])
'**************************************

'INI 文件 API 函数
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
                (ByVal LpApplicationName As String, ByVal LpKeyName As Any, ByVal lpDefault As String, _
                ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
                (ByVal LpApplicationName As String, ByVal LpKeyName As Any, ByVal LpString As Any, ByVal lpFileName As String) As Long
'---------------------------------------------------------------------------------
'API函数变量说明
    'LpApplicationName: 被读写段的段名?
    'LpKeyName: 被读写的条目的关键字名?
    'LpString：写入INI文件的值（当进行写操作时）。
    'lpDefault:：段中的默认返回值以及（或者）读操作时关键字未找到时的默认返回值。
    'lpReturnedString：从INI文件读到的数据（当进行读操作时）。
    'nSize: 返回的最大字符数?设置为 lpReturnedString的长度?
    'lpFileName：INI文件的文件名，包括完整的路径名。
'--------------------------------------------------------------------------------
Public Function GetINI(ByVal ApplicationName As String, ByVal KeyName As String, Optional ByVal Default As String = "", Optional ByVal FileName As String = "config.ini") As String
    Dim Retval As Long
    Dim Value As String
    FileName = IIf(Mid(FileName, 2, 2) = ":\", FileName, AppPath & FileName)
    Value = Space(128)
    Retval = GetPrivateProfileString(ApplicationName, KeyName, Default, Value, Len(Value), FileName)
    GetINI = Left(Trim(Value), Len(Trim(Value)) - 1)
End Function

Public Sub WriteINI(ByVal ApplicationName As String, ByVal KeyName As String, ByVal Value As String, Optional ByVal FileName As String = "config.ini")
    Dim Retval As Long
    FileName = IIf(Mid(FileName, 2, 2) = ":\", FileName, AppPath & FileName)
    Retval = WritePrivateProfileString(ApplicationName, KeyName, Value, FileName)
End Sub