工作需要小編需要使用對文本文件進行讀寫操作編程需要完成如下工作
把程序執行錯誤追加到錯誤日志中
使巧巧讀書網的編輯能夠讀取錯誤日志
記得以前使用vb的時候對文本文件的操作挺麻煩的特別是在寫文件的時候需要區分什麼順序文件隨機文件很教材都專門針對文本文件的讀寫開辟了一個章節來講解夠麻煩的了現在使用net讀寫文本文件因為時間倉促沒來得及細看MSDN同時受到的思路影響把問題復雜化了在追加記錄到文本文件尾部的時候就寫不下去了後來仔細看了一下MSDN中例子問題終於得到了解決
好了下面進入正題分別把中對文本文件進行讀和寫的通用操作做個示例免得後來新手多走彎路
我們這裡是對文件流進行操作所以模塊前面要加上
Imports SystemIO
寫操作
使用SystemIO的StreamWriter下面是代碼
Dim strFilePath As String = SaveFileDialogFileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True）true是指以追加的方式打開指定文件
For i = To j
temp = iToString
swWriteLine（temp）
swFlush（）
Next
swClose（）
sw = Nothing
首先要說明的是構造函數new
Public Sub New（path append Encoding）
path要打開文件的完整路徑如果文件不存在則自動建立一個新的文件
append缺省值為false指示是否以追加方式打開指定文件false——如果存在path指定的文件則覆蓋原文件否則建立一個新文件true——如果存在path指定的文件則打開該文件以追加數據的方式在文尾寫數據否則建立一個新文件
Encoding缺省值為SystemTextEncodingDefault即使用系統缺省的編碼指示以什麼樣的編碼寫文件
WriterLine（str）在文本中添加一個新行同時在行尾加上回車換行符
讀操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath SystemTextEncodingDefault）
Do While srPeek（） >
line = srReadLine（）
Loop
srClose（）
sr = Nothing
構造函數new
Public Sub New（Path Encoding）
path要打開文件的完整路徑如果文件拋出一個錯誤
Encoding缺省值為SystemTextEncodingDefault即使用系統缺省的編碼指示以什麼樣的編碼讀文件
到這裡就把裡對文本文件的讀寫操作示例講解完了其實net中對文件的讀寫還有其它的辦法這裡講的只是最實用的辦法其它的有待讀者進一步研究！
From:http://tw.wingwit.com/Article/program/net/201311/11973.html
