已结贴

[此贴子已经被作者于2017-1-15 05:15编辑过]

str1 = Text1 '数据库
m1 = "<td><a href="'数据头
m2 = """" '结束尾.
Do
n1 = InStr(str1, m1)
n2 = InStr(str1, m2)
If n1 = 0 Then Exit Do
Title = Mid(str1, n1 + Len(m1), n2 - n1 - Len(m1))  '取出数据
List1.AddItem Title '取出中间的数据..
str1 = Right(str1, Len(str1) - n2) '消除防止重复判断.
Loop

刚刚自己想到了这样的.获取到的可以消除掉.免得又重复添加..
可是总是错误..可能不适合乱码的坏境吗？

'复制下列代码试试
Private Sub Command1_Click()
  Dim  p As Integer, e As Integer
  p = 1
  While p < Len(Text1) And p > 0
    p = InStr(p, Text1, "href=")
    If p > 0 Then
      e = InStr(p, Text1, Chr(34))
      p = InStr(e + 1, Text1, Chr(34))
      List1.AddItem Mid(Text1, e + 1, p - e - 1)
    End If
  Wend
End Sub

[此贴子已经被作者于2016-9-25 23:28编辑过]

很好完全可以解决我的问题...谢谢...

无语，典型的一点不用脑的人啊

都说了我是菜鸟...
版主你说这话我就不乐意了..求学分等级和身份吗？
你的意思是我问了这样的问题难道就没有人会遇到了吗？
不懂就问.难道你刚学VB的时候什么都懂？

       有中不舒服的感觉..问个问题还着人说...

[此贴子已经被作者于2016-9-26 17:46编辑过]

知道我为什么会到论坛来发帖吗？
因为我知道这样的问题来到这里会得到解决..
所以我来了所以我发帖了..
因为我相信论坛里的每一个版主都是大神..
不回答问题就算咯..
为什么还放出那充满嫌弃的字眼..
什么论坛啊..以前刚刚接触VB编程
来论坛提问 感觉ID：风吹过b 版主还是挺负责任的..
用户的每一个问题都有方案和回复..
可现在不怎么看见他的身影了..
不知道他是厌倦了回答这种简单问题呢？还是在忙没有时间关注了。
xiangyue0510 版主 我真的不熟悉..前两天有回答我的问题.我很感谢..
知道了如何运用了InStr 我不经常编程..偶尔有时候只是需要完成一个小功能而已.
但是你身为版主发出这样的言论.如果是别人我早就发出骂人的语句了.
 这是一个论坛好吗？你们版主的责任不就是回答一些菜鸟的问题吗？在我眼里感觉你们会VB的好牛逼.
但瞧不起人这一点..我真的不看好..
                           

在此声明..我再也不会来此论坛了..我宁愿发百度知道！