[已解决]如何实现创建打开记事本,又可以写又可以读

731106 · 发表于 2011-3-31 12:34:00

本帖最后由 731106 于 2011-3-31 13:27 编辑

FileOpen的读写模式好象只可以写,或者只可以读,能不能实现,又可以写又可以读?比如:

$file = FileOpen("a.txt", 2 + 8)

If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf
$s1 = InputBox("", "新加记录")
FileWrite($file, $s1 & @CRLF)
$mj = FileRead($file)
MsgBox(262144, "系统", "代码:" & @CRLF & $mj)
FileClose($file)

这样只能往里面写,但是却读不出,如果要写只有把"2+8"去掉,但是这样就创建不了txt文件了,有没有办法,又可创建又可读写?

水木子 · 发表于 2011-3-31 12:51:05

$sFilePath = 'a.txt'
$sText = InputBox('', '新加记录')
FileWrite($sFilePath, $sText)
MsgBox(262144, '系统', '代码:' & FileRead($sFilePath))

731106 · 发表于 2011-3-31 13:03:10

本帖最后由 731106 于 2011-3-31 13:12 编辑

这样可以是可以,但是当我重新运行代码的时候,原先里面的内容却还在,如何第二次运行就覆盖原来的a.txt呢,也就是变成空白的

731106 · 发表于 2011-3-31 13:26:58

重新想了一下,把我上面的代码和水木的代码结合一下就可以了,谢谢水木

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]如何实现创建打开记事本,又可以写又可以读

相关帖子