重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我拷贝你的程序,运行完全正确,根本不需要1楼所说的设置,因为你根本没有多行(VBCrLf)的问题。
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于网站制作、成都网站制作、信阳网络推广、微信小程序、信阳网络营销、信阳企业策划、信阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供信阳建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com
一个可能的原因是你Text3太短,导致只显示了姓名,后面的年龄被挡住了。所以从这个角度来说,一楼的设置Scrollbars是必要的。
1 打开文件获取长度
2创建一个freefile
3 以读写方式打开文件
我只能说对于dat后缀的随机文件,你手动打开看是没有意义的,因为它本来就不是为了让你像TXT那样查看的。它是用Random方式打开,Put语句写入,而不是Output和Print,文件结构就不一样。
当然,可以在程序中用Get语句获取记录,把记录的某条属性(比如birth)赋给文本框,这样就还原了。dat随机文件可以只看作是用来存储数据。
如果记录的类型全是String型,这样看起来也许是没有问题的,如果包含整型、浮点型、布尔型数据,很可能你看到的是乱码。所以建议你了解一下文件的组织类型。
dat文件有很多种类型大多数情况下,.dat文件是程序使用的数据,它只是开发者为了清楚文件的意思而自己定义的。
写入:Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
sr.WriteLine("写入的内容") sr.Close()读取:If (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,,"数据"'写入数据(两逗号间为“记录号”,即读或写文件中的第几个数据,可省略。若指定记录号上已有数据,则原数据将被替换)
close #1'关闭文件
msgbox "数据写入成功"
open "文件名" for Random as #1'建立或打开文件
get #1,,data'读取数据(两逗号间为“记录号”,即读或写文件中的第几个数据,可省略)
close #1'关闭文件
msgbox "读取数据成功:" data '"读写验证"
'给你总结一下:这个随机文件类似于表格(像excel),每个数据都是一个单元,“记录号”就是第几个数据单元。好了,希望你能明白