日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
快速學(xué)習(xí)VB.NET追加文件

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

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

文本文件的示例：

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

讀文件示例

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

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

VB.NET追加文件示例

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

分享文章：快速學(xué)習(xí)VB.NET追加文件
標(biāo)題鏈接：http://www.5511xx.com/article/dhoidii.html