你就不能這樣保存么? ?↓
成都創(chuàng)新互聯(lián)是專(zhuān)業(yè)的塔河網(wǎng)站建設(shè)公司,塔河接單;提供成都做網(wǎng)站、網(wǎng)站設(shè)計(jì),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行塔河網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!
Static?SaveNumber?as?Integer
SaveNumber?+=?1
Dim?SavePath?as?String?=?"C:\ytakqi"??SaveNumber??".png"
bit.Save(SavePath)
VB6.0
寫(xiě)入:
Open "D:\123.txt" For Output As #1 '打開(kāi)XXX路徑的XXX文件(雙引號(hào)里表示文件位置和文件名)
Print #1, Text1.Text '寫(xiě)入Text1的Text內(nèi)容
Close #1 '關(guān)閉
讀?。?/p>
Open "D:\123.txt" For Input As #1 '打開(kāi)打開(kāi)XXX路徑的XXX文件(雙引號(hào)里表示文件位置和文件名)
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循環(huán)讀取文件的內(nèi)容,并讓Text1.Text=內(nèi)容
Close #1 '關(guān)閉
VB.net中讀寫(xiě)文件主要使用System.IO命名空間。
① 使用?File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫(xiě)入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
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)容.