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

lxz

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

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


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

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

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

顽固不化

$mem = MemGetStats()

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

lxz

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

小三

$mem = MemGetStats()

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

lxz

谢谢楼上的朋友

newsunman

学习中.谢谢全优