论坛 › 已解决问题区 › 请帮忙解决输出成TXT文本问题(已解决)

lxz 发表于 2008-7-10 19:12:11

请帮忙解决输出成TXT文本问题(已解决)

如何把下面读取到的值输出到C盘保存成TXT文本?
$mem = MemGetStats()

If $mem > 10 Then aa()
if $mem < 10 Then bb()


func aa()
MsgBox(0, "示例", $mem & " 居然大于 10!")
EndFunc

func bb()
MsgBox(0, "示例", $mem & " 居然小于 10!")
EndFunc

[ 本帖最后由 lxz 于 2008-7-10 22:31 编辑 ]

顽固不化 发表于 2008-7-10 19:50:17

$mem = MemGetStats()

$fileHD=fileopen("内存情况.txt",1)
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"提取时间："&@YEAR&"年"&@MON&"月"&@MDAY&"日"&@HOUR&":"&@MIN )
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"内存使用率(百分比):"&$mem&"%")
FileWriteLine($fileHD,"物理内存总数:"&$mem&"KByte")
FileWriteLine($fileHD,"可用物理内存:"&$mem&"KByte")
FileWriteLine($fileHD,"页面文件大小:"&$mem&"KByte")
FileWriteLine($fileHD,"可用页面文件大小:"&$mem&"KByte")
FileWriteLine($fileHD,"虚拟内存大小:"&$mem&"KByte")
FileWriteLine($fileHD,"可用虚拟内存大小:"&$mem&"KByte")
FileClose($fileHD)

lxz 发表于 2008-7-10 21:16:26

顽固不化朋友的内存值是KB的.能否以MB显示,谢谢.

小三 发表于 2008-7-10 21:26:51

$mem = MemGetStats()

$fileHD=fileopen("内存情况.txt",1)
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"提取时间："&@YEAR&"年"&@MON&"月"&@MDAY&"日"&@HOUR&":"&@MIN )
FileWriteLine($fileHD,"")
FileWriteLine($fileHD,"内存使用率(百分比):"&$mem&"%")
FileWriteLine($fileHD,"物理内存总数:"&int($mem/1024)&"MB")
FileWriteLine($fileHD,"可用物理内存:"&int($mem/1024)&"MB")
FileWriteLine($fileHD,"页面文件大小:"&int($mem/1024)&"MB")
FileWriteLine($fileHD,"可用页面文件大小:"&int($mem/1024)&"MB")
FileWriteLine($fileHD,"虚拟内存大小:"&int($mem/1024)&"MB")
FileWriteLine($fileHD,"可用虚拟内存大小:"&int($mem/1024)&"MB")
FileClose($fileHD)

lxz 发表于 2008-7-10 22:30:07

谢谢楼上的朋友

newsunman 发表于 2010-1-19 20:06:09

学习中.谢谢全优

查看完整版本: 请帮忙解决输出成TXT文本问题(已解决)