本帖最后由 lixiaolong 于 2011-2-5 17:58 编辑
回复 8# love5173
FileWrite函数没有自动添加换行的功能.
没有的功能只能自己添加.
换行我一直用@CRLF,知道这些你可以自己定义函数(Func).
我写了一个请你参考
用法:
$File = @ScriptDir & "\test.txt"
Dos_FileWrite($File, '>>', "你好");附加数据到文件尾部
Dos_FileWrite($File, '>', "再见");删除之前的内容
Func Dos_FileWrite($Dos_File, $Frag, $Dos_Text)
If $Frag = '>>' Then
$Frag = 1
FileWrite(FileOpen($Dos_File, $Frag), $Dos_Text & @CRLF)
ElseIf $Frag = '>' Then
$Frag = 2
FileWrite(FileOpen($Dos_File, $Frag), $Dos_Text & @CRLF)
Else
MsgBox(16, '警告', '输入方式错误!')
EndIf
FileClose($Dos_File)
EndFunc ;==>Dos_FileWrite
这样写很像dos命令吧,呵呵
$File = @ScriptDir & "\test.txt"
echo("你好", '>>', $File)
echo("再见", '>>', $File)
Func echo($Dos_Text, $Frag, $Dos_File)
If $Frag = '>>' Then
$Frag = 1
FileWrite(FileOpen($Dos_File, $Frag), $Dos_Text & @CRLF)
ElseIf $Frag = '>' Then
$Frag = 2
FileWrite(FileOpen($Dos_File, $Frag), $Dos_Text & @CRLF)
Else
MsgBox(16, '警告', '输入方式错误!')
EndIf
FileClose($Dos_File)
EndFunc ;==>echo
|