（已解决）获取硬盘分区空间信息，万分感谢Afan哥-已解决问题区-AUTOIT CN

xyhqqaa 发表于 2011-10-17 11:14:08

（已解决）获取硬盘分区空间信息，万分感谢Afan哥

本帖最后由 xyhqqaa 于 2011-10-17 13:39 编辑

想用listview获取硬盘空间类似信息，但是一直找不到方法。之前想用aida64获取配置文件在读取但是新手鸭梨大。。后来看到三恨哥的使用wmi读取，鸭梨更大。。。。。伸手党求简单方法.看了AFAN哥的。主要对正则不明白。读取配置文件还要分行。而且是动态的。咋整囧。。辜负他老人家一片良心。{:face (370):} （附件应该都不要钱吧- -。）（之前名字写成ACFAN，阿门。。罪过。。。见谅）

afan 发表于 2011-10-17 11:34:32

“读取配置文件还要分行。而且是动态的” 这个完全无压力，你之前的字符串是如何获取的可以直接读取获取到的，比如 $str = FileRead('aida64生成的文档')
另外也可以看看此贴： http://www.autoitx.com/forum.php?mod=viewthread&tid=18361 是3M使用P版的Udf写的范例，是纯au3的，无需调用第三方软件。

xyhqqaa 发表于 2011-10-17 12:58:57

本帖最后由 xyhqqaa 于 2011-10-17 13:04 编辑

回复 2# afan
看了3mile哥的例子。我感觉我没有存在这世界的意义了- -。。看不懂[系统摘要]
存储设备|IDE 控制器1=标准双通道 PCI IDE 控制器
存储设备|IDE 控制器2=标准双通道 PCI IDE 控制器
存储设备|硬盘驱动器1=csjvdisk device SCSI Disk Device
存储设备|硬盘驱动器2=ST3160812AS 41N3268 LEN (160 GB, 7200 RPM, SATA-II)
存储设备|光盘驱动器1=PIONEER DVD-RW DVR-116 (DVD+R9:12x, DVD-R9:12x, DVD+RW:20x/8x, DVD-RW:20x/6x, DVD-RAM:12x, DVD-ROM:16x, CD:40x/32x/40x DVD+RW/DVD-RW/DVD-RAM)
存储设备|硬盘 SMART 状态=OK

磁盘分区|磁盘分区1=C: (NTFS) 20002 MB (2296 MB 可用)
磁盘分区|磁盘分区2=D: (NTFS) 39997 MB (5351 MB 可用)
磁盘分区|磁盘分区3=E: (NTFS) 92616 MB (50526 MB 可用)
磁盘分区|大小=149.0 GB (56.8 GB 可用)
;Everest生成简单的配置例子大概就是这个。磁盘分区|磁盘分区1=C: (xxx) xxxxx MB (xxxxx MB 可用)
...........
afan哥之前您帮我获取Local $Str = _
            '[系统摘要]' & @CRLF & _
            '磁盘分区|磁盘分区1=C: (NTFS) 30004 MB (19314 MB free)' & @CRLF & _
            '磁盘分区|磁盘分区2=D: (NTFS) 25603 MB (24223 MB free)' & @CRLF & _
            '磁盘分区|磁盘分区3=E: (NTFS) 230000 MB (87171 MB free)' & @CRLF & _
            '磁盘分区|磁盘分区4=F: (NTFS) 216932 MB (160868 MB free)' & @CRLF & _
            'Partitions|Total Size=1041.5 GB (470.0 GB free)' & @CRLF
Local $Test = StringRegExp($Str, '(.):\h$(.+?)$\h([^(]+)\h\((.+?)\h可用', 3)
；这边只想说正则好强大，囧对于这个每行分行，为什么要分行。。俺就搞不明白咋弄了= =。。。。其实俺最大的问题还是把配置文件读取在listview中转不过弯

afan 发表于 2011-10-17 13:01:09

回复 3# xyhqqaa

不需要每行分行……
你说说你这段字符串是如何获取的吧~ 用aida64？

xyhqqaa 发表于 2011-10-17 13:05:02

回复 4# afan 恩恩，就是使用aida64生成的报告，也就是之前的Everest

afan 发表于 2011-10-17 13:05:52

回复 5# xyhqqaa

生成了什么报告？文件名？

xyhqqaa 发表于 2011-10-17 13:08:21

回复 6# afan 就是生成一个Report.ini。。= =。。。

afan 发表于 2011-10-17 13:08:58

Report.ini 里面的完整内容呢

xyhqqaa 发表于 2011-10-17 13:13:14

afan 发表于 2011-10-17 13:26:48

将你获取的配置文件 Report.ini 和本脚本放在一起#include <ListViewConstants.au3>
Local $Str = FileRead('Report.ini')
Local $Test = StringRegExp($Str, '(.):\h$(.+?)$\h([^(]+)\h\((.+?)\h可用', 3)

GUICreate('Form1', 623, 449)
$ListView = GUICtrlCreateListView('盘符|可用磁盘|磁盘大小|分区格式', 56, 72, 433, 233)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 120)
For $i = 0 To UBound($Test) - 1 Step 4
   GUICtrlCreateListViewItem($Test[$i] & '|' & $Test[$i + 3] & '|' & $Test[$i + 2] & '|' & $Test[$i + 1], $ListView)
Next

GUISetState()

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
            Case -3
                     Exit
   EndSwitch
WEnd

xyhqqaa 发表于 2011-10-17 13:35:25

回复 10# afan

afan哥。。。。。。就这么简单。。。那俺想复杂了- -。。。{:face (319):}。。。哥谢谢您

w60711 发表于 2017-4-7 01:20:57

好東西值得學習一下

页: [1]

AUTOIT CN's Archiver

（已解决）获取硬盘分区空间信息，万分感谢Afan哥