如何写入到以日期命名的新文本(已解决)
本帖最后由 xymc 于 2015-9-25 19:12 编辑$file="QQ.txt"
$sString = FileRead($file)
FileWrite("原文件.txt",$sString)
$sString= StringReplace($sString,'=',' ')
$sString= StringReplace($sString,'----',' ')
FileClose(FileOpen($file, 2))
FileWrite("已替换.txt",$sString)
MsgBox(0, "", "替换完成!", 10)
以上是读取QQ.TXT替换=为 分隔符，保留原文件，并写入到已替换.txt里面
我想写入到以当前日期命名的新文本的新文本里面，如201509251647.txt里面
怎么加变量，我加了不成功，不知道为什么
$TIME = @YEAR & @MON & @MDAY & @HOUR & @MIN 本帖最后由 Huiseyu 于 2015-9-25 18:54 编辑
怎么可能..Local $TIME = @YEAR & @MON & @MDAY & @HOUR & @MIN &'.txt'
FileWrite($TIME , $TIME)
MsgBox(8096 ,$TIME ,$TIME)
If FileExists($TIME) Then ShellExecute($TIME) 怎么可能..
Huiseyu 发表于 2015-9-25 18:52 http://www.autoitx.com/images/common/back.gif
#include <Date.au3>
Local $TIME = @YEAR & @MON & @MDAY & @HOUR & @MIN &'.txt'
$file="QQ.txt"
$sString = FileRead($file)
FileWrite("原文件.txt",$sString)
$sString= StringReplace($sString,'=',' ')
$sString= StringReplace($sString,'----',' ')
FileClose(FileOpen($file, 2))
FileWrite($TIME ,$sString)
MsgBox(0, "", "替换完成!", 10)
OK,解决了
页:
[1]