高手來看看,散分,VB 正則表達式

Question

兩個問題 :
1,當我使用Set regEx = New RegExp ' 建立正则表达式時候,錯誤提示:使用者自定型態未定義
2,我要提取地址欄中的文件名且不要後墬,你有甚麼好的思路嗎?

Answer 1

库文件的名称叫:
mircosoft vbScript Regular Expressions 5.5(或者1.0后面是版本号) 

Answer 2

先添加对Microsoft VBScript Regular Expressions x.x的引用。
不过如果只是要实现第2个问题，直接分析字符串就行了，不必用正则表达式。

Answer 3

添加了引用是能用regex了,但當用execute方法時又報錯,(引數的個數錯誤或使用了不正確的屬性)請問是甚麼問題,另外,請問happy_sea,你說的分析字串如何做,謝謝

Answer 4

如果你说的是网页地址，比如这个帖子的url
http://topic.csdn.net/u/20080724/09/bdc81309-4a43-4197-89cc-1d21c6a134da.html
那么可以用下面的代码：
Private Sub Command1_Click()
    Dim strUrl As String, strResult As String
    Dim nStart As Integer, nEnd As Integer
    strUrl = "http://topic.csdn.net/u/20080724/09/bdc81309-4a43-4197-89cc-1d21c6a134da.html"
    nStart = InStrRev(strUrl, "/") + 1
    nEnd = InStrRev(strUrl, ".")
    strResult = Mid(strUrl, nStart, nEnd - nStart)
    Debug.Print strResult
End Sub我是为了让你看得更明白才写这么复杂，其实只要下面一句就足够了：
Debug.Print Mid(strUrl, InStrRev(strUrl, "/") + 1, InStrRev(strUrl, ".") - InStrRev(strUrl, "/") - 1)
如果不是网址，其他字符串也可类似处理。

Answer 5

instr只返回第一次找到它的位置,但可能有許多這樣的字符,我要的是最後一個的位置.

Answer 6

楼主仔细看看是instrrev而不是instr，instrrev是从后面往前匹配的，你把我的代码测试一下就知道了。

Answer 7

你的regEx要先定义且对象RegExp 存在阿