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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET文本文件操作一點通

今天和大家分享一下關(guān)于VB.NET文本文件操作的方法，希望對大家有幫助。此種方式是以行為單位進(jìn)行讀取的基本單位，主要應(yīng)用的方法和函數(shù)有Open,Close,Line Input,FreeFile，EOF等。下面先簡述其功能然后結(jié)合代碼示例進(jìn)行說明。

#T#Open：顧名思義，它的作用是打開文件，換而言之打開某個文件就是獲得某個的控制權(quán)，一般情況下當(dāng)文件處于打開狀態(tài)時只有打開者才能對它進(jìn)行操作。打開文件時要指定一個整數(shù)作為文件號，以后的操作都是針對這個代號進(jìn)行的，而不是針對文件名。文件號也叫句柄，在程序中一個文件號只能指向一個文件，不能出現(xiàn)兩個文件同時具有相同句柄的情況。
Close:關(guān)閉文件，即釋放文件的控制權(quán)。
Line Input:以行為單位取得文件內(nèi)容，以行為單位是指從當(dāng)前位置開始到下一個換行符為止的內(nèi)容。換行符是Chr(13) & Chr(10)兩個字節(jié)組成，VB中已定義了常量vbCrLf，可直接使用。要注意的是Line Input讀取一行時會把行尾的換行符去掉，因此我們在讀取每行內(nèi)容時要記得補上換行符才能保持得到的內(nèi)容與文件一致。
FreeFile:得到空閑的文件號，用這個函數(shù)取得文件號可以避免文件號的沖突。

VB.NET文本文件操作例如：

 
 
    
  
  
  1. Dim strFileName As String '文件名 
    2. 
  
  
  2. Dim lngHandle As Long '文件句柄 
    3. 
  
  
  3. Dim strAll As String '所讀取的文本文件的所有內(nèi)容 
    4. 
  
  
  4. Dim strLine As String '在循環(huán)中存放每行的內(nèi)容 
    5. 
  
  
  5. strFileName = "c:\.txt"
    6. 
  
  
  6. '獲得文件的句柄 
    7. 
  
  
  7. lngHandle = FreeFile() 
    8. 
  
  
  8. 'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入 
    9. 
  
  
  9. Open strFileName For Input As lngHandle 
    10. 
  
  
  10. '循環(huán)直到文件尾 
    11. 
  
  
  11. Do While Not EOF(lngHandle) 
    12. 
  
  
  12. '每次讀取一行存放在strLine變量中 
    13. 
  
  
  13. Line Input #lngHandle, strLine 
    14. 
  
  
  14. '每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補上 
    15. 
  
  
  15. strAllstrAll = strAll & strLine & vbCrLf 
    16. 
  
  
  16. Loop 
    17. 
  
  
  17. '顯示得到的全部分內(nèi)容 
    18. 
  
  
  18. MsgBox strAll, vbInformation
    19.

對VB.NET文本文件操作的寫入相對簡單些，有三個步驟：打開文件，寫入文本，關(guān)閉文件。

代碼示例：

 
 
    
  
  
  1. Dim strFileName As String '文件名 
    2. 
  
  
  2. Dim lngHandle As Long '句柄 
    3. 
  
  
  3. Dim strWrite As String '要寫入的文本內(nèi)容 
    4. 
  
  
  4. strFileName = "c:\w.txt"
    5. 
  
  
  5. lngHandle = FreeFile() '取得句柄 
    6. 
  
  
  6. '準(zhǔn)備要寫入的內(nèi)容 
    7. 
  
  
  7. strWrite = "落日樓頭，斷鴻聲里，江南游子。把吳鉤看了，欄干拍遍，無人會、登臨意。"
    8. 
  
  
  8. Open strFileName For Output As lngHandle '打開文件 
    9. 
  
  
  9. Print #lngHandle, strWrite '寫入文本 
    10. 
  
  
  10. Close lngHandle '關(guān)閉文件 
    11. 
  
  
  11. MsgBox "寫入完成。", vbInformation 
    12.

網(wǎng)站標(biāo)題：VB.NET文本文件操作一點通
網(wǎng)站網(wǎng)址：http://www.5511xx.com/article/dpsocei.html