找回密码
 加入
搜索
查看: 2788|回复: 7

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

  [复制链接]
发表于 2010-11-3 17:11:00 | 显示全部楼层 |阅读模式
本帖最后由 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有什么不同
谢谢
发表于 2010-11-3 17:49:51 | 显示全部楼层
@WindowsDir & "B.txt"先看看@WindowsDir & "\B.txt"这样行不行
 楼主| 发表于 2010-11-8 17:07:58 | 显示全部楼层
回复 2# netegg

谢谢,是我疏忽了少了一个“\”
可以将a文本的内容copy到b文本了,但是把b文本的内容都覆盖了,而且先空一行第二行多了一个数字,我琢磨了一下正好是a文本的行数。我要的结果是追加。
 楼主| 发表于 2010-11-8 17:08:53 | 显示全部楼层
哪位大侠,帮帮忙啊,我要的是追加,现在成覆盖了
发表于 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
发表于 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)
 楼主| 发表于 2010-11-9 15:10:48 | 显示全部楼层
谢谢楼上的两位,我马上测试
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-19 05:57 , Processed in 0.076910 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表