给猫大哥加分!

Question

 
Veron_04
 
(阿根廷巫师) 

Answer 1

呵呵，没什么，今天电视不好看，所以来CSDN闲逛一下，你有有缘：）

Answer 2

哈哈!2010年感人一幕啊！
%IPDATA:1,1,25AT%IPDR%IPDR:1,1,25,"61616161616161616161616161616161616161616161616161"OK取引号里的数帮我再解决一下哈！

Answer 3

Dim A() As String
A = Split(Text1.Text, """")MsgBox A(1)用SPLIT应该也能用吧？

Answer 4

大哥 新年好？MID 我没用过，如果用MID要怎么写？

Answer 5

Private Sub Command1_Click()
    Dim html As String
    html = "%IPDATA:1,1,25" + vbCrLf + "AT% IPDR" + vbCrLf + "%IPDR:1,1,25,""61616161616161616161616161616161616161616161616161""" + vbCrLf + "OK "
    
    Dim reg As RegExp
    Set reg = New RegExp
    reg.Pattern = "(\x22)(.+?)\1"
    Dim mc As MatchCollection
    Set mc = reg.Execute(html)
    Dim m As Match
    Set m = mc.Item(0)
    Dim t As String
    t = m.SubMatches(1)
    MsgBox t
    reg.Pattern = "[a-fA-F0-9]{2}"
    reg.Global = True
    Set mc = reg.Execute(t)
    '如果逐个显示
'    For Each m In mc
'        MsgBox Chr(Val("&H" + m.Value))
'    Next
    '如果一次性显示
    Dim result As String
    For Each m In mc
        result = result + Chr(Val("&H" + m.Value))
    Next
    MsgBox result
End Sub