工作需要 我需要使用對(duì)文本文件進(jìn)行讀寫操作 編程需要完成如下工作
梅州網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)建站,梅州網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為梅州成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的梅州做網(wǎng)站的公司定做！
把程序執(zhí)行錯(cuò)誤追加到錯(cuò)誤日志中
使巧巧讀書網(wǎng)的編輯能夠讀取錯(cuò)誤日志
記得以前使用vb 的時(shí)候 對(duì)文本文件的操作挺麻煩的 特別是在寫文件的時(shí)候 需要區(qū)分什么順序文件 隨機(jī)文件 很教材都專門針對(duì)文本文件的讀寫開辟了一個(gè)章節(jié)來講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因?yàn)闀r(shí)間倉促 沒來得及細(xì)看MSDN 同時(shí)受到 的思路影響 把問題復(fù)雜化了 在追加記錄到文本文件尾部的時(shí)候就寫不下去了 后來仔細(xì)看了一下MSDN中例子 問題終于得到了解決
好了下面進(jìn)入正題 分別把中對(duì)文本文件進(jìn)行讀和寫的通用操作做個(gè)示例 免得后來新手多走彎路
我們這里是對(duì)文件流進(jìn)行操作 所以模塊前面要加上
Imports System IO
寫操作
使用System IO的StreamWriter 下面是代碼
Dim strFilePath As String = SaveFileDialog FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打開指定文件
For i = To j
temp = i ToString
sw WriteLine（temp）
sw Flush（）
Next
sw Close（）
sw = Nothing
首先要說明的是構(gòu)造函數(shù)new
Public Sub New（path append Encoding）
path 要打開文件的完整路徑 如果文件不存在則自動(dòng)建立一個(gè)新的文件
append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個(gè)新文件 true——如果存在path指定的文件 則打開該文件 以追加數(shù)據(jù)的方式在文尾寫數(shù)據(jù) 否則建立一個(gè)新文件
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼寫文件
WriterLine（str） 在文本中添加一個(gè)新行 同時(shí)在行尾加上回車換行符
讀操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）
Do While sr Peek（）
line = sr ReadLine（）
Loop
sr Close（）
sr = Nothing
構(gòu)造函數(shù)new
Public Sub New（Path Encoding）
path 要打開文件的完整路徑 如果文件拋出一個(gè)錯(cuò)誤
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼讀文件
lishixinzhi/Article/program/net/201311/11973
您好，在Visual Basic.NET中，是沒有像這樣的文件I/O操作的，一般都是通過System.IO.StreamReader和System.IO.StreamWriter類，System.IO.BinaryReader和System.IO.BinaryWriter類來讀寫文件以及利用My.Computer.FileSystem類讀寫文件，利用System.IO.Filestream類來創(chuàng)建文件，通過引用Microsoft Scripting Runtime來執(zhí)行文件（夾）和驅(qū)動(dòng)器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter類。
例如說要讀取一個(gè)文件，我們可以利用System.IO.StreamReader類編寫一個(gè)方法（也就是函數(shù)），但是首先要在當(dāng)前類的開頭添加一個(gè)引用，引用名稱：System.IO，添加引用的代碼如下
Imports System.IO
添加引用之后，就在當(dāng)前類的內(nèi)部創(chuàng)建方法：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
ReadFile = sr.ReadToEnd()
sr.Close()
sr = Nothing
End Function
示例說明：
該方法是一個(gè)返回String（字符串）數(shù)據(jù)的函數(shù)，F(xiàn)ileURL作為參數(shù)是用來存放需要訪問的文件的URL，當(dāng)然，要獲取一個(gè)文件的URL，就是利用這一句代碼實(shí)現(xiàn)的：
Dim sr As StreamReader = New StreamReader(FileURL)
當(dāng)獲取了URL之后，就要對(duì)文件進(jìn)行讀取操作了，然后將讀取的結(jié)果返回給方法：
ReadFile = sr.ReadToEnd()
讀取文件完畢之后，要對(duì)文件執(zhí)行關(guān)閉操作：
sr.Close()
當(dāng)然別忘了清理資源：
sr = Nothing
StreamReader類可以從流或文件中讀取字符，在創(chuàng)建StreamREader類的對(duì)象時(shí)，可以指定一個(gè)流對(duì)象，也可以指定一個(gè)文件URL，創(chuàng)建對(duì)象后就可以調(diào)用他的方法，從流中讀取數(shù)據(jù)，其常用方法如下：
Peek：返回下一個(gè)可用字符，但不使用它。
Read：讀取輸入流中下一個(gè)字符或一組字符并移動(dòng)流或文件指針。
ReadBlock：從當(dāng)前流中讀取最大數(shù)量字符并從index開始將數(shù)據(jù)寫入buffer。
ReadLine：從當(dāng)前流中讀取一行字符并將字符作為String返回。
REadToEnd：從流的當(dāng)前位置到末尾讀取流。
Close：關(guān)閉打開的對(duì)象，釋放資源。
注：流，一種新的數(shù)據(jù)格式，這種格式可通過System.IO命名空間下的類訪問。流用Stream類表示，所有的流都是從這個(gè)類中繼承的。流向用戶提供了一個(gè)一般的數(shù)據(jù)視圖，隱藏了操作系統(tǒng)和底層設(shè)備的實(shí)現(xiàn)細(xì)節(jié)，所有的流都支持讀寫操作。在打開文件時(shí)將返回對(duì)應(yīng)的流對(duì)象，用戶可以對(duì)流對(duì)象進(jìn)行讀寫操作。
如果要對(duì)文件執(zhí)行按行讀取操作，這時(shí)就會(huì)用到枚舉，這時(shí)候，代碼就要更改一下了：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
For Each fLine As String In sr.ReadToEnd()
Line = sr.ReadLine()
ReadFile = ReadFile fLine
Next sr.ReadLine
sr.Close()
End Function
示例說明：
For Each…Next：派生于For…Next循環(huán)，用于枚舉一系列對(duì)象中的成員，而這些對(duì)象組成集合，如果集合中至少存在一個(gè)元素，程序就會(huì)靜茹For Each塊執(zhí)行。其格式如下：
For Each 元素 [As 數(shù)據(jù)類型] In 元素集合
[循環(huán)體]
[Exit For]
[循環(huán)體]
Next [元素]
比如：
Dim CountNumber As ULong = 0
Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用來枚舉指定目錄的子文件夾。
Preserve：主要用來避免重定義數(shù)組而不損失數(shù)組元素的原有數(shù)據(jù)。
另外，利用My.Computer.FileSystem也可以實(shí)現(xiàn)文件的讀取，其代碼如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例說明：
定義一個(gè)字符串變量利用My.Computer.FileSystem.ReadAllText來實(shí)現(xiàn)對(duì)“C:\test.txt”的讀取。
如果是已經(jīng)編碼的文本，則可以使用My.Computer.FileSystem對(duì)象中的ReadAllText方法并提供路徑和文件編碼類型，將文本寫入字符串變量中，例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
當(dāng)然，System.Text.Encoding的成員不止一個(gè)，它還有如下成員：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
這些是常見的成員，也是主要的成員。
另外，利用My.Computer.Filesystem類無法實(shí)現(xiàn)文件的行操作，還有，如果您的計(jì)算機(jī)未安裝完整的Microsoft.NET Framework Runtime，則無法實(shí)現(xiàn)這種操作！
寫入文件的操作同樣簡(jiǎn)單，Visual Basic.NET 允許用戶使用StreamWriter來對(duì)文件寫入內(nèi)容，下面就讓我們來創(chuàng)建一個(gè)子例程，來實(shí)現(xiàn)文件的寫入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例說明：
sr.Write(FileCon)：將FileCon寫入文件FileURL之中。
另外，StreamWriter常用方法如下：
WriteLine：向流中寫入一行，后面跟結(jié)束符。
Write：寫入流，向流對(duì)象中寫入字符并移動(dòng)流或文件指針。
Close：關(guān)閉打開的對(duì)象，釋放資源。
附：Visual Basic 6.0文件操作解說：
打開： Open 文件名 For Input | Output | Append As [#]文件號(hào)
Input打開讀入，文件不存在報(bào)錯(cuò)。Output打開覆蓋寫入，文件不存在則創(chuàng)建。Append打 開追加寫入，文件不存在則創(chuàng)建。
讀： Line Input #文件號(hào), 字符串變量
讀一行數(shù)據(jù)存入字符串變量，數(shù)據(jù)包括空格、Tab、等，不包括回車符和換行符，所以要顯示文件的換行效果，要手動(dòng)添加回車符和換行符（vbCrLf）
Input #文件號(hào), 變量1[, | ;] [變量2]...
這種方式可以存入多個(gè)變量，而且變量類型不限于字符串型。
寫： Print #文件號(hào), 參數(shù)1[, | ;] [參數(shù)2]...
將各參數(shù)逐個(gè)寫入文件。參數(shù)間用逗號(hào)隔開時(shí)，文件中相應(yīng)插入多個(gè)空格；用分號(hào)隔開時(shí)，插入一個(gè)空格?？梢杂肧pc(n)、Tab(n)等進(jìn)行排版。
Write #文件號(hào), 參數(shù)1[, | ;] [參數(shù)2]...
這種寫入方式將自動(dòng)添加界定符，對(duì)不同參數(shù)的類型加以界定。
Visual Basic 6.0文件操作函數(shù)：
Seek： Seek(文件號(hào))
返回文件正在訪問的位置，返回值為長(zhǎng)整型。對(duì)順序文件和二進(jìn)制文件，返回值以字節(jié)為單位；對(duì)隨機(jī)訪問文件，返回值以記錄號(hào)為單位。
Seek： Seek [#]文件號(hào)，位置
定位文件到指定位置。位置單位同上所述。
Input： Input (字節(jié)數(shù)，[#]文件號(hào))
從文件的訪問當(dāng)前位置讀入指定字節(jié)數(shù)的數(shù)據(jù)。僅適用于順序文件和二進(jìn)制文件。
EOF： EOF(文件號(hào))
判斷文件的訪問位置是否在文件尾，如果是，返回True，否則，返回False。
LOF： LOF(文件號(hào))
返回文件長(zhǎng)度，單位為字節(jié)。
FileLen： FileLen (文件名)
返回文件名對(duì)應(yīng)文件的長(zhǎng)度，單位是字節(jié)。該函數(shù)取磁盤文件標(biāo)識(shí)中的長(zhǎng)度，即文件打開前的長(zhǎng)度，可以取未打開的文件長(zhǎng)度。
GetAttr： GetAttr (Pathname)
返回指定文件或文件夾的屬性。
FileAttr： FileAttr (文件號(hào))
返回文件號(hào)對(duì)應(yīng)文件的打開方式。
GetDateTime： GetDateTime (Pathname)
返回文件被創(chuàng)建或修改的最后日期和時(shí)間。
Free： FreeFile[(0|1)]
返回未被占用的文件號(hào)，F(xiàn)ree或Free(0)返回1～255之間未占用的文件號(hào)，F(xiàn)ree(1)返回256～511之間未占用的文件。
Dir： Dir (Pathname [,Attributes])
測(cè)試指定路徑是否有某文件，Attributes附加文件屬性條件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill： Kill (文件名)
刪除指定文件，文件名可包含路徑。
FileCopy： FileCopy 源文件，目標(biāo)文件
拷貝文件。
Name： Name 舊文件名 As 新文件名
文件重命名。前后路徑不一致時(shí)，操作為移動(dòng)文件并重命名。
MkDir： MkDir path
新建文件夾。
RmDir： Rmdir path
刪除文件夾。
ChDrive： ChDrive Drive
改變當(dāng)前驅(qū)動(dòng)器 ChDrive "D"
CurDir： CurDir [(driver)]
返回當(dāng)前工作路徑，指定driver則返回目標(biāo)驅(qū)動(dòng)器的當(dāng)前工作路徑。
舉例：
'新建文件，并寫入數(shù)據(jù)，關(guān)閉
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打開文件，并全部寫入新文件，關(guān)閉
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：關(guān)于Visual Basic 6.0的文件操作資料來自于
如果您覺得我的回答幫助了您解決難題，別忘了采納哦，如果我的回答未能解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多的解決方案！
open函數(shù)用來打開一個(gè)文件，其調(diào)用的一般形式為：
文件指針名=fopen(文件名,使用文件方式);
其中，
“文件指針名”必須是被說明為FILE
類型的指針變量；
“文件名”是被打開文件的文件名；
“使用文件方式”是指文件的類型和操作要求。
“文件名”是字符串常量或字符串?dāng)?shù)組。
例如：
FILE
*fp；
fp=("file
a","r");
其意義是在當(dāng)前目錄下打開文件file
a，只允許進(jìn)行“讀”操作，并使fp指向該文件。
又如：
FILE
*fphzk
fphzk=("c:\\hzk16","rb")
其意義是打開C驅(qū)動(dòng)器磁盤的根目錄下的文件hzk16，這是一個(gè)二進(jìn)制文件，只允許按二進(jìn)制方式進(jìn)行讀操作。兩個(gè)反斜線“\\
”中的第一個(gè)表示轉(zhuǎn)義字符，第二個(gè)表示根目錄。
使用文件的方式共有12種，下面給出了它們的符號(hào)和意義。
文件使用方式
意義
“rt”
只讀打開一個(gè)文本文件，只允許讀數(shù)據(jù)
“wt”
只寫打開或建立一個(gè)文本文件，只允許寫數(shù)據(jù)
“at”
追加打開一個(gè)文本文件，并在文件末尾寫數(shù)據(jù)
“rb”
只讀打開一個(gè)二進(jìn)制文件，只允許讀數(shù)據(jù)
“wb”
只寫打開或建立一個(gè)二進(jìn)制文件，只允許寫數(shù)據(jù)
“ab”
追加打開一個(gè)二進(jìn)制文件，并在文件末尾寫數(shù)據(jù)
“rt+”
讀寫打開一個(gè)文本文件，允許讀和寫
“wt+”
讀寫打開或建立一個(gè)文本文件，允許讀寫
“at+”
讀寫打開一個(gè)文本文件，允許讀，或在文件末追加數(shù)據(jù)
“rb+”
讀寫打開一個(gè)二進(jìn)制文件，允許讀和寫
“wb+”
讀寫打開或建立一個(gè)二進(jìn)制文件，允許讀和寫
“ab+”
讀寫打開一個(gè)二進(jìn)制文件，允許讀，或在文件末追加數(shù)據(jù)
對(duì)于文件使用方式有以下幾點(diǎn)說明：
1)
文件使用方式由r,w,a,t,b，+六個(gè)字符拼成，各字符的含義是：
r(read):
讀
w(write):
寫
a(append):
追加
t(text):
文本文件，可省略不寫
b(banary):
二進(jìn)制文件
+:
讀和寫
2)
凡用“r”打開一個(gè)文件時(shí)，該文件必須已經(jīng)存在，且只能從該文件讀出。
3)
用“w”打開的文件只能向該文件寫入。若打開的文件不存在，則以指定的文件名建立該文件，若打開的文件已經(jīng)存在，則將該文件刪去，重建一個(gè)新文件。
4)
若要向一個(gè)已存在的文件追加新的信息，只能用“a”方式打開文件。但此時(shí)該文件必須是存在的，否則將會(huì)出錯(cuò)。
5)
在打開一個(gè)文件時(shí)，如果出錯(cuò)，fopen將返回一個(gè)空指針值NULL。在程序中可以用這一信息來判別是否完成打開文件的工作，并作相應(yīng)的處理。因此常用以下程序段打開文件：
6)
if((fp=fopen("c:\\hzk16","rb")==NULL)
{
printf("\nerror
on
open
c:\\hzk16
file
vb點(diǎn)虐 使用控件FolderBrowserDialog1,在程序中:
'設(shè)置對(duì)話框中在樹視圖控件上顯示的說明文本
Me.FolderBrowserDialog1.Description
=
"請(qǐng)選擇輸出報(bào)表所在路徑:"
'設(shè)置從其開始瀏覽的根文件夾
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路徑（包含文件名）
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'設(shè)定text顯示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中針對(duì)你所需要的文件進(jìn)行操作等
重慶分公司
重慶分公司
