Question

用vb输出信息

Dim filename$
filename = App.Path & "\123.txt"
' 打开文件 追加方式，没有的话新建
Open filename For Append As #1
' 往文件里写入一行数据
Print #1, "abc:" & "？？？？"
' 关闭文件
Close #1
在？？？处写什么才可以输出之前填写的信息，自动写在 "\123.txt"里？

Answer 1

看了xian_100103的回答和题主的追问，题主对VB甚至是对编程几乎是一窍不通呀，对什么是变量都没有什么概念。看来得解释的很明白很明白很明白才行。

 

因为题主给的条件太少，我这里先假设题主的填写工程名称的控件是Combo1，填写取用人的控件是Combo2，填写出入库的控件是Option1和Option2，填写取用数量的控件是Text1，填写备注的控件是Text2，确认按钮的控件是Command1，那么应该在Command1_Click中添加如下代码：

Dim myInfo As String
Dim myStr As String 
Dim fileName As String
 
If Option1.Value = True Then
    myStr = "出库"
Else 
    myStr = "入库"
End If    
myInfo = "工程名称：" & Combo1.Text & "|取用人：" & Combo2.Text & "|出入库：" & myStr & "|数量：" & Text1.Text & "|备注：" & Text2.Text
  
fileName = App.Path & "\123.txt"
Open filenName For Append As #1
    Print #1, myInfo
Close #1

追问

这是怎么回事哈，谢谢

追答

说明这个文件路径下没有123.txt这个文件，另外这个文件路径明明是题主你在题目里给我的，你怎么能问我怎么回事呢？

Answer 2

text1.text

追问

要输出前面填写的信息

追答

Print #1, "abc:" & s
把需要输出的内容放在字符串s中。

追问

需要输出的内容是前面选择的内容，不是固定的内容，谢谢