请教用2个for的问题[已解决]

supertiger · 发表于 2010-5-9 22:37:47

本帖最后由 supertiger 于 2010-5-10 00:06 编辑

我有2个档案
test1.txt       test2.txt
A                   1
B                   2
C                   3
D                   4
E                   5

然后依序组合起来写入第3个档案
test3.txt
A1
B2
C3
D4
E5
我用2个for好像做不到
请问大大该怎么写才能做到?

kxing · 发表于 2010-5-9 22:44:08

分别两个循环读两个文件,在第三个文本中追加数据就好了.

afan · 发表于 2010-5-9 22:47:38

Local $test1 = FileOpen('test1.txt')
Local $test2 = FileOpen('test2.txt')
Local $Line1, $Line2, $str
While 1
        $Line1 = FileReadLine($test1)
        $Line2 = FileReadLine($test2)
        If @error = -1 Then ExitLoop
        $str &= $Line1 & $Line2 & @CRLF
WEnd
FileClose($test1)
FileClose($test2)
FileWrite('test3.txt', $str)

supertiger · 发表于 2010-5-9 23:20:01

楼上的大大对不起,我说错了
因为test2的文件是有隔1行的
test3应该是这样
A1
B3
C5
以此类推下去
真是抱歉

afan · 发表于 2010-5-9 23:48:42

Local $test1 = FileOpen('test1.txt')
Local $test2 = FileOpen('test2.txt')
Local $Line1, $Line2, $str, $x = 1
While 1
        $Line2 = FileReadLine($test2)
        If @error = -1 Then ExitLoop
        If Mod($x, 2) = 1 Then
                $Line1 = FileReadLine($test1)
                $str &= $Line1 & $Line2 & @CRLF
        EndIf
        $x += 1
WEnd
FileClose($test1)
FileClose($test2)
FileWrite('test3.txt', $str)

supertiger · 发表于 2010-5-10 00:05:27

感谢版主的指导,问题己解决

kxing · 发表于 2010-5-10 01:47:00

如果两个文本行树不等那么第二个是不是读不到了呢?

afan · 发表于 2010-5-10 01:48:43

如果两个文本行树不等那么第二个是不是读不到了呢?
kxing 发表于 2010-5-10 01:47

是第一个读不到了。读到了有用吗？

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

[AU3基础] 请教用2个for的问题[已解决]

评分

相关帖子