讀取文字檔

            以下範例是將文字檔讀出然後變更斷行符號
            1.使用LineInput 每一行每一行讀取
            FileNum = FreeFile()
            FileOpen(FileNum, strRFile, OpenMode.Input)


            Do Until EOF(FileNum)
                strTemp &= LineInput(FileNum) & vbNewLine
            Loop
            FileClose(FileNum)
            FileNum = FreeFile()
            FileOpen(FileNum, NewValue, OpenMode.Output)
            PrintLine(FileNum, strTemp)
            FileClose(FileNum)


            2.使用ReadToEnd 
             Dim value As String = ""
             Dim MySF As StreamReader = New StreamReader(strRFile, System.Text.Encoding.Default)
             value = MySF.ReadToEnd().Replace(vbLf, vbCrLf)