高校问答传奇世界主题曲:vb的文件操作
来源：百度文库 编辑：高校问答 时间：2024/05/09 10:51:40
我要在一个文本文件里写入2行数据，如：
Open App.Path & "\Result\" & myFileName & ".txt" For Output As #1
Print #1,"a值","b值" '这里暂且用“，”号隔开
Print #1,Text1.Text,Text2.Text
Close #1
要输出的格式为：
a值 b值
3 4
要第二行值对齐第一行的，想用如Tab()控制，可是不行啊，还是接在一起，没有间隔。请问大虾们怎么解决啊？
Open App.Path & "\Result\" & myFileName & ".txt" For Output As #1
Print #1,"a值","b值" '这里暂且用“，”号隔开
Print #1,Text1.Text,Text2.Text
Close #1
要输出的格式为：
a值 b值
3 4
要第二行值对齐第一行的，想用如Tab()控制，可是不行啊，还是接在一起，没有间隔。请问大虾们怎么解决啊？
为什么要对齐？
VB中的文件是用来存储数的。不是用来显示给别人看的。
如果你 真 要 对齐，也可以。
你先定义个记录类型
如
private type aaa
a1 as string*10
a2 as string*10
end type
static pa as aaa
pa.a1=\"a值\"
pa.a2=\"b值\"
Open App.Path & \"\\Result\\\" & myFileName & \".txt\" For Output As #1
Print #1,pa.a1,pa.a2\'这里暂且用“，”号隔开
pa.a1=Text1.Text
pa.a2=Text2.Text
Print #1,pa.a1,pa.a2\'这里暂且用“，”号隔开
Close #1
这样输出到文件就会对齐。
没调试！！！！
Open App.Path & "\Result\" & myFileName & ".txt" For Output As #1
Print #1, "a值"; Tab(20); "b值"
Print #1, Text1.Text; Tab(20); Text2.Text
Close #1
搞定～