求一段代码

ahzz0028

求一段代码，逐个读取目录下的文件,读取文件的最后32个字节，其中5－8字节，用17－20字节代替后追加文件后面。

ahzz0028

这么简单，竞然无人能做

sensel

是很简单，你为什么不做？

sensel

我又想说几句废话了。

ahzz0028
帖子13
注册时间2008-5-5

13个帖子里，共有9个发帖，都是提问题。其中8个没有任何你自己写的代码，只是单纯提出问题。另外一个，所附代码看样子也不是你写的。9个里面已解决4个，其中3个你自行解决，但未写上任何心得。另外一个，lynfr8兄给出代码后，你只是改标题为“已解决”完事。
更重要的是，从你帖子的问题内容来看，你并不是au3初学者。
来这种技术性论坛，目的不外乎学习、交流、分享、求助。在你说出2楼那种话之前，请仔细想想，你来acn的初衷是什么？求助？求代码？要代码？
我希望，下次你发帖的时候，是因为代码写一半遇上某个难题。那么发帖时，请提供你所写的部分代码，让别人有兴趣、有针对性也更有效率地去解决。如果是像现在这种提问方式，我会恶意地猜测，你是懒得写代码想找人代劳。那么，我也实话实说，其实我比你更懒。
我相信，如果你改变一下提问方式，那样对你、对我、对其他人、对整个论坛，都有好处。

ahzz0028

你们真诚的批评，我真心诚意的接受，但说真的，我不会autoit,我会的是foxpro,所以回复了，这样让人伤心的话，对不起，真的真的对不起，我附上自己用foxpro编的源代码。

sensel

未学过vfp，早年DOS下的foxbase和foxpro基本忘光了。
以下代码只是简单转换，未经测试，仅供参考。

#include <File.au3>

FileAdd("c:\jcb_tpyzq\Vipdoc\sh\lday")
FileAdd("c:\jcb_tpyzq\Vipdoc\sz\lday")
Exit

Func FileAdd($sPath)
        Local $aFileList, $hFile, $sGcstring, $sWjl, $sBm

        $aFileList = _FileListToArray($sPath, "*.day", 1) ; 创建文件名列表数组
        If @error Then Return

        For $i = 1 To $aFileList[0] ; 依据文件名列表循环
                $hFile = FileOpen($sPath & "\" & $aFileList[$i], 1) ; 写追加模式打开文件
                $sGcstring = FileRead($hFile) ; 读入整个文件到内存
                $sGcstring = StringRight($sGcstring, 32)
                $sWjl = StringMid($sGcstring, 17, 4)
                $sBm = Chr(198) & Chr(143) & StringMid($sGcstring, 3, 2) & $sWjl & StringTrimLeft($sGcstring, 8)
                FileWrite($hFile, $sBm) ; 写入文件
                FileClose($hFile) ; 关闭文件
        Next

        Return 1
EndFunc   ;==>FileAdd

ahzz0028

高手，不得不让我佩服，没学会foxpro的人，能理解得这么精到准确，让人不可思议，你的提炼技术真的很炉火纯青，让我渺小得可怜。