在vb.net使用System.IO读取文本文件

新客网 XKER.COM 2003-07-12 来源：收藏本文

Imports System
Imports System.IO
Imports System.Collections

Module Module1

    Sub Main()
        Dim objReader As New StreamReader("c:\test.txt")
        Dim sLine As String = ""
        Dim arrText As New ArrayList()

        Do
            sLine = objReader.ReadLine()
            If Not sLine Is Nothing Then
                arrText.Add(sLine)
            End If
        Loop Until sLine Is Nothing
        objReader.Close()

        For Each sLine In arrText
            Console.WriteLine(sLine)
        Next
        Console.ReadLine()
    End Sub

End Module

上一篇：注册表操作下一篇：使用vb.net加密和解密文件。（好象英文灵，中文不灵）

【收藏】【评论】【推荐】【投稿】【打印】【关闭】