[野人獻曝]自己寫的 Function(找字串)

[mini]

^^ 劍痞憶秋年 可以隨意用
貼出來就是不打算自己用的

至於If TextTemp = "" Then Exit Function
也可以已那麼做 ^^||
如果不那麼做 可以當作跳過一次

1\0 這樣的寫法
只是自己認為比較好分辨的說 (1 代表開頭 0 代表結尾，與 C or Pascal 無關^^||)

這個涵式是一年前寫的
當時算是第一次寫複雜的專案
其後只修改過一次
所以有問題也不是沒可能的

至於 no 的問題...
原則上
ByVal TextTemp, ByVal NOStringIs, Optional ByVal StartNO As Long
三個參數
幾乎都要填寫的
如此用起來都沒問題
第三個參數(不填寫) 應用在 連續取值
如有疑慮
可以自行修改涵式

最近在規劃一個 4星彩 的程式
也有用到這個涵式(自己的近10個專案百分之8 9 10都有用到)
如果 憶秋兄 改出心得的話
也請不吝指教的說 ^^

(對了 憶秋兄 之前的兩篇不知為何自與刪除了 ??)

Public Function StringSplit_Str(ByVal TextTemp, ByVal NOStringIs, Optional ByVal StartNO As Long)
Dim CharNO As Long
Static no As Long

If TextTemp = "" Then Exit Function
If Mid$(NOStringIs, 1, 3) = "1\0" Then GoTo AgainstSearchLABLE

If StartNO = 0 Then
no = no + 1
StartNO = Abs(no)
ElseIf StartNO > 0 Then
no = 0
End If

Do
StartNO = StartNO - 1
CharNO = InStr(1, TextTemp, NOStringIs, vbBinaryCompare)

If CharNO > 1 Then
StringSplit_Str = Mid$(TextTemp, 1, CharNO - 1)
ElseIf CharNO = 0 Then
StringSplit_Str = TextTemp
ElseIf CharNO = 1 Then
StringSplit_Str = ""
End If
TextTemp = Mid$(TextTemp, CharNO + Len(NOStringIs)) 'trim
If CharNO = 0 And StartNO <> 0 Then
StringSplit_Str = ""
Exit Function
End If
Loop Until StartNO = 0
Exit Function

AgainstSearchLABLE:
'逆搜尋字串 NOStringIs
no = Len(TextTemp)

NOStringIs = Mid$(NOStringIs, 5)
CharNO = InStrRev(TextTemp, NOStringIs, no, vbBinaryCompare)
CharNO = CharNO - 1

If StartNO = 1 Then '路徑
StringSplit_Str = Mid$(TextTemp, 1, CharNO + Len(NOStringIs))
ElseIf StartNO = 0 Then '檔名
StringSplit_Str = Mid$(TextTemp, CharNO + Len(NOStringIs) + 1)
End If

End Function