VB高手来..... 有问题

答案:3 悬赏:40 手机版

解决时间 2021-04-23 06:16

提问者网友：骑士
2021-04-22 05:30

http://webwap.qq.com/?from=client001&clientuin=444830836&clientkey=27A780CBE68623A9A61AEF8F2C0706B59250774B718199D4A00E97496734EBCF&ADUIN=444830836&ADSESSION=1257660756&ADTAG=CLIENT.QQ.2389_MyTip.0

如何让程序直接得到中间的27A780CBE68623A9A61AEF8F2C0706B59250774B718199D4A00E97496734EBCF

这段呢

我是初学者可能形容不太贴切不过大概就是这样了

最佳答案

五星知识达人网友：迷人又混蛋
2021-04-22 07:08

Private Sub Command1_Click()
Dim strA As String
strA = " http://webwap.qq.com/?from=client001&clientuin=444830836&clientkey=27A780CBE68623A9A61AEF8F2C0706B59250774B718199D4A00E97496734EBCF&ADUIN=444830836&ADSESSION=1257660756&ADTAG=CLIENT.QQ.2389_MyTip.0"

Dim i As Integer
Dim j As Integer
Dim intlen As Integer
Dim str As String

'得到字符串的最大值
intlen = Len(strA)
'判断【clientkey=】的位置
j = InStr(strA, "clientkey=")
'达到【clientkey=】后面的字符
strA = Mid(strA, j)
'得到【clientkey=】后面【=】的位置
j = InStr(strA, "=")
'重新计算字符串的最大值
intlen = Len(strA)

For i = j + 1 To intlen
If Mid(strA, i, 1) <> "&" Then
str = str & Mid(strA, i, 1)
Else
Exit For
End If
Next

Me.Text1.Text = str

End Sub

全部回答

1楼网友：一秋
2021-04-22 09:05

变量名=request.querystring("clientkey")

2楼网友：骨子里都是戏
2021-04-22 08:34

设这个地址放在字符串s中,获取的clientkey放在t中

因为clientkey固定64字节长度。所以可以这么写

s=" http://webwap.qq.com/?from=client001&clientuin=444830836&clientkey=27A780CBE68623A9A61AEF8F2C0706B59250774B718199D4A00E97496734EBCF&ADUIN=444830836&ADSESSION=1257660756&ADTAG=CLIENT.QQ.2389_MyTip.0 t=mid(instr(s,"clientkey",1)+10,64)

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！