所属类别：.NET

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

Imports SystemImports System.IOImports System.CollectionsModule Module1Sub Main()Dim objReader As New StreamReader("c:\test.txt")Dim sLine As String = ""Dim arrText As New ArrayList()DosLine = objReader.ReadLine()If Not sLine Is Nothing ThenarrText.Add(sLine)End IfLoop Until sLine Is NothingobjReader.Close()For Each sLine In arrTextConsole.WriteLine(sLine)NextConsole.ReadLine()End SubEnd Module 关闭本页

....