取出字串的問題 - Excel程式區 - 麻辣家族討論版版

[發問] 取出字串的問題

　暱稱: 南宮飄雪

1^# 跳轉到 »

發表於 2016-10-22 21:00 | 顯示全部帖子

回復 6# modelcrazyer

如果你是要從路徑中取出文檔名的話，送你一好用一點的函數，這個程式的特點是容錯性要好一些：

#If VBA7 Then
Private Declare PtrSafe Function PathRemoveBackslashW Lib "shlwapi.dll" (ByVal pszPath As LongPtr) As Long
Private Declare PtrSafe Function PathStripPathW Lib "shlwapi.dll" (ByVal pszPath As LongPtr) As Long
Private Declare PtrSafe Function PathRemoveExtensionW Lib "shlwapi.dll" (ByVal pszPath As LongPtr) As Long
Private Declare PtrSafe Function lstrlenW Lib "kernel32.dll" (ByVal lpString As LongPtr) As Long
#Else
Private Declare PtrSafe Function PathRemoveBackslashW Lib "shlwapi.dll" (ByVal pszPath As Long) As Long
Private Declare PtrSafe Function PathStripPathW Lib "shlwapi.dll" (ByVal pszPath As Long) As Long
Private Declare PtrSafe Function PathRemoveExtensionW Lib "shlwapi.dll" (ByVal pszPath As Long) As Long
Private Declare PtrSafe Function lstrlenW Lib "kernel32.dll" (ByVal lpString As Long) As Long
#End If
Public Function ExtractFileName(ByVal FileName As String, Optional ByVal ExtensionReturn As Boolean = True) As String
Dim I As Long
Dim strPath As String
#If VBA7 Then
Dim ptrFileName As LongPtr
#Else
Dim ptrFileName As Long
#End If
FileName = Trim$(FileName) & String(5, vbNullChar)
ptrFileName = StrPtr(FileName)
PathRemoveBackslashW ptrFileName
PathStripPathW ptrFileName
If Not ExtensionReturn Then PathRemoveExtensionW ptrFileName
I = lstrlenW(ptrFileName)
If I > 0 Then ExtractFileName = Trim$(Left$(FileName, I))
End Function

複製代碼

下面的程式是測試用的：

複製代碼

世界那麼大，可我想去哪？

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。