VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 676|回复: 5

[求助] 截取字符串

[复制链接]
发表于 2018-10-29 08:06:27 | 显示全部楼层 |阅读模式
<a href="/download/d/?id=24889&loc=4">
截取""号里面的内容
 楼主| 发表于 2018-10-29 08:56:11 | 显示全部楼层
Dim abegin As String
  Dim c As String
  abegin = "<a href=" & """" & "/ " & "download" & " / "
    If InStr(strw, abegin) > 1 Then
    MsgBox "找到下载连接"
    c = Mid(strw

后面不会写,可以帮我完成吗?
abegin = "<a href=" & """" & "/ " & "download" & " / "还有这句有问题吗
回复 支持 反对

使用道具 举报

发表于 2018-11-21 09:03:04 | 显示全部楼层
把    <a href="/download/d/?id=24889&loc=4">     赋值到变量 a,则:
截取""号里面的内容是:split(split(a,"<a href=")(1),">")(0)
回复 支持 反对

使用道具 举报

发表于 2018-11-22 15:18:22 | 显示全部楼层
Private Sub Command1_Click()
    AA = "<a href=""/download/d/?id=24889&loc=4"">"
    Text2 = Split(AA, """")(1)
   
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-12-21 15:17:25 | 显示全部楼层
字符数组=split(变量,条件)  这是最快的
循环截取可以取多个,但是慢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-7-17 18:39

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表