处理文件

cuixiaoyan1020

用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

我修改了一下：
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

好像数据有点不对，上部分都对，谢谢，你再改改

cuixiaoyan1020

为何第二句实现的总是:005,005,005?如何实现是005,006,007呢？麻烦你再改改，谢谢

dreamsea123

简单，将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

我刚想跟你说将j改为i 呢？谢谢

maomao257

数组下标