100分给你！

Question

1：读文件line input ......
2：添加到listbox中，listbox1.add .....

Answer 1

用函数 
InStr 
Mid

Answer 2

用Instr写一个函数提取某一字符之间的字符串如:<a>123</a>提取出123的函数

Answer 3

在窗体上放一个WebBrowser控件,两个ListBox ,两个Command先点Command1读取C:\notes.txt到WebBrowser,然后点Command2Private Sub Command1_Click()
On Error GoTo ErrHandler
Dim doc As Object
Dim Tmp As String
Dim Str As String    Open "C:\notes.txt" For Input As #1
    
    While Not EOF(1)
        Line Input #1, Tmp
        Str = Str & Tmp & vbCrLf
    Wend
    Close #1
    Str = Replace(Str, "<MM>", "<DIV>")
    Str = Replace(Str, "</MM>", "</DIV>")
    Str = Replace(Str, "<NN>", "<SPAN>")
    Str = Replace(Str, "</NN>", "</SPAN>")
    Set doc = WebBrowser1.Document
    With doc
        .open
        .writeln Str
        .Close
    End With
    Exit Sub
ErrHandler:
    MsgBox Err.Description
End SubPrivate Sub Command2_Click()
Dim x As Object
Dim i As Integer
    
    Set x = WebBrowser1.Document.getElementsByTagName("div")
    For i = 0 To x.length - 1
        List1.AddItem Left(x(i).innerTEXT, InStr(x(i).innerTEXT, " "))
    Next
    
    Set x = WebBrowser1.Document.getElementsByTagName("span")
    For i = 0 To x.length - 1
        List2.AddItem x(i).innerTEXT
    Next
    
End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate "about:blank"
End Sub

Answer 4

mid(string,start,length)
用一个for循环
自己写一个函数把

Answer 5

用line input读文本里的内容。然后用Instr和Mid这两个函数取出标题和内容
最后用listbox1.add（）增加到listbox里面！

Answer 6

最简单的方法拼成如下字符串
<xml version='1.0' encoding='gb2312'>
<MM>标题
<NN>内容1</NN>
<NN>内容2</NN>
<NN>内容3</NN>
<NN>内容4</NN>
</MM>
然后用XML解析器解析就可以了

Answer 7

还要实现一个功能：
如果点击左边list1中的某个标题，右边的list2中就显示相应属于这个标题的内容。
谢谢各位！

Answer 8

用line input读文本里的内容。然后用Instr和Mid这两个函数取出标题和内容
最后用listbox1.add（）增加到listbox里面！
单击标题用line input读文本里的内容用Instr和Mid找标题找道后用listbox1.add（）增加到listbox里面！

Answer 9

还要实现一个功能：
如果点击左边list1中的某个标题，右边的list2中就显示相应属于这个标题的内容。
谢谢各位！

Answer 10

我想从文本中取数据！！具体如下：一文本：Notes.txt，内容为：
<MM>标题
<NN>内容1</NN>
<NN>内容2</NN>
<NN>内容3</NN>
<NN>内容4</NN>
</MM>
我想把他们显示在两个listbox中，其中一个是标题，一个是内容。
如果点击左边list1中的某个标题，右边的list2中就显示相应属于这个标题的内容。
谢谢各位！
谢谢！

Answer 11

mid(string,start,length)
用一个for循环
自己写一个函数把