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

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

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

Local $EveRpt[1,2,3,4,5,6,7,8,9,0,A,B,C,D]
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[14] = [1,2,3,4,5,6,7,8,9,0,"A","B","C","D"]
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,2,3,4,5,6,7,8,9,0,A,B,C,D] 这行是怎么写的？

		自动登录	找回密码
密码			加入