ListView导入TXT资料问题！高手请进（１００点）

Question

当我的TXT档有４行
subject : 1232 messages : 12343
subject : 1234 messages : 12345
subject : 1236 messages : 12347
subject : 1238 messages : 12349怎样把1232 ADD到标题，而12343 ADD到内容里呢？
还有怎样一次把他们ADD进ListView呢？
希望有高手能解答，谢谢！

Answer 1

Private Sub Form_Load()
Dim ictr, jctr As String    Open "c:\text1.txt" For Input As #1
    Dim i As String
        Do While Not EOF(1)
        Line Input #1, i
            ictr = Mid(i, 11, 4)
            jctr = Mid(i, 27, 5)
            InsertToBook ListView1, ictr, jctr
        Loop
    Close #1
End SubPrivate Sub InsertToBook(tmpView As ListView, ByVal sText1 As String, ByVal sText2 As String)
On Error Resume Next
    Dim lstTmp As ListItem
    Set lstTmp = tmpView.ListItems.Add
        lstTmp.Text = Trim(sText1)
        lstTmp.SubItems(1) = Trim(sText2)
  
End Sub

Answer 2

"还有怎样一次把他们ADD进ListView呢？",无所谓一次都加入,你写个函数,调用一次处理一行就是了:)

Answer 3

很感谢你的帮助，我还想问一下
如果我的位置不是指定，我想他显示出”subject : ”＆”messages : ”随后的字串
那应该怎做呢？希望能够继续帮忙！ ！ ＾＾

Answer 4

這樣＾＾字數沒有規律的
subject : 新手报到，多多指教 messages : 刚来的，新手报到。：）
subject : 民政部公布26亿玉树重建捐款去向 messages : 据新华社电 ......

Answer 5

ictr = Trim(Mid(i, 1, InStr(1, i, "message") - 1))
jctr = Trim(Mid(i, Len(ictr) + 1, Len(i) - Len(ictr)))

Answer 6

假如文本的格式就如你1楼所示，则用下面的代码：
Option ExplicitPrivate Sub Command1_Click()
    Dim SubjectStr$, MessagesStr$, tem$
    Dim i&, m&, n&
    Open App.Path & "\TXT.txt" For Input As #1
        Do Until EOF(1)
            i = i + 1
            Line Input #1, tem
            m = InStr(1, tem, ": ")
            n = InStr(m + 3, tem, " ")
            ListView1.ListItems.Add , , i
            ListView1.ListItems(i).SubItems(1) = Trim(Mid(tem, m + 1, n - m))
            m = InStr(n + 3, tem, ": ")
            ListView1.ListItems(i).SubItems(2) = Right(tem, Len(tem) - m)
        Loop
    Close #1
End SubPrivate Sub Form_Load()
    With ListView1
        .Sorted = False
        .GridLines = True
        .FullRowSelect = True
        .LabelEdit = lvwManual
        .View = lvwReport
        .ColumnHeaders.Add , , "序号", .Width * 0.1
        .ColumnHeaders.Add , , "标题", .Width * 0.4
        .ColumnHeaders.Add , , "内容", .Width * 0.4
    End With
End Sub