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

VB.NET可以幫助開發(fā)人員創(chuàng)造一個穩(wěn)定性相當(dāng)強大的開發(fā)環(huán)境。并且可以實現(xiàn)許多特定的功能需求。在這一部分，你將找到更多常用的文件操作的代碼實例。最常用、最基本的操作就是把text寫入文件和讀回來?，F(xiàn)在的應(yīng)用程序通常不用二進(jìn)制文件作存儲簡單的變量，而用它來存儲對象，對象集合以及其他機器代碼。下面，將看到具體VB.NET讀寫文本文件操作的例子。 #t#

為了把text保存到文件，創(chuàng)建一個基于FileStream的StreamReader對象，然后調(diào)用Write方法把需要保存的text寫入文件。下面的代碼用SaveFileDialog提示用戶指定一個文件，用于保存TextBox1的內(nèi)容。

1. SaveFileDialog1.Filter = _ 
2. "Text Files|*.txt|All Files|*.*" 
3. SaveFileDialog1.FilterIndex = 0 
4. If SaveFileDialog1.ShowDialog = 
   DialogResult.OK Then 
5. Dim FS As FileStream = 
   SaveFileDialog1.OpenFile 
6. Dim SW As New StreamWriter(FS) 
7. SW.Write(TextBox1.Text) 
8. SW.Close() 
9. FS.Close() 
10. End If 

同樣采用類似的語句，我們實現(xiàn)VB.NET讀寫文本文件，并把內(nèi)容顯示在TextBox控件中。StreamReader的ReadToEnd方法返回文件的全部內(nèi)容。

 
 
 

  
  
  
OpenFileDialog1.Filter = _  
  
  
  
"Text Files|*.txt|All Files|*.*"  
  
  
  
OpenFileDialog1.FilterIndex = 0  
  
  
  
If OpenFileDialog1.ShowDialog =
 DialogResult.OK Then  
  
  
  
Dim FS As FileStream  
  
  
  
FS = OpenFileDialog1.OpenFile  
  
  
  
Dim SR As New StreamReader(FS)  
  
  
  
TextBox1.Text = SR.ReadToEnd  
  
  
  
SR.Close()  
  
  
  
FS.Close()  
  
  
  
End If 
 
 
 

VB.NET讀寫文本文件的相關(guān)實現(xiàn)方法就為大家介紹到這里。

分享文章：深入剖析VB.NET讀寫文本文件相關(guān)方法
標(biāo)題網(wǎng)址：http://m.5511xx.com/article/dpjgdio.html