[问题求助] 正则匹配url第一个反斜杠内容

522235677

比如 https://agc.qq.com/show/chan

匹配出show结果

zhanglei1371

这个？

http.*?//[^/]+/([^/]+)/.*$COPY

yu2n

Option Explicit
 
Test
 
'************************************************************************
Sub Test()
'************************************************************************
 
    Dim str, strPattern
    str = "https://agc.qq.com/show/chan"
    strPattern = "http[s]{0,1}:\/\/[0-9A-z\.]+?\/([^\/]+)?[\/]{0,1}?.*"
    MsgBox GetRE_SM0(str, strPattern)
 
End Sub
 
'************************************************************************
'正則表達式：取得字符串的第一個子匹配項目
'************************************************************************
Function GetRE_SM0(ByVal str, ByVal strPattern)
    Dim oRE
    Set oRE = CreateObject("vbScript.regExp")
    oRE.Pattern = strPattern
    If oRE.Test(str) Then
        If oRE.Execute(str)(0).SubMatches.Count >= 1 Then
            GetRE_SM0 = oRE.Execute(str)(0).SubMatches(0)
        End If
    End If
    Set oRE = Nothing
End FunctionCOPY

523066680

反斜杠不是 \ 吗

echo https://agc.qq.com/show/chan|perl -e "print [split(/\/+/,<>)]->[2]"COPY

还是不要用切割了，匹配大概是这样吧：

$s = 'https://agc.qq.com/show/chan';
$s =~ /\/{2}.*?\/([^\/]+)/;
print $1;COPY

回家路上

(?!/).*/([^/]+)/.*COPY

第一个捕获组捕获到的就是