VB 程式碼筆記

讀檔寫檔

　　FileOpen ( 檔案代碼 , "檔案路徑" , OpenMode.存取模式 )
　　檔案代碼可以自行以數字設定，或是以 FreeFile() 自動取得
　　存取模式有三種：Output（全新寫入）、Append（接續寫入）、Input（讀取）
　　使用完畢後須關閉檔案：FileClose( 檔案代碼 )，若沒填代碼，則全部關閉。

循序資料檔的讀寫
　　讀取：Input ( 檔案代碼 , 變數 )
　　寫入：Print ( 檔案代碼 , 資料 , … )　　　←資料不換行，沒有雙引號
　　　　　PrintLine ( 檔案代碼 , 資料 , … )　 ←資料會換行，沒有雙引號
　　　　　Write ( 檔案代碼 , 資料 , … )　　　←資料不換行，會有雙引號
　　　　　WriteLine ( 檔案代碼 , 資料 , … )　←資料會換行，會有雙引號
　　　　　
檔案結束符號：EOF，用來判斷是否讀取到檔案結尾。
　　例：　Do While ( Not EOF( 檔案代碼 ) )
　　　　　　　Input ( 檔案代碼 , 變數 )
　　　　　　　．．．．
　　　　　LOOP


讀檔 EX　My.Computer.FileSystem.ReadAllText("C:\ABC.txt")
(讀取 ABC.txt)

寫檔 EX    My.Computer.FileSystem.WriteAllText("C:\ABC.txt", writetxt, False)

(寫檔至C槽的ABC.txt (副檔名不可漏),寫入變數writetxt 中的字串,
False=不接續 會將原本蓋掉 若要接著寫檔 填True)

分割

Split("要分割的字串","當作分割指標的符號") EX Split("1.2.3",".")  傳出值為"1","2","3"

Split(已存入字串的變數,"當作分割指標的符號")

函數應用 先宣告一個 r() , r =split(My.Computer.FileSystem.ReadAllText("C:\ABC.txt"),"符號") 

即可讀取ABC.txt並分割,儲存每一個分割的字串到r()

Replace(取代)

EX   (Replace(已儲存字串的變數, "原本字串的要被取代的字", "要取代成的字")

Response = MsgBox("請問是否開新遊戲", MsgBoxStyle.YesNo)

        If Response = vbYes Then




http://blog.xuite.net/alwaysfuturevision/liminzhang/8521465-Visual+Basic+2005+%E6%AA%94%E6%A1%88+IO+%E8%88%87%E8%B3%87%E6%96%99%E5%AD%98%E5%8F%96%E7%A7%98%E8%A8%A3