保存文件的步驟為:
公司主營(yíng)業(yè)務(wù):網(wǎng)站制作、成都做網(wǎng)站、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶(hù)真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競(jìng)爭(zhēng)能力。成都創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對(duì)我們的高要求,感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶(hù)帶來(lái)驚喜。成都創(chuàng)新互聯(lián)推出義馬免費(fèi)做網(wǎng)站回饋大家。
關(guān)閉流,特別是寫(xiě)入流搜兄橋
關(guān)閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開(kāi)文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
塵帶????????????????????????????FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?世猛tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
在游戲退出時(shí)將得分、嘩行玩家名、關(guān)數(shù)、級(jí)別這些數(shù)值保存到一個(gè)
數(shù)據(jù)文件
,下次運(yùn)行念仿時(shí)再讀取這些數(shù)據(jù)就可以恢復(fù)上次游戲的狀態(tài)。亂高嘩
這個(gè)你可以消賀用 api操作ini文件來(lái)實(shí)讓宴現(xiàn)。ini是windows系統(tǒng)的配置文件。
'首先聲坦橋銀明這兩個(gè)api
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
VB可以用任敗和何格式保存文件數(shù)據(jù)不僅僅是注冊(cè)表\XML\INI
甚至于蔽埋未知的格式。我教你命令:
open "C:\setup.safe"宏枯螞 for output as #1
print #1,"object"
close #1
其中setup.safe就是一個(gè)文件,后綴為.safe,當(dāng)然可以改成.dat包括其他任何后綴.
object就是你要寫(xiě)入setup.safe的內(nèi)容.