发信人: stepsun()
整理人: (2000-09-05 20:32:39), 站内信件
|
Sub AddListView(filename As String)
'sub by St.Efan,http://efan.shangdu.net
'the whole progam is http://member1.shangdu.net/home2/efan/NetNease/fH
tmlFliter.zip
Dim p As String
Dim newlist As ListItem
Open filename For Input As #1
While p <> "<tr bgcolor=#eeefff>" And Not EOF(1)
Line Input #1, p
Wend
If EOF(1) Then MsgBox "err": Exit Sub
Form1.ListView1.ListItems.Clear
Do
Line Input #1, p ' the num of back call
Set newlist = Form1.ListView1.ListItems.Add(, , GetStr(p, 0)) '<>N
um is changable
Line Input #1, p ' the iocn of title
Line Input #1, p 'the title
newlist.SubItems(1) = GetStr(p, 2)
Line Input #1, p 'the Author
newlist.SubItems(2) = GetStr(p, 2)
Line Input #1, p 'the time
newlist.SubItems(3) = GetStr(p, 1)
Line Input #1, p '</tr>
Line Input #1, p '<tr bgcolor=#XXXXXXX>
Loop Until p = "<!--content-->"
End Sub
--
没有签名是最好的签名。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.158.169.201]
|
|