论坛 › 已解决问题区 › [已解决]A文本合并到B文本--代码请帮忙查错

tjlzh 发表于 2010-11-3 17:11:00

[已解决]A文本合并到B文本--代码请帮忙查错

本帖最后由 tjlzh 于 2010-11-11 22:32 编辑

#Include <File.au3>
#Include <Array.au3>
Dim $aRecords
_FileReadToArray("A.txt",$aRecords)
_FileWriteFromArray(@WindowsDir & "\B.txt",$aRecords)
FileClose("A.txt")
FileClose("B.txt")
Exit
问题一，运行不合并文件
问题二，如果合并是否合并到文件尾，真么才能合并到文件尾，无用代码请指出
问题三，如果是ini文件合并和txt有什么不同
谢谢

netegg 发表于 2010-11-3 17:49:51

@WindowsDir & "B.txt"先看看@WindowsDir & "\B.txt"这样行不行

tjlzh 发表于 2010-11-8 17:07:58

回复 2# netegg

谢谢，是我疏忽了少了一个“\”
可以将a文本的内容copy到b文本了，但是把b文本的内容都覆盖了，而且先空一行第二行多了一个数字，我琢磨了一下正好是a文本的行数。我要的结果是追加。

tjlzh 发表于 2010-11-8 17:08:53

哪位大侠，帮帮忙啊，我要的是追加，现在成覆盖了

chenronting 发表于 2010-11-8 17:21:42

我给你另一种方法吧。是附加到A的，下面的'A.txt'请自己改位置#Include <File.au3>
Dim $aRecords
_FileReadToArray("A.txt",$aRecords)
;~ _FileWriteFromArray(@WindowsDir & "\B.txt",$aRecords)
$fileopen = FileOpen('A.txt',1)
For $i = 1 To $aRecords
        FileWrite($fileopen,$aRecords[$i])
Next

Exit

netegg 发表于 2010-11-8 17:49:46

本帖最后由 netegg 于 2010-11-8 17:57 编辑

#Include <File.au3>
Dim $aRecords
_FileReadToArray($file1,$aRecords)
$hFile = FileOpen($file2, 1)
_FileWriteFromArray($hFile,$aRecords, 1)
FileClose($hFile)

tjlzh 发表于 2010-11-9 15:10:48

谢谢楼上的两位，我马上测试

查看完整版本: [已解决]A文本合并到B文本--代码请帮忙查错