【正文】 te： 讀寫鎖 ，不允許讀寫。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件的打開(kāi)與關(guān)閉 FileOpen （文件號(hào)，文件名 [ ，訪問(wèn)方式 ][ ，訪問(wèn)類型 ][ ，共享類型 ][ ，記錄長(zhǎng)度 ] ） 1．文件的打開(kāi) 以 順序方式 打開(kāi)文件，該值用來(lái)確定 緩沖區(qū)的大小 ，缺省值為 512B。以 隨機(jī)方式 打開(kāi)文件，該值指示 記錄的長(zhǎng)度 。以 二進(jìn)制方式 打開(kāi)文件，則 忽略該值 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件的打開(kāi)與關(guān)閉 FileOpen （文件號(hào)，文件名 [ ，訪問(wèn)方式 ][ ，訪問(wèn)類型 ][ ，共享類型 ][ ，記錄長(zhǎng)度 ] ） 1．文件的打開(kāi) FileOpen (1,”d:\”,) 以 順序方式 打開(kāi) d盤中的 。打開(kāi)成功后，只能按照 順序方式 讀取數(shù)據(jù) 。 FileOpen(2,”d:\”, , ,34) 以 隨機(jī)方式 打開(kāi) d盤中的 。文件不存在，就建立一個(gè)新的文件。文件存在。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件的打開(kāi)與關(guān)閉 2．文件的關(guān)閉 關(guān)閉文件時(shí)，要把文件緩沖區(qū)中的數(shù)據(jù)寫入文件，同時(shí)釋放與之關(guān)聯(lián)的文件號(hào)。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件的打開(kāi)與關(guān)閉 2．文件的關(guān)閉 FileClose（ [文件號(hào) ]） FileOpen(1,”d:\”,) …… FileOpen(2,”d:\bb”, , ,34) …… FileClose（ 1）‘關(guān)閉文件” d:\” …… FileClose（）‘關(guān)閉所有已打開(kāi)的文件 關(guān)閉與文件號(hào)對(duì)應(yīng)的文件。文件號(hào)缺省時(shí)，關(guān)閉所有打開(kāi)的文件。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Seek函數(shù) 文 件 處 理 函 數(shù) 文件操作函數(shù) Seek（文件號(hào) [，位置 ]） 設(shè)置文件指針的位置 。 順序文件 中文件指針移動(dòng)的長(zhǎng)度與所讀寫的字符串長(zhǎng)度相同 。 隨機(jī)文件 中文件指針的移動(dòng)單位是記錄長(zhǎng)度。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件操作函數(shù) （ 1） “位置”是一個(gè) Long型 數(shù)值表達(dá)式，用于指定下一個(gè)要讀寫的位置。 1． Seek函數(shù) Seek（文件號(hào) [，位置 ]） 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 文 件 處 理 函 數(shù) 文件操作函數(shù) （ 2）在 FileGet或 FilePut函數(shù)中指定的記錄號(hào)優(yōu)先于由Seek函數(shù)確定的位置。 1． Seek函數(shù) Seek（文件號(hào) [，位置 ]） 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 2． LOF函數(shù) 文 件 處 理 函 數(shù) 文件操作函數(shù) LOF（文件號(hào)） 返回為指定文件分配的字節(jié)數(shù)，空文件返回 0。 如果文件是隨機(jī)文件， Length是記錄長(zhǎng)度，則 文件的記錄數(shù) =LOF（文件號(hào)） / Length。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 3． EOF函數(shù) 文 件 處 理 函 數(shù) 文件操作函數(shù) EOF（文件號(hào)） 測(cè)試文件指針是否指到文件的結(jié)束位置，其值為 True或 False。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 3． EOF函數(shù) 文 件 處 理 函 數(shù) 文件操作函數(shù) EOF（文件號(hào)） Do While Not EOF(1) ?文件未結(jié)束，執(zhí)行循環(huán)體 文件讀寫語(yǔ)句 Loop 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） 把數(shù)據(jù)寫入到與指定的文件中 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） 如果是多個(gè)表達(dá)式，各表達(dá)式之間用 逗號(hào)隔開(kāi) 。缺省Spc和 Tab函數(shù)時(shí)，各數(shù)據(jù)按照標(biāo)準(zhǔn)的分區(qū)格式寫入文件。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） （ 2） Spc(n)函數(shù)產(chǎn)生 n個(gè)空格。 如果 n大于輸出行的寬度 ，下一個(gè)輸出位置為： 當(dāng)前位置 +（ n Mod 行寬） 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Print(1, 26, SPC(6), VB .NET教程 , SPC(6), 1/2/1996, SPC(6), False) 思 考 該語(yǔ)句完成的功能是什么？ 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Print(1, 26, SPC(6), VB .NET教程 , SPC(6), 1/2/1996, SPC(6), False) 把 4個(gè)表達(dá)式的值寫入文件中，兩個(gè)相鄰的數(shù)據(jù)之間有 6個(gè)空格，形式為： 26 VB .NET教程 199612 False 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） （ 3） Tab函數(shù) 把 文件指針移到當(dāng)前行的第 n列位置 。 如果 n小于 1時(shí)，下一個(gè)寫入位置移到當(dāng)前行第 1列； 如果 n大于輸出行的寬度 ，下一個(gè)寫入位置為 = n Mod 行寬； 如果 n小于當(dāng)前的寫入位置 ，下一個(gè)寫入位置在下一行的第 n列。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Tab函數(shù) 從對(duì)象的左端 開(kāi)始計(jì)數(shù)； Spc函數(shù) 表示兩輸出項(xiàng)之間的空格數(shù) 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Print(1, 26, VB .NET教程 ,TAB(32), 1/2/1996, TAB(49), False) 寫入結(jié)果為： 26 VB .NET教程 199612 False 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） 輸出行的 最左邊 為第 1列， 一個(gè)漢字占兩列 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） （ 1） Print函數(shù)具有 計(jì)算和輸出雙重功能 ，對(duì)于表達(dá)式，先計(jì)算后輸出。 如果表達(dá)式中出現(xiàn) “ =”，則代表 邏輯運(yùn)算符“等于” ，而不是賦值號(hào)。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） （ 2）如果想在文件中換行，使用 Print（文件號(hào)， Chr(13) amp。 Chr(10)） 語(yǔ)句。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Print(1, (5 + 4) / 6, Chr(13) amp。 Chr(10)) Print(1, a = (5 + 4) / 6) 寫入結(jié)果為： False 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1． Print函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Print（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） （ 3） Print函數(shù)只是把數(shù)據(jù)送到緩沖區(qū) ，當(dāng)遇到文件關(guān)閉、緩沖區(qū)已滿或者緩沖區(qū)未滿，但要執(zhí)行下一個(gè) Print函數(shù)時(shí)，才把緩沖區(qū)中的數(shù)據(jù)寫入文件中。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 2． PrintLine函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 PrintLine（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） PrintLine函數(shù)與 Print函數(shù) 主要的區(qū)別在于 Print函數(shù)輸出數(shù)據(jù)的行尾不包含換行，而 PrintLine函數(shù)在行尾包含換行符 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 2． PrintLine函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 PrintLine（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） PrintLine(1, (5 + 4) / 6) Print(1, a = (5 + 4) / 6) 寫入結(jié)果為： False 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 3． Write函數(shù)和 WriteLine函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Write（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Write和 WriteLine函數(shù)與 Print和 PrintLine函數(shù)的主要區(qū)別在于，當(dāng)把數(shù)據(jù)項(xiàng)寫入文件時(shí)， Write和 WriteLine函數(shù)會(huì) 自動(dòng)為字符數(shù)據(jù)加上雙引號(hào)，為日期型數(shù)據(jù)和邏輯型數(shù)據(jù)加上“ ”號(hào)，兩個(gè)寫入項(xiàng)之間添加逗號(hào) 。 WriteLine（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 3． Write函數(shù)和 WriteLine函數(shù) 文 件 處 理 函 數(shù) 順序文件的讀寫操作 Write（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） WriteLine（文件號(hào) [， [Spc(n)|Tab(n)][，表達(dá)式表 ]]） Write(1, 26, VB .NET教程