大家快来帮帮我!!!!!!!（所有分相送）！

Question

　　天下事有难易乎，为之，则难者亦易矣，不为，则易者亦难矣。
　　人之追mm有难易乎，追之，则难者亦易矣，不追则易者亦难矣。清华园，有二男，其一帅，其一丑。丑者语于帅者曰：“吾欲追mm，何如？”帅者曰：“子何恃而追？”曰：“一颗真心足矣。”帅者曰：“以汝无钱无权无色之三无男，子何恃而追！”
　　越明年，丑者携子归，以告帅者，帅者有愧色。人之追mm，固不如清华之二男哉

Answer 1

查找错误的方法书上都有，你在出现错误的前面设断点，加判断啊！如果勤快一点，不如象我，不想DEBUG  PRINT就用MSGBOX来看看变量有什么变化，在什么地方变化，不就知道了，这可是长经验的时候哦（此言非虚，我就是这样长出经验来的，虽然现在还不多）哈哈。

Answer 2

1.在第一个do while ..loop 中有没有exit 之类的东西?
2.在第二个do while ..loop 中的条件是否已满足?
3.在第一个do while ..loop 中的完成条件是否有问题?
4.可以把代码写仔细一点吗？

Answer 3

尽量不要用Static关键字，很容易出问题，去掉看看。

Answer 4

1， 把static去掉
2， 给我代码好吗？
[email protected]

Answer 5

源程序在这里，主要是怕献丑Public Static Function YahooFilter(HTMLCode)Dim RecordID As LongDim StartRecord As String, EndRecord As String
Dim StartName, EndName As StringDim RecordBegin As Long, RecordEnd As Long'Dim string1 As String, string2 As String, lastString As StringStartRecord = "<li>"
EndRecord = "</li>"
StartName = Asc(34) & " > "
EndName = "</a>"'SString5 = "&nbsp"
'---------------------------------'读取记录信息到HTMLRecord
RecordID = 1RecordBegin = InStr(HTMLCode, StartRecord) '取得HTML主题信息Do While RecordBegin <> 0RecordEnd = InStr(RecordBegin, HTMLCode, EndRecord)HTMLRecord(RecordID) = Mid(HTMLCode, RecordBegin + Len(StartRecord), RecordEnd - RecordBegin)RecordBegin = InStr(RecordEnd, HTMLCode, StartRecord)
RecordEnd = InStr(RecordBegin, HTMLCode, EndRecord)
'frmMain.lstData.ListItems.Add , , HTMLRecord(RecordID)RecordID = RecordID + 1Loop'读取NAME项
MsgBox "Sdfsd"RecordID = 1Do While HTMLRecord(RecordID) = ""    RecordBegin = InStr(HTMLRecord(RecordID), StartName) '记录的名字
       
    RecordEnd = InStr(RecordBegin, HTMLRecord(RecordID), EndName)    Data(RecordID).Name = Mid(HTMLRecord(RecordID), RecordBegin + Len(StartName), RecordEnd - RecordBegin)    frmMain.lstData.ListItems.Add , , Data(RecordID).Name
    
    RecordID = RecordID + 1
        
Loop
End Function
当然还没有写玩，到这里只是实验性质变量定义:Type Record
 URL As String
 Name As String
 Memo As String
End TypePublic Data(1 To 3000) As Record
Public HTMLRecord(1 To 3000) As String
谁能帮我解决一定多送分！谢谢！