Ⅰ 如何在vb中實現將對象數據保存至txt文件
讀寫代碼如下:
Private Sub Command1_Click()
'寫文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要寫入的文本內容
strFileName = "c:\w.txt"
lngHandle = FreeFile() '取得句柄
'准備要寫入的內容
strWrite = "這些文字將被寫入文件。"
'For後面的參數表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
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 '在循環中存放每行的內容
strFileName = "c:\b.txt"
'獲得文件的句柄
lngHandle = FreeFile()
'For後面的參數表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
Open strFileName For Input As lngHandle
'循環直到文件尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變數中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內容連接到strAll變數，由於Line Input去掉了換行符，所以這里補上
strAll = strAll & strLine & vbCrLf
Loop
'顯示得到的全部分內容
MsgBox strAll
End Sub
Ⅱ vb中如何把變數的值寫入txt文件中
這是Open函數的原型
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open 語句的語法具有以下幾個部分：
部分 描述
pathname 必要。字元串表達式，指定文件名，該文件名可能還包括目錄、文件夾及驅動器。
mode 必要。關鍵字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，則以 Random 訪問方式打開文件。
access 可選。關鍵字，說明打開的文件可以進行的操作，有 Read、Write、或 Read Write 操作。
lock 可選。關鍵字，說明限定於其它進程打開的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
filenumber 必要。一個有效的文件號，范圍在 1 到 511 之間。使用 FreeFile 函數可得到下一個可用的文件號。
reclength 可選。小於或等於 32，767（位元組）的一個數。對於用隨機訪問方式打開的文件，該值就是記錄長度。對於順序文件，該值就是緩沖字元數。
#號在這里是表明 其後面的是一個有效的文件號,它可以省略,即不加也行
一般會在函數的參數中告訴你是否使用#號
在VB中,在函數中一般是在 一個有效的文件號前邊加#號,比如下邊的幾個函數
其中的參數也用到文件號,
Width語句(這里的#號不能省略)
Width #filenumber, width
Width # 語句的語法具有以下幾個部分：
部分 描述
filenumber 必要。任何有效的文件號。
width 必要。范圍在 0-255 之間的數值表達式，在新的一行開始之前，指出在該行上可出現多少字元。如果 width 等於 0，則行的長度不受限制。width 的預設值為 0。
Seek語句
Seek [#]filenumber, position
Seek 語句的語法具有以下幾個部分：
部分 描述
filenumber 必要。任何有效的文件號。
position 必要。介於 1 - 2，147，483，647 之間的數字，指出下一個讀寫操作將要發生的位置。
Get 語句 返回
將一個已打開的磁碟文件讀入一個變數之中。
語法
Get [#]filenumber, [recnumber], varname
Get 語句的語法具有以下幾個部分：
部分 描述
filenumber 必要。任何有效的文件號。
recnumber 可選。Variant (Long)。記錄號（Random 方式的文件）或位元組數（Binary 方式的文件），以表示在此處開始讀出數據。
varname 必要。一個有效的變數名，將讀出的數據放入其中。
Lock，Unlock語句 返回
對於用 Open 語句打開的全部文件或一部分文件，其它進程所進行的控制訪問。
語法
Lock [#]filenumber[, recordrange]
. . .
Unlock [#]filenumber[, recordrange]
Lock 和 Unlock 語句的語法具有以下幾個部分：
部分 描述
filenumber 必要。任何有效的文件號。
recordrange 可選。要鎖定或解鎖的記錄范圍。
設置
recordrange 參數的設置如下：
recnumber [start] To end
設置 描述
recnumber 記錄號（Random 方式的文件）或位元組數（Binary 方式的文件），指定要開始鎖定或解鎖的位置。
start 第一個要鎖定或解鎖的記錄號或位元組數。
end 最後一個要鎖定或解鎖的記錄號或位元組數。
但也有在有效文件號前不加#號的,如下邊的幾個函數
FileAttr函數 返回
返回一個 Long，表示使用 Open 語句所打開文件的文件方式。
語法
FileAttr(filenumber, returntype)
FileAttr 函數的語法具有以下幾個命名參數：
部分 描述
filenumber 必要。Integer 類型，任何有效的文件號。
returntype 必要。Integer 類型。它是數字，指出返回信息的類型。指定 1 則可返回一個代表文件方式的數值。而僅僅在 16 位系統中， 指定 2 才可以恢復操作系統的文件句柄。在 32 位系統中不支持 Returntype 2，它會導致錯誤發生。
LOF函數 返回
返回一個 Long，表示用 Open 語句打開的文件的大小，該大小以位元組為單位。
語法
LOF(filenumber)
必要的 filenumber 參數是一個 Integer，包含一個有效的文件號。
注意 對於尚未打開的文件，使用 FileLen 函數將得到其長度。
Ⅲ vb中怎樣把數據存到文件里
Open 文件絕對路徑 For Input/Output/Append/Binary/Random As #文件號
Input:讀入文件,文件不存在發生錯誤
Output:輸出到文件,文件不存在則創建文件
這兩個是比較常用的
Write #文件號,變數(寫內容到打開的文件)
Put #文件號,文件大小,變數(寫內容到打開的文件,可指定大小)
Print #文件號,變數(寫內容到打開的文件)
Input #文件號,變數(從打開的文件讀入內容)
Line Input #文件號,變數(從打開的文件讀入一行內容(遇到回車符為一行))
Close #文件號(關閉打開的文件)
Open 語句示例
本示例示範 Open 語句的不同用法來做到文件的輸出與輸入。
下列代碼以順序輸入模式打開 TESTFILE 文件。
Open "TESTFILE" For Input As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1
下列代碼以只允許寫操作的二進制方式打開文件。
Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1
下列代碼以隨機方式打開文件，文件中含有用戶自定義數據類型 Record 的記錄。
Type Record ' 定義用戶自定義數據類型。
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record ' 聲明變數。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1
下列代碼以順序輸出方式打開文件；任何過程都可以讀寫該文件。
Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1
下列代碼以只允許讀的二進制方式打開文件；其他過程不可以讀該文件。
Open "TESTFILE" For Binary Access Read Lock Read As #1
例如:
Open App.Path + "\test.txt" For Output As 1
Print #1, Text1.Text
Print #1, Text2.Text
.....
close
下載msdn吧
Ⅳ 在VB中如何把一個文本框裡面的數據寫如一個TXT文件
open "目標文件地址+文件名" for output as #1
print #1,"這是是文本框里的數據"
close #1
'-------
如:
open "c:\Test.txt" for output as #1
print #1,text1.text '這里可以是數據本身也可以是目標控制項的屬性
close #1 '關閉打開的文件
'--end---
執行上面的代碼後 text1中的內容就會被寫到c盤的test.txt文件里