vb檔案操作函式

2021-09-06 07:41:00 字數 1993 閱讀 2879

1、open 檔名 [for方式] [access訪問型別] [鎖定] as [#]檔案號 [len=記錄長度]

功能:為檔案的輸入輸出分配緩衝區,並確定緩衝區所使用的訪問方式

說明:1)        方式:指定檔案的輸入輸出方式,可選,預設是random,可以是以下值

a、 output:指定順序輸出方式,將覆蓋原有內容

b、 input:指定順序輸入方式

d、 random:指定隨機訪問方式,也是預設方式,在random方式時,如果沒有access子句,則在執行open語句時,vb將按下列順序開啟檔案:讀/寫、唯讀、只寫

e、 指定二進位制檔案。在這種方式下,可以用get和put語句對檔案中任何位元組位置的資訊進行讀寫。在binary方式中,如果沒有access子句,則開啟檔案的型別與random方式相同

2)、訪問型別:放在關鍵字access之後,用來指定訪問檔案的型別。可以是下列型別之一

a、 read:開啟唯讀檔案

b、write:開啟只寫檔案

3)、鎖定:該子句只在多使用者或多進和環境中使用,用來限制其他使用者或其他程序對開啟進行讀寫操作。鎖定型別包括:

a、 預設:如不指定鎖定型別,則本程序可以多次開啟檔案進行讀寫;在檔案開啟期間,其他程序不能對該檔案執行讀寫操作

b、lock shared:任何機器上的任何程序都可以對該檔案進行讀寫操作

c、 lock read:不允許其他程序讀該 檔案。只在沒有其他read訪問型別的程序訪問該檔案時,才允許這種鎖定。

d、lock write:不允許其他程序寫這個檔案。只在沒有其他write訪問型別的程序訪問該檔案時,才允許這種鎖定

e、 lock read write:不允許其他程序讀寫這個檔案

如果不使用lock子句,則預設為lock read write

4)、檔案號:由使用者自行指定乙個由1~511之間的整數,只要該檔案號未被使用就合法;開啟檔案後,可以用該檔案號進行讀寫等操作

5)、記錄長度:是乙個整型表示式。當選擇該參量時,為隨機訪問檔案設定記錄長度。對於用隨機訪問方式開啟的檔案,該值是記錄長度;對於順序檔案,該值是緩衝字元數。」記錄長度」不能超過32767位元組。對於二進位制檔案,將忽略len子句

舉例:open 「price.dat」 for output as #1

open 「c:\abc.dat」 for radom as #1 len=256

2、close [#檔案號][,#檔案號]……:關閉檔案

3、seek #檔案號,位置:檔案指標跳到指定位置,以位元組為單位。取值1~pow(2,31)-1

4、seek (檔案號):返回當前檔案指標的位置

5、freefile():取得乙個未使用的檔案號

6、loc(檔案號):返回指定檔案的當前讀寫位置

7、lof(檔案號):返回檔案長度

8、eof(檔案號):用來測試檔案是否結束,結束返回true

9、print #檔案號,變數1,變數2,…變數n:按順序將各變數的值寫入順序檔案

如果是print #檔案號,則寫入空行

10、          write #檔案號,表示式表…:作用同 print

11、          input #檔案號,變數表….:讀順序檔案,進行與print相反的操作

12、          line input #檔案號,字串變數:從順序檔案中讀入一行

13、          input$(n,#檔案號):從順序檔案讀出 n個字元的字串

14、          put #檔案號,[記錄號],變數:把除物件變數和陣列變數外的任何變數(包括號含有單個陣列元素的下標變數)的內容寫入隨機檔案。

例如:put #2,,filebuff

15、          get #檔案號,[記錄號],變數:讀隨機檔案,執行與put相反的操作

17、          kill 檔名:刪除檔案

18、          filecopy 源檔名,目標檔名:複製檔案

19、          name原檔名 as 新檔名:重命令檔案

寫檔案操作 VB

寫檔案操作 public function writefile strwhat as string,strfilepath as string,strfilename as string as boolean writefile false dim fso as new filesystemobje...

VB操作excel檔案

1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...

VB操作excel檔案

1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...