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 判斷檔案...