vb远程读取txt文件的问题，高手请进，解决马上给分，全天在线
例如有个文本文件的路径是www.guiwai.com/test.txt，如何用vb读取里面的内容加以利用？请给出事例代码，小弟刚学vb，不熟，请高手指教，谢谢！
[解决办法]
Private Sub Command1_Click()
Dim s As String
s = Inet1.OpenURL( "http://community.csdn.net/Expert/topic/5455/5455226.xml?temp=.441128 ")
Text1.Text = s '文本文件的内容
End Sub
读出的内容
<?xml version= "1.0 " encoding= "GB2312 "?>
<?xml-stylesheet type= 'text/xsl ' href= '/expert/Xsl/2.xsl '?>
<Topic>
<Issue>
<PostUserNickName> </PostUserNickName>
<rank> 一级(初级) </rank>
<ranknum> user1 </ranknum>
<credit> 100 </credit>
<TopicId> 5455226 </TopicId>
<TopicName> vb远程读取txt文件的问题，高手请进，解决马上给分，全天在线 </TopicName>
<PostUserId> 1179249 </PostUserId>
<PostUserName> liwei741852963 </PostUserName>
<RoomName> VB 网络编程 </RoomName>
<ReplyNum> 4 </ReplyNum>
<PostDateTime> 2007-04-10 14:41:56 </PostDateTime>
<Point> 50 </Point>
<ReadNum> 0 </ReadNum>
<RoomId> 5107 </RoomId>
<EndState> 0 </EndState>
<Content> 例如有个文本文件的路径是www.guiwai.com/test.txt，如何用vb读取里面的内容加以利用？请给出事例代码，小弟刚学vb，不熟，请高手指教，谢谢！ </Content>
</Issue>
<Replys>
<Reply> <PostUserNickName> 无证编程 </PostUserNickName> <rank> 五级(中级) </rank> <ranknum> user5 </ranknum> <credit> 100 </credit> <ReplyID> 40194978 </ReplyID> <TopicID> 5455226 </TopicID> <PostUserId> 933303 </PostUserId> <PostUserName> VBToy </PostUserName> <Point> 0 </Point> <Content> 用inet控件:
s = Inet1.OpenURL( "www.guiwai.com/test.txt ")
Text1.Text = s '文本文件的内容 </Content> <PostDateTime> 2007-04-10 14:45:12 </PostDateTime> </Reply> <Reply> <PostUserNickName> </PostUserNickName> <rank> 一级(初级) </rank> <ranknum> user1 </ranknum> <credit> 100 </credit> <ReplyID> 40195226 </ReplyID> <TopicID> 5455226 </TopicID> <PostUserId> 1179249 </PostUserId> <PostUserName> liwei741852963 </PostUserName> <Point> 0 </Point> <Content> inet控件全称叫什么，我在找呵呵 </Content> <PostDateTime> 2007-04-10 14:53:53 </PostDateTime> </Reply> <Reply> <PostUserNickName> 无证编程 </PostUserNickName> <rank> 五级(中级) </rank> <ranknum> user5 </ranknum> <credit> 100 </credit> <ReplyID> 40195437 </ReplyID> <TopicID> 5455226 </TopicID> <PostUserId> 933303 </PostUserId> <PostUserName> VBToy </PostUserName> <Point> 0 </Point> <Content> 工程-->部件中加Microsoft Internet Transfer Control控件 </Content> <PostDateTime> 2007-04-10 15:00:28 </PostDateTime> </Reply> <Reply> <PostUserNickName> </PostUserNickName> <rank> 一级(初级) </rank> <ranknum> user1 </ranknum> <credit> 100 </credit> <ReplyID> 40195683 </ReplyID> <TopicID> 5455226 </TopicID> <PostUserId> 1179249 </PostUserId> <PostUserName> liwei741852963 </PostUserName> <Point> 0 </Point> <Content> 晕，读不出来，能给个整个的代码吗？ </Content> <PostDateTime> 2007-04-10 15:08:17 </PostDateTime> </Reply> </Replys>
</Topic>
