以下是改写到excel中的代码，我想直接改写到vb窗体的Text1.Text中显示，在此求助。


Private Sub Command1_Click()
Dim tmp() As String, num() As String, xmlhttp As Object
    Dim r As Long, l As Long, c As Integer
    Dim rnum
   
    Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    With xmlhttp
        .Open "get", "http://www., False
        .send
        tmp = Split(.responsetext, Chr(10))
    End With
    l = UBound(tmp)
   Chr (10)
   
        ReDim num(0 To l, 0 To 16) As String
        For r = 0 To l
            rnum = Split(tmp(r), " ")
            For c = 0 To UBound(rnum)
                num(r, c) = rnum(c)
            Next
        Next
        Range("a2:e" & l).Value2 = num
        Erase rnum
   End
   Erase tmp
   Erase num
   Set xmlhttp = Nothing
End Sub

With xmlhttp
        .Open "get", "http://www., False
        .send
        '.responsetext  这里是读到的整个内容，你后面的代码就是针对这个处理的。
        Text1.Text = .responsetext      '把读到的内容放到 Text1.Text
    End With

谢谢！不过我是想将分离后抹去后面不需要的内容，将“分离后前面保留的内容”在Text1.Text中显示。显示格式如下：
2002001    2002-01-01    073
2002002    2002-01-02    237
2002003    2002-01-03    071
2002004    2002-01-04    204
2002005    2002-01-05    374
2002006    2002-01-06    128
2002007    2002-01-07    849
2002008    2002-01-08    852
2002009    2002-01-09    155
2002010    2002-01-10    795
2002011    2002-01-11    217
2002012    2002-01-12    482
2002013    2002-01-13    986
2002014    2002-01-14    232
2002015    2002-01-15    871
...

谢谢！不过我是想将分离后抹去后面不需要的内容，将“分离后前面保留的内容”在Text1.Text中显示。显示格式如下：
2002001    2002-01-01    073
2002002    2002-01-02    237
2002003    2002-01-03    071
2002004    2002-01-04    204
2002005    2002-01-05    374
2002006    2002-01-06    128
2002007    2002-01-07    849
2002008    2002-01-08    852
2002009    2002-01-09    155
2002010    2002-01-10    795
2002011    2002-01-11    217
2002012    2002-01-12    482
2002013    2002-01-13    986
2002014    2002-01-14    232
2002015    2002-01-15    871

那按你 保存到 EXCEL 中的代码一样处理吧。把 要用的节保存下来，不要的节抛弃就是了。

每行之间的换行符使用 VbCrLf 常量