vb小问题一个!!请大家帮忙

hailong326 2003-05-13 03:09:19
ui界面上有一个文本输入框,当输入数据,点击按钮“保存”,能将文本框的数据写到本地文件里。怎么搞定?
请大家帮忙写写代码!
...全文
50 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lihonggen0 2003-05-13
8)读写文本文件到文本框

--------------------------------------------------------------------------------
把文本文件内容读取TextBox:
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)



把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

回复
qingming81 2003-05-13
已经发了。不过我看你好象是使用随机文件存在数据,那个比ACCESS数据库方式更简单的。
回复
CBASE 2003-05-13
同意qingming81(晴明) 的意见
回复
hailong326 2003-05-13
qingming81(晴明) 好人,
请看
http://expert.csdn.net/Expert/topic/1776/1776432.xml?temp=.4763147

我得信箱是
chl326@163.com
回复
hailong326 2003-05-13
本地文件为文本文件
回复
qingming81 2003-05-13
使用Write代替print也可以,但它会在文件写入内容前后加一双引号
回复
qingming81 2003-05-13
如果只是加在文件尾
open app.path & "\A.txt" for append as #1
print #1,text1.text
close #1
回复
qingming81 2003-05-13
open app.path & "\A.txt" for output as #1
print #1,text1.text
close #1
回复
madawei 2003-05-13
写到本地文件里?
这个本地文件是什么啊?
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-13 03:09
社区公告
暂无公告