下面給出幾個利用vbscript訪問外部檔案的例子:
rem 在當前盤根目錄下建立"測試.txt"並寫入乙個字串
vbs dim fso,file,filename
vbs filename="\測試.txt"
vbs const forwriting=2
vbs set fso=createobject("scripting.filesystemobject")
ifexpression fso.fileexists(filename)=-1
vbscall call messagebox("發現錯誤!!!檔案已經存在!!!")@
goto over
endif
vbs set file=fso.createtextfile(filename,ture)
vbs file.writeline("檔案第一行,這是乙個測試檔案")
vbs file.close
vbscall call messagebox("測試檔案建立成功!!!")@
rem over
endscript
2.強行寫入檔案覆蓋原有內容：
rem 往當前盤根目錄下的檔案"測試.txt"寫入乙個字串,覆蓋原有內容
vbs dim fso,file,filename
vbs filename="\測試.txt"
vbs const forwriting=2
vbs set fso=createobject("scripting.filesystemobject")
ifexpression fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")@
goto over
endif
vbs set file=fso.opentextfile(filename,forwriting,ture)
vbs file.writeline("測試寫入檔案行")
vbs file.close
vbscall call messagebox("寫入檔案成功!!!")@
rem over
endscript
3.往檔案尾部追加內容：
rem 往當前盤根目錄下的檔案"測試.txt"末尾追加乙個字串
vbs dim fso,file,filename
vbs filename="\測試.txt"
vbs set fso=createobject("scripting.filesystemobject")
ifexpression fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")@
goto over
endif
vbs file.writeline("測試追加字串到檔案末尾")
vbs file.close
vbscall call messagebox("追加字串到檔案成功!!!")@
rem over
endscript
4.讀取指定檔案一行
rem 從當前盤根目錄下的檔案"測試.txt"讀一行
vbs dim fso,file,filename,text
vbs filename="\測試.txt"
vbs const forreading=1
vbs set fso=createobject("scripting.filesystemobject")
ifexpression fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")@
goto over
endif
vbs set file=fso.opentextfile(filename,forreading)
vbs text=file.readline
vbs file.close
vbs text="從檔案"&filename&"讀取行成功！讀到的字串為:"&text
vbscall call messagebox(text)@
rem over
endscript
5.從指定檔案行讀取2個字元
rem 從當前盤根目錄下的檔案"測試.txt"讀取2個字元
vbs dim fso,file,filename,text
vbs filename="\測試.txt"
vbs const forreading=1
vbs set fso=createobject("scripting.filesystemobject")
ifexpression fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")@
goto over
endif
vbs set file=fso.opentextfile(filename,forreading)
vbs text=file.read(2)
vbs file.close
vbs text="從檔案"&filename&"讀取2個字元成功！讀到的字元為:"&text
vbscall call messagebox(text)@
rem over
endscript
6. readall讀取整個檔案內容，大檔案太佔資源，不建議使用
使用方法和readline近似
7.skipline跳過當前行
使用方法是file.skipline,僅用於唯讀屬性開啟的檔案
8.測試檔案行結束/檔案結束
a.測試行結束
判斷語句
ifexpression file.atendofline=-1
...endif
表示式為真的時候當前指標處於行末
b.測試檔案結束
判斷語句
ifexpression file.atendofstream=-1
...endif
表示式為真的時候當前指標處於檔案末
9.其他用於檔案的函式或者叫方法功能有
a.file.column 返回當前列號
b.file.line 返回當前行號
c.file.fileexists(filename) 判斷指定檔案是否存在
最後強調一點，開啟檔案以後一定要記得關閉，以免發生資料錯誤，丟失資料。有問題的朋友可以跟帖，大家一起研究
按鍵精靈 5 按鍵精靈控制指令碼流程2
標記 rem 格式 rem 標記名 跳轉 goto 格式 goto 標記名 如果在子程式內部，goto會先搜尋子程式內部是否有對應標記，如果有則跳轉到子程式內部，若果沒有則跳轉到朱指令碼中的標記 不能從乙個子程式中goto到另乙個子程式中 不能從主指令碼goto到子程式或函式內部 endscript...
按鍵精靈 3 按鍵精靈鍵盤滑鼠命令
1.鍵盤命令 按下鍵盤上的某乙個鍵並彈起的動作被稱為按鍵。對應命令格式為 keypress 按鍵碼，次數 可以在編輯器的基本命令裡查詢按鍵碼 例如要實現組合命令的必殺技 d 有時速度太快遊戲未必能響應出動作，所以一般會加上延時 delay 單位為毫秒，1秒 1000毫秒 如果要打出 符號的話 模擬方...
熱血江湖按鍵精靈遊戲指令碼
做這些指令碼，起初是給自己用的。後來在網上發現不少朋友在到處尋找,更有甚者,竟然把簡單的指令碼 真是黑到頭啊。為了讓更多喜歡熱血的朋友輕鬆遊戲，先放上來.指令碼有什麼用?讓你的雙手有更多的時間去做其他的事.為什麼要用按鍵精靈的指令碼?外怪有封號的危險,簡單遊的木馬橫行,封號好象也存在，雖然簡單遊跟1...