VB如何生成dat文件

比如说我要做个程序按下按钮后记录文本框中输入的东西下次打开的时候还是那东西代码我也有了虽然看不懂但主要是不知道dat文件怎么生成.谁知道告诉我下好么!... 比如说我要做个程序按下按钮后记录文本框中输入的东西下次打开的时候还是那东西代码我也有了虽然看不懂但主要是不知道dat文件怎么生成.谁知道告诉我下好么! 展开
 我来答
zdingyun
2016-01-05 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48177
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

VB可通过Open 语句,用Print # 语句将格式化显示的批处理行命令数据写入顺序文件中。

  • Open 语句,能够对文件输入/输出 (I/O)。

  • Print # 语句,将格式化显示的数据写入顺序文件中。

  • Output关键字,如果 pathname 指定的文件不存在,那么,在用 
    Append、Binary、Output、或 Random 
    方式打开文件时,可以建立这一文件。

  • 实现代码,在D盘根目录生成一个将D盘根目录下的文件复制到E盘根目录的BAT批处理文件。

Private Sub Form_Click()
    Open "D:\Copy.bat" For Output As #1 
        Print #1, "Copy D:\*.* E:\*.*"
    Close #1
End Sub
szdan
推荐于2017-10-08 · TA获得超过662个赞
知道小有建树答主
回答量:287
采纳率:0%
帮助的人:0
展开全部
dat 文件并不是专门的文件格式,任意文件都可以以 dat 结尾

Private Sub Command1_Click()
Open App.Path & "\text.dat" For Output As #1
Print #1, Text1.Text
Close
End Sub

Private Sub Form_Load()
If Dir(App.Path & "\text.dat") <> "" Then
Open App.Path & "\text.dat" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close
End If
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
圣鸾OJ
2015-10-04 · TA获得超过1629个赞
知道小有建树答主
回答量:1136
采纳率:96%
帮助的人:113万
展开全部
dat 文件并不是专门的文件格式,任意文件都可以以 dat 结尾

Private Sub Command1_Click()
Open App.Path & "\text.dat" For Output As #1
Print #1, Text1.Text
Close
End Sub

Private Sub Form_Load()
If Dir(App.Path & "\text.dat") <> "" Then
Open App.Path & "\text.dat" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
聼说她来过m
2015-11-12 · TA获得超过142个赞
知道答主
回答量:66
采纳率:0%
帮助的人:7.6万
展开全部
用文件写就可以了.
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.dat", True)
a.WriteLine("This is a test.")
a.Close.dat
没有确定的含义, 什么数据结构都可以.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xinliang10086
2009-03-17 · TA获得超过178个赞
知道答主
回答量:97
采纳率:0%
帮助的人:47.7万
展开全部
你可以把代码放在文本里面啊
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式