data1= "　　"
data2= "名称："
data3= "设备："
data4= "日期："
data5= "高度："
data6= "客户："
data7= "备注："
data= data1+data2+inputbox("输入名称","输入信息")+data1+data3+inputbox("输入设备","输入信息")+data1+data4+inputbox("输入日期","输入信息")+data1+data5+inputbox("输入高度","输入信息")+data1+data6+inputbox("输入客户","输入信息")+data1+data7+inputbox("输入备注","输入信息")
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("1.txt",8)
f.writeblanklines(0)
f.writeline data
f.close







    复制代码