Option Explicit
'字符替换函数
Public Function THString(strName As String, strA As String, strB As String) As String
'用strA替换strB，均为一字节字符
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(strName) <> "" Then
For GetI = 1 To Len(Trim(strName))
GetJ = Mid$(strName, GetI, 1)
If GetJ = strB Then
Mid$(strName, GetI, 1) = strA
THString = strName'返回替换后的字符串
Exit For
End If
Next GetI
End If
End Function
'删除文件全路径函数
Public Function DeleFilePathName(Get_FileName As String) As String
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(Get_FileName) <> "" Then
For GetI = Len(Trim(Get_FileName)) To 2 Step -1
GetJ = Mid$(Get_FileName, GetI, 1)
If GetJ = "\" Then
GetK = Right$(Get_FileName, Len(Get_FileName) - GetI)
Exit For
End If
GetK = Get_FileName
Next GetI
For GetI = Len(GetK) To 1 Step -1
GetJ = Mid$(GetK, GetI, 1)
If GetJ = "." Then
Mid$(GetK, GetI) = Space$(6)
Exit For
End If
Next GetI
DeleFilePathName = Trim(GetK)'返回删除全路径后的文件名
End If
End Function
'获取文件扩展名函数
Public Function GetFileExtendName(sFileName As String) As String
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(sFileName) <> "" Then
For GetI = Len(Trim(sFileName)) To 1 Step -1
GetJ = Mid$(sFileName, GetI, 1)
If GetJ = "." Then
GetK = Right$(sFileName, Len(Trim(sFileName)) - GetI)
GetFileExtendName = Trim(GetK)'返回文件扩展名
Exit For
End If
Next GetI
End If
End Function
