熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

VB.NET讀寫文本文件方法

2013-11-13 09:55:14  來源: .NET編程 

  工作需要小編需要使用對文本文件進行讀寫操作編程需要完成如下工作

  把程序執行錯誤追加到錯誤日志中

  使巧巧讀書網的編輯能夠讀取錯誤日志

  記得以前使用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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.