VB6.0
成都網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)建站!專注于網(wǎng)頁設(shè)計(jì)、成都網(wǎng)站建設(shè)、微信開發(fā)、小程序制作、集團(tuán)企業(yè)網(wǎng)站制作等服務(wù)項(xiàng)目。核心團(tuán)隊(duì)均擁有互聯(lián)網(wǎng)行業(yè)多年經(jīng)驗(yàn),服務(wù)眾多知名企業(yè)客戶;涵蓋的客戶類型包括:成都茶樓設(shè)計(jì)等眾多領(lǐng)域,積累了大量豐富的經(jīng)驗(yàn),同時(shí)也獲得了客戶的一致稱揚(yáng)!
寫入:
Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件(雙引號(hào)里表示文件位置和文件名)
Print #1, Text1.Text '寫入Text1的Text內(nèi)容
Close #1 '關(guān)閉
讀取:
Open "D:\123.txt" For Input As #1 '打開打開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點(diǎn)虐 中讀寫文件主要使用System.IO命名空間。
① 使用?File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
步驟大概是這樣的:
Step1:編寫代碼
Step2:單擊“文件”——選擇“保存工程”
Step3:保存窗體(*.frm),模塊(*.bas),類(*.cls)文件
Step4:保存工程(*.vbp)文件
Step5:保存完后,會(huì)彈出一個(gè)對(duì)話框,內(nèi)容大概是這樣的,“Do you Add SourceSafe?”,那里選擇“否”就可以了
打開的時(shí)候:直接找到"工程名.vbp"(就是的工程文件,VB Project),直接雙擊打開就可以了。
點(diǎn)擊保存按鈕或在菜單中選擇【文件】-【保存】,首先保存的是窗體文件,可以保存在硬盤的某個(gè)目錄中,然后將工程文件同樣保存在這個(gè)目錄,以后你添加其他窗體,再次點(diǎn)擊保存按鈕,其他窗體的文件也就保存在這個(gè)目錄中了。\x0d\x0a添加的窗體文件和工程文件保存后,你可以在硬盤中找到保存的目錄,雙擊 *.vbp 工程文件,就可以打開工程及全部保存的全部窗體了。