Option ExplicitPrivate Type recordID As Integername As String * 5End TypePublic Sub wrong()MsgBox "發(fā)生錯(cuò)誤" & vbCrLf & Err.Description, 0 + 16, "錯(cuò)誤"End SubPrivate Sub Form_Click()On Error GoTo tag1Dim myrecord As record, positionOpen "C:\Users\stoplee\Desktop\新建文本文檔 (2).txt" For Random As #1 Len = Len(myrecord)'Debug.Print Len(myrecord)position = 1Get #1, position, myrecordPrint myrecord.nameClose #1Exit Subtag1:wrongEnd Sub這個(gè)例子是書(shū)上的 主窗體過(guò)程里 那個(gè)調(diào)試注釋是我自己加的 為毛len（myrecord）等于7 ？？？
2 回答
四季花海
TA貢獻(xiàn)1811條經(jīng)驗(yàn) 獲得超5個(gè)贊
Get 語(yǔ)句
將一個(gè)已打開(kāi)的磁盤(pán)文件讀入一個(gè)變量之中。
語(yǔ)法
Get [#]filenumber, [recnumber], varname
Get 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：
部分 描述
filenumber 必要。任何有效的文件號(hào)。
recnumber 可選。Variant (Long)。記錄號(hào)（Random 方式的文件）或字節(jié)數(shù)（Binary 方式的文件），以表示在此處開(kāi)始讀出數(shù)據(jù)。
varname 必要。一個(gè)有效的變量名，將讀出的數(shù)據(jù)放入其中。
說(shuō)明
通常用 Put 將 Get 讀出的數(shù)據(jù)寫(xiě)入一個(gè)文件。
文件中第一個(gè)記錄或字節(jié)位于位置 1，第二個(gè)記錄或字節(jié)位于位置 2，依此類(lèi)推。若省略 recnumber，則會(huì)讀出緊隨上一個(gè) Get 或 Put 語(yǔ)句之后的下一個(gè)記錄或字節(jié)（或讀出最后一個(gè) Seek 函數(shù)指出的記錄或字節(jié)）。所有用于分界的逗號(hào)都必須羅列出來(lái)，例如：
Get #4,,FileBuffer
下列規(guī)則適用于以 Random 方式打開(kāi)的文件：
如果要讀出的數(shù)據(jù)的長(zhǎng)度小于 Open 語(yǔ)句的 Len 子句中所指定的長(zhǎng)度，Get 會(huì)在某個(gè)邊界之內(nèi)讀出隨后的記錄，在這里，邊界的長(zhǎng)度等于記錄的長(zhǎng)度。將此文件緩沖區(qū)內(nèi)的現(xiàn)有內(nèi)容填入到一個(gè)空間之內(nèi)，該空間介于一個(gè)記錄的結(jié)尾與下一個(gè)記錄的開(kāi)頭之間。因?yàn)闊o(wú)法確定填入的數(shù)據(jù)量，所以，應(yīng)設(shè)法使記錄的長(zhǎng)度與讀出的數(shù)據(jù)長(zhǎng)度一致，這通常是個(gè)好辦法。
如果讀出的變量是一個(gè)可變長(zhǎng)度字符串，則 Get 語(yǔ)句先讀出一個(gè)含有字符串長(zhǎng)度的雙字節(jié)描述符，然后讀出放入變量中的數(shù)據(jù)。所以，Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須至少比字符串的實(shí)際長(zhǎng)度多兩個(gè)字節(jié)。
如果讀出的變量是一個(gè)數(shù)值類(lèi)型的 Variant，則 Get 先讀出兩個(gè)字節(jié)，識(shí)別 Variant 的 VarType，然后讀出放入此變量中的數(shù)據(jù)。例如，在讀出 VarType 3 的 Variant 時(shí)，Get 讀出六個(gè)字節(jié)：前兩個(gè)字節(jié)說(shuō)明 Variant 為 VarType 3 (Long)，后四個(gè)字節(jié)則包含 Long 類(lèi)型數(shù)據(jù)。Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須至少比儲(chǔ)存變量所需的實(shí)際長(zhǎng)度多兩個(gè)字節(jié)。
注意 可以使用 Get 語(yǔ)句從磁盤(pán)中讀出一個(gè) Variant 數(shù)組，但不能使用它讀出包含數(shù)組的標(biāo)量 Variant。也不能使用 Get 從磁盤(pán)中讀出對(duì)象。
如果讀出的變量是 VarType 8 (String) 的 Variant，則 Get 先讀出兩個(gè)字節(jié)，識(shí)別 VarType，接下來(lái)的兩個(gè)字節(jié)指出字符串的長(zhǎng)度，然后讀出字符串?dāng)?shù)據(jù)。Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須比實(shí)際字符串的長(zhǎng)度至少多四個(gè)字節(jié)。
如果讀出的變量是一個(gè)動(dòng)態(tài)數(shù)組，則 Get 會(huì)讀出一個(gè)描述符，其長(zhǎng)度等于 2 加上 8 乘以維數(shù)，即 2 + 8 * NumberOfDimensions。讀出數(shù)組數(shù)據(jù)和數(shù)組描述符就需要占據(jù)字節(jié)，而 Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須大于或等於這些字節(jié)數(shù)的總和。 例如，在將數(shù)組寫(xiě)入磁盤(pán)時(shí)，下列數(shù)組聲明需要 118 個(gè)字節(jié)：
Dim MyArray(1 To 5,1 To 10) As Integer
這 118 個(gè)字節(jié)的分配情況如下：18 個(gè)字節(jié)用于描述符 (2 + 8 * 2)，100 個(gè)字節(jié)用于數(shù)據(jù) (5 * 10 * 2)。
如果讀出的變量是一個(gè)大小固定的數(shù)組，則 Get 只讀出數(shù)據(jù)。它不讀出描述符。
如果讀出的變量是任何其他類(lèi)型的變量（不是可變長(zhǎng)度的字符串或 Variant￡?，則 Get 只讀出變量數(shù)據(jù)。Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須大于或等於要讀出的數(shù)據(jù)的長(zhǎng)度。
Get 在讀出用戶(hù)定義類(lèi)型的元素時(shí)，好象是單獨(dú)地讀出每一個(gè)元素，只是不在元素之間進(jìn)行填充。在磁盤(pán)上，（用 Put 寫(xiě)入的）用戶(hù)定義的類(lèi)型的動(dòng)態(tài)數(shù)組之前有一個(gè)描述符，其長(zhǎng)度等于 2 加上 8 乘以維數(shù)，即 2 + 8 * NumberOfDimensions。Open 語(yǔ)句中的 Len 子句所指定的記錄長(zhǎng)度必須大于或等於讀出個(gè)別元素（包括任何數(shù)組及其描述符在內(nèi)）所需的全部字節(jié)數(shù)總和。
對(duì)于以 Binary 方式打開(kāi)的文件，Random 的所有規(guī)則都適用，但以下情況除外：
當(dāng) Open 語(yǔ)句中的 Len 子句不起作用時(shí)，Get 連續(xù)從磁盤(pán)中讀出所有變量；也就是說(shuō)，兩個(gè)記錄之間沒(méi)有任何填充。
對(duì)于任何不屬于用戶(hù)定義的類(lèi)型的數(shù)組，Get 只讀出數(shù)據(jù)。它不會(huì)讀出描述符。
Get 讀出可變長(zhǎng)度字符串，不管這些字符串是否具有長(zhǎng)度為 2 字節(jié)的描述符，它們都不是用戶(hù)定義的類(lèi)型的元素。所讀出的字節(jié)數(shù)等於字符串已包含的字符數(shù)。例如，下列語(yǔ)句從文件號(hào)為 1 的文件中讀出十個(gè)字節(jié)：
VarString = String(10, )
Get #1,,VarString
Get 語(yǔ)句示例
本示例使用 Get 語(yǔ)句來(lái)將數(shù)據(jù)從文件讀到變量中。示例中假設(shè) TESTFILE 文件中含有五個(gè)用戶(hù)自定義類(lèi)型的記錄。
Type Record ' 定義用戶(hù)自定義的數(shù)據(jù)類(lèi)型。
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, Position ' 聲明變量。
' 為隨機(jī)訪問(wèn)打開(kāi)樣本文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 使用 Get 語(yǔ)句來(lái)讀樣本文件。
Position = 3 ' 定義記錄號(hào)。
Get #1, Position, MyRecord ' 讀第三個(gè)記錄。
Close #1 ' 關(guān)閉文件。
添加回答
舉報(bào)
0/150
提交
取消