主题：正则式表达

  想知道在狐表中能不能使用RegExp，像下面的代码应该怎么转换？

**************************

'变量 Re 为正则式表达库
    Set Re = New RegExp
    Re.Pattern = "/toinputMsg\.action\?touserid=(\d+)"
   
    If Re.Test(s) Then
        Set ms = Re.Execute(s)
        GetUid = ms.Item(0).SubMatches(0)
    Else
        GetUid = -1
    End If

***************************