1.型別
2.型別/廠家
3.型別/廠家/型號
求一個通用的正則運算式，能夠提取最后的文字
結果:
1.型別
2.廠家
3.型號
uj5u.com熱心網友回復：
試試這個:\w+$
uj5u.com熱心網友回復：
一如既往的提供非正則運算式方案：
Sub test()
Debug.Print getLast("型別")
Debug.Print getLast("型別/廠家")
Debug.Print getLast("型別/廠家/型號")
End Sub
Function getLast(strIn As String) As String
Dim tmp() As String
tmp = Split(strIn, "/")
getLast = tmp(UBound(tmp))
End Function
uj5u.com熱心網友回復：
如果嫌棄用了三行代碼，那就改成一行。
Sub test()
Debug.Print getLast("型別")
Debug.Print getLast("型別/廠家")
Debug.Print getLast("型別/廠家/型號")
End Sub
Function getLast(strIn As String) As String
getLast = Split(strIn, "/")(UBound(Split(strIn, "/")))
End Function
uj5u.com熱心網友回復：
雖然不對題，但確實可以解決
uj5u.com熱心網友回復：
簡單的邏輯即可處理的事情沒有必要動用正則運算式。畢竟正則運算式引擎內邏輯復雜得多，增大消耗，還要因此而參考類別庫，沒有必要。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/23411.html
標籤：VBA
上一篇：VB 模糊洗掉sheet
下一篇：modbus poll的二次開發