tvro 发表于 2009-7-1 21:57:41

将数组写入文件中的一排?????????谢谢

本帖最后由 tvro 于 2009-7-1 22:49 编辑

Local $EveRpt
Write_Info($EveRpt)
Func Write_Info($EveRpt)
        Local $var,$i
        FileOpen("Info.txt",1)
        For $i = 1 to 15 Step 1
                FileWriteLine("Info.txt",$EveRpt[$i]&"|")
        Next
EndFunc

运行结果:
1|
2|
3|
4|
......

正确结果:
1|2|3|4|5|6|7|8|9|0|A|B|C|D|


各位大老,如何才能写成"正确结果"那样????????????

先谢谢各位大老

maxkingmax 发表于 2009-7-1 22:08:37

可以 用数组函数中的 _arraytostring()
具体使用请查看帮助!

破帽遮颜 发表于 2009-7-1 22:09:42

Local $EveRpt =
Write_Info($EveRpt)
Func Write_Info($EveRpt)
      Local $var,$i
                For $i = 0 To UBound($EveRpt) - 1
                        $var &= $EveRpt[$i]&"|"
                Next
      FileOpen("Info.txt",1)
                FileWriteLine("Info.txt",$var&"|" & @CRLF)
EndFunc

tvro 发表于 2009-7-1 22:34:04

哭着喊着谢谢破帽遮颜,太感谢了,抱着试试的态度提问,没想到那么快!!!!!!!!!!!!!!!!!!!!!!!!!

感谢呀

kn007 发表于 2009-7-2 08:36:42

呵呵，学习了一下

javarike 发表于 2011-9-9 11:40:34

楼上很牛也。。哈哈

单毛线 发表于 2012-12-17 16:48:01

学习学习，吩咐

PEM-System 发表于 2013-9-4 21:08:02

回复 1# tvro
我用了你的代码 结果是出来了就是 有些别扭如下
FileWriteLine("Info.txt",$EveRpt[$i]&"|")
FileWriteLine("Info.txt",^ ERROR
这个怎么解决呢？？？

1361739590 发表于 2013-11-1 13:32:28

回复 8# PEM-System


    Local $EveRpt这行是怎么写的？
页: [1]
查看完整版本: 将数组写入文件中的一排?????????谢谢