VB.NET读取文件

 

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SaveFileName As String
        Dim myStreamWriter As IO.StreamWriter
        SaveFileName = Application.StartupPath + "\1.txt"
        myStreamWriter = File.CreateText(SaveFileName)
        Dim MyOutput As String = "qewqewqewqeqw123134351"
        myStreamWriter.WriteLine(MyOutput)
        myStreamWriter.Close()
        MsgBox("文件写入" & vbCrLf & "成功", MsgBoxStyle.Exclamation, "提示")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Filename As String
        Filename = Application.StartupPath + "\1.txt"
        Dim myStreamRead As StreamReader

        'myreader = New StreamReader(My.Application.Info.DirectoryPath & "\Setting\KeyWords.txt", Encoding.Default)
        '上面这句使用在读取 中文时候 有需要
        Try
            myStreamRead = File.OpenText(Filename)
        Catch ex As Exception

            Exit Sub
        End Try
        Dim MyReceiver As String
        MyReceiver = myStreamRead.ReadLine
        While Not MyReceiver Is Nothing
            Me.TextBox1.AppendText(MyReceiver & ControlChars.CrLf)
            MyReceiver = myStreamRead.ReadLine
        End While
        myStreamRead.Close()

 

    End Sub
End Class