标题: 处理文件 [打印本页] 作者: cuixiaoyan1020 时间: 2009-8-11 17:15 标题: 处理文件 用vbs脚本写的一段语言,如何实现将两个数组中的所有数据同时导入放到.txt 中?
不太会写代码,不知道问题在哪?哪位高手指点下迷津?谢谢!以下是代码部分
Dim str1,str2,a(3),b(3),str3,str4,str5,str,i,j,a1,b1
str1="在线无数据:"
str2="不在线,无数据:"
a(0)="001"
a(1)="002"
a(2)="003"
b(0)="005"
b(1)="006"
b(2)="007"
inportfile(a)
strg(b)
Function inportfile (a1)
For i=0 to 2
str3=str1+a1(i)+","
Dim fso,f1
Set fso=CreateObject("Scripting.FileSystemObject")
Set f1=fso.CreateTextFile("c:\textfile.txt",true)
f1.Write(str3)
f1.WriteBlankLines(1)
f1.close
Next
End Function
Dim fso,f11
Function strg(b1)
For j=-0 to 2
str4=str2+b1(j)+","
Dim fso,f11
Set fso=CreateObject("Scripting.FileSystemObject")
Set f11=fso.CreateTextFile("c:\textfile.txt",true)
f11.WriteBlankLines(1)
f11.Write(str4)
f11.close
Next
End Function作者: dreamsea123 时间: 2009-8-11 17:37 标题: 修改后的代码 我修改了一下:
Dim str1,str2,a(3),b(3)
str1="在线无数据:"
str2="不在线,无数据:"
a(0)="001"
a(1)="002"
a(2)="003"
b(0)="005"
b(1)="006"
b(2)="007"
inportfile a ,b
Function inportfile (a1,b1)
For i=0 to 2
str1=str1+a1(i)+","
str2=str2+b1(j)+","
Next
Dim fso,f1
Set fso=CreateObject("Scripting.FileSystemObject")
Set f1=fso.CreateTextFile("c:\textfile.txt",true)
f1.Write(str1)
f1.WriteBlankLines(1)
f1.Write(str2)
f1.close
End Function作者: cuixiaoyan1020 时间: 2009-8-11 17:45 标题: 回复 2# 的帖子 好像数据有点不对,上部分都对,谢谢,你再改改作者: cuixiaoyan1020 时间: 2009-8-11 17:48 标题: 回复 2# 的帖子 为何第二句实现的总是:005,005,005?如何实现是005,006,007呢?麻烦你再改改,谢谢作者: dreamsea123 时间: 2009-8-11 17:48
简单,将j换成i就可以了
Dim str1,str2,a(3),b(3)
str1="在线无数据:"
str2="不在线,无数据:"
a(0)="001"
a(1)="002"
a(2)="003"
b(0)="005"
b(1)="006"
b(2)="007"
inportfile a ,b
Function inportfile (a1,b1)
For i=0 to 2
str1=str1+a1(i)+","
str2=str2+b1(i)+","
Next
Dim fso,f1
Set fso=CreateObject("Scripting.FileSystemObject")
Set f1=fso.CreateTextFile("c:\textfile.txt",true)
f1.Write(str1)
f1.WriteBlankLines(1)
f1.Write(str2)
f1.close
End Function作者: cuixiaoyan1020 时间: 2009-8-11 17:51 标题: 回复 5# 的帖子 我刚想跟你说将j改为i 呢?谢谢作者: maomao257 时间: 2009-8-11 18:55
数组下标