帮忙转换下正则表达式

[虎觉]

帮忙转换下正则表达式 谢谢
<input type="hidden" name="invalidtoken" value="800c3aee-1fa4-4b48-b505-11bff1047d21">
或者直接提取 value值的代码也行。

[蓝天630902]

Sub test()
    Set hf = CreateObject("htmlfile")
    hf.body.innerHTML = "<input type=""hidden"" name=""invalidtoken"" value=""800c3aee-1fa4-4b48-b505-11bff1047d21"">"
    Debug.Print hf.all("invalidtoken").Value
End Sub

[threenewbee]

(?<=name\=\"invalidtoken\"\svalue\=\")[a-f0-9]{8}\-[a-f0-9]{4}\-[a-f0-9]{4}\-[a-f0-9]{4}\-[a-f0-9]{14}(?=\"\>)

[dlx_gd727]

正则表达式正在学习中...