Private Sub Command1_Click()
為安定等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務，及安定網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為成都網(wǎng)站設計、做網(wǎng)站、成都外貿網(wǎng)站建設公司、安定網(wǎng)站設計，以傳統(tǒng)方式定制建設網(wǎng)站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！
'寫文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要寫入的文本內容
strFileName = App.Path "\a.txt"
''''''''App.Path "\a.txt"相對路徑
''"c:\w.txt"絕對路徑
lngHandle = FreeFile() '取得句柄
'準備要寫入的內容
strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"
'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入
''''''print#1,text1.text ''''''如果print換成write則寫進txt中后自動加雙引號
Open strFileName For Output As lngHandle '打開文件
Print #lngHandle, strWrite '寫入文本
Close lngHandle '關閉文件
End Sub
Private Sub Command2_Click()
'讀文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所讀取的文本文件的所有內容
Dim strLine As String '在循環(huán)中存放每行的內容
strFileName = App.Path "\a.txt"
'獲得文件的句柄
lngHandle = FreeFile()
'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
Open strFileName For Input As lngHandle
'循環(huán)直到文件尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變量中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內容連接到strAll變量，由于Line Input去掉了換行符，所以這里補上
strAllstrAll = strAll strLine vbCrLf
Loop
'顯示得到的全部分內容
MsgBox strAll
End Sub
Private Sub Command1_Click()
Open App.Path "\a.txt" For Output As #1
Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標控件的屬性
Close #1 '關閉打開的文件
End Sub
'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進txt中后自動加雙引號，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。
這個你可以用 api操作ini文件來實現(xiàn)。ini是windows系統(tǒng)的配置文件。
'首先聲明這兩個api
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
VB6.0
寫入：
Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）
Print #1, Text1.Text '寫入Text1的Text內容
Close #1 '關閉
讀取：
Open "D:\123.txt" For Input As #1 '打開打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循環(huán)讀取文件的內容，并讓Text1.Text=內容
Close #1 '關閉
VB.net中讀寫文件主要使用System.IO命名空間。
① 使用?File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
保存文件的步驟為：
關閉流，特別是寫入流
關閉并保存文件
示例代碼如下：
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊方隊亮相閱兵")
'關閉流
tw.Close()
'關閉文件并保存文件
myFile.Close()
End?Sub
重慶分公司
重慶分公司
