學(xué)習(xí)VB.NET時(shí)，你可能會(huì)遇到VB.NET追加文件問題，這里將介紹VB.NET追加文件 問題的解決方法，在這里拿出來和大家分享一下。

#T#VB讀寫文件要用到以下語句：
1、Open語句打開文件。
2、讀文件使用LineInput、Input#，（以上為文本方式）和Get（以上為二進(jìn)制方式）。
3、寫文件使用Print#、Write（以上為文本方式）和Put（以上為二進(jìn)制方式）。
4、Close語句關(guān)閉文件
5、二進(jìn)制方式下移動(dòng)文件位置使用Seek語句。
所有這些語句在VB的幫助中都有詳細(xì)說明和例子。

文本文件的示例：

 
 

  
  
Open"TESTFILE"ForOutputAs#1'打開輸出文件。  
  
  
Print#1,"Thisisatest"'將文本數(shù)據(jù)寫入文件。  
  
  
Print#1,'將空白行寫入文件。  
  
  
Print#1,"Zone1"；Tab；"Zone2"'數(shù)據(jù)寫入兩個(gè)區(qū)（printzones）。  
  
  
Print#1,"Hello"；""；"World"'以空格隔開兩個(gè)字符串。  
  
  
Print#1,Spc(5)；"5leadingspaces"'在字符串之前寫入五個(gè)空格。  
  
  
Print#1,Tab(10)；"Hello"'將數(shù)據(jù)寫在第十列。  
  
  
'賦值Boolean、Date、Null及Error等。  
  
  
DimMyBool,MyDate,MyNull,MyError  
  
  
MyBool=False:MyDate=#February12,1969#:MyNull=Null  
  
  
MyError=CVErr(32767)  
  
  
'True、False、Null及Error會(huì)根據(jù)系統(tǒng)的地區(qū)設(shè)置自動(dòng)轉(zhuǎn)換格式。  
  
  
'日期將以標(biāo)準(zhǔn)的短式日期的格式顯示。  
  
  
Print#1,MyBool；"isaBooleanvalue"  
  
  
Print#1,MyDate；"isadate"  
  
  
Print#1,MyNull；"isanullvalue"  
  
  
Print#1,MyError；"isanerrorvalue"  
  
  
Close#1'關(guān)閉文件。 
 
 

讀文件示例

使用LineInput#語句從順序文件中讀入一行數(shù)據(jù)，并將該行數(shù)據(jù)賦予一個(gè)變量。本示例假設(shè)TESTFILE文件內(nèi)含數(shù)行文本數(shù)據(jù)。

 
 

  
  
DimTextLine  
  
  
Open"TESTFILE"ForInputAs#1'打開文件。  
  
  
DoWhileNotEOF(1)'循環(huán)至文件尾。  
  
  
LineInput#1,TextLine'讀入一行數(shù)據(jù)并將其賦予某變量。  
  
  
Debug.PrintTextLine'在調(diào)試窗口中顯示數(shù)據(jù)。  
  
  
Loop  
  
  
Close#1'關(guān)閉文件。 
 
 

VB.NET追加文件示例

 
 

  
  
Open"A.txt"ForappendAs#1  
  
  
Print#1,"303(吳志坤)是個(gè)大笨蛋！，居然不知道append是追加。"  
  
  
Print#1,"從QBASIC時(shí)代就有這個(gè)語句了。"  
  
  
Print#1,"Output是從頭寫，Input是讀，Append是追加。"  
  
  
Print#1,"Print#文件號(hào)，是寫文件。"  
  
  
Print#1,"LineInput#文件號(hào)，是成行讀文件。"  
  
  
Print#1,"你地明白否？"  
  
  
Close#1  
 
 

當(dāng)前題目：快速學(xué)習(xí)VB.NET追加文件
網(wǎng)頁URL：http://uogjgqi.cn/article/dhoidii.html