我拷貝你的程序,運(yùn)行完全正確,根本不需要1樓所說的設(shè)置,因?yàn)槟愀緵]有多行(VBCrLf)的問題。
創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于網(wǎng)站制作、成都網(wǎng)站制作、信陽(yáng)網(wǎng)絡(luò)推廣、微信小程序、信陽(yáng)網(wǎng)絡(luò)營(yíng)銷、信陽(yáng)企業(yè)策劃、信陽(yáng)品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供信陽(yáng)建站搭建服務(wù),24小時(shí)服務(wù)熱線:028-86922220,官方網(wǎng)址:jinyejixie.com
一個(gè)可能的原因是你Text3太短,導(dǎo)致只顯示了姓名,后面的年齡被擋住了。所以從這個(gè)角度來(lái)說,一樓的設(shè)置Scrollbars是必要的。
1 打開文件獲取長(zhǎng)度
2創(chuàng)建一個(gè)freefile
3 以讀寫方式打開文件
我只能說對(duì)于dat后綴的隨機(jī)文件,你手動(dòng)打開看是沒有意義的,因?yàn)樗緛?lái)就不是為了讓你像TXT那樣查看的。它是用Random方式打開,Put語(yǔ)句寫入,而不是Output和Print,文件結(jié)構(gòu)就不一樣。
當(dāng)然,可以在程序中用Get語(yǔ)句獲取記錄,把記錄的某條屬性(比如birth)賦給文本框,這樣就還原了。dat隨機(jī)文件可以只看作是用來(lái)存儲(chǔ)數(shù)據(jù)。
如果記錄的類型全是String型,這樣看起來(lái)也許是沒有問題的,如果包含整型、浮點(diǎn)型、布爾型數(shù)據(jù),很可能你看到的是亂碼。所以建議你了解一下文件的組織類型。
dat文件有很多種類型大多數(shù)情況下,.dat文件是程序使用的數(shù)據(jù),它只是開發(fā)者為了清楚文件的意思而自己定義的。
寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() (讀取文本到文本框)
Loop end if
dim data as string
open "文件名" for Random as #1'建立或打開文件
Put #1,,"數(shù)據(jù)"'寫入數(shù)據(jù)(兩逗號(hào)間為“記錄號(hào)”,即讀或?qū)懳募械牡趲讉€(gè)數(shù)據(jù),可省略。若指定記錄號(hào)上已有數(shù)據(jù),則原數(shù)據(jù)將被替換)
close #1'關(guān)閉文件
msgbox "數(shù)據(jù)寫入成功"
open "文件名" for Random as #1'建立或打開文件
get #1,,data'讀取數(shù)據(jù)(兩逗號(hào)間為“記錄號(hào)”,即讀或?qū)懳募械牡趲讉€(gè)數(shù)據(jù),可省略)
close #1'關(guān)閉文件
msgbox "讀取數(shù)據(jù)成功:" data '"讀寫驗(yàn)證"
'給你總結(jié)一下:這個(gè)隨機(jī)文件類似于表格(像excel),每個(gè)數(shù)據(jù)都是一個(gè)單元,“記錄號(hào)”就是第幾個(gè)數(shù)據(jù)單元。好了,希望你能明白
名稱欄目:vb.net文件隨機(jī)讀寫,vb中打開隨機(jī)文件的語(yǔ)句
文章地址:http://jinyejixie.com/article28/hsidcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供面包屑導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、商城網(wǎng)站、網(wǎng)站排名、虛擬主機(jī)、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)