正则表达式求助

xulinghai

以前没用正则，最近要用gdisk32显示ListView一个列表，用StringMid()函数截取不准确，因此搜索了正则方面的教程，可惜还是不太明白，论坛中搜到一篇disptw的，与我这个有点相近，但是还不行。

test.txt

Disk  Partitions  Cylinders  Heads  Sectors  Mbytes  Model
  1        5        30401     255      63  238475.2  ST3250310AS

Partition  Status   Type     Volume Label   Mbytes   System   Usage
 C:  1        A    PRIMARY                 10252.4  NTFS/HPFS   4%
     2             EXTENDED               228220.3             96%
 D:  3             LOGICAL                 61451.7  NTFS/HPFS  26%
 E:  4             LOGICAL                 81933.0  NTFS/HPFS  34%
 F:  5             LOGICAL                 84835.4  NTFS/HPFS  36%

#include <GUIConstantsEx.au3>
#include <Array.au3>

Opt("GUIOnEventMode", 1)

GUICreate("test", 545, 255)
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
$ListView = GUICtrlCreateListView('驱动器|状态|分区类型|卷标|容量(Mb)|文件格式|百分比', 5, 5, 535, 200)
GUISetState(@SW_SHOW)
_Loading()

While 1
        Sleep(1000)
WEnd

Func _Loading()
        Local $str = FileRead(@ScriptDir & '\test.txt'), $i, $Item
        Local $array = StringRegExp($str, '([C-Z]:)\h+(.+?)\h+(.+?)\h+(.+?)\h+(\d*)\h+(.+?)\h+(\d+)', 3)
        
        If @error Then Return MsgBox(48, '提示', '读取错误')

        For $i = 0 To UBound($array) - 7 Step 7
                $Item = $array[$i] & '|' & $array[$i + 1] & '|' & $array[$i + 2] & '|' & $array[$i + 3] & '|' & $array[$i + 4] & '|' & $array[$i + 5]& '|' & $array[$i + 6]
                GUICtrlCreateListViewItem($Item, $ListView)
        Next
        ;_ArrayDisplay($array, "数组显示")
EndFunc   ;==>_Loading

Func Quit()
        GUIDelete()
        Exit
EndFunc   ;==>Quit

3mile

#include <Array.au3>
Local $Str = _
                'Disk  Partitions  Cylinders  Heads  Sectors  Mbytes  Model' & @CRLF & _
                '  1        5        30401     255      63  238475.2  ST3250310AS' & @CRLF & @CRLF & _
                'Partition  Status   Type     Volume Label   Mbytes   System   Usage' & @CRLF & _
                'C:  1        A    PRIMARY                 10252.4  NTFS/HPFS   4%' & @CRLF & _
                '    2             EXTENDED               228220.3             96%' & @CRLF & _
                'D:  3             LOGICAL                 61451.7  NTFS/HPFS  26%' & @CRLF & _
                'E:  4             LOGICAL                 81933.0  NTFS/HPFS  34%' & @CRLF & _
                'F:  5             LOGICAL                 84835.4  NTFS/HPFS  36%'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '[A-Z]\:.*?(?:%)', 3)
local $array[1][8],$Left,$Right

for $i=0 to UBound($Test)-1        
        $temp=StringRegExp($Test[$i],'[^\h]+',3)
        if UBound($temp)=6 then _ArrayInsert($temp,2,"")
        _ArrayInsert($temp,4,"")
        ReDim $array[$i+1][8]
        for $n=0 to 7
                $array[$i][$n]=$temp[$n]
        Next
Next
_ArrayDisplay($array)

xulinghai

感谢3mile大大，您的代码我慢慢研究下，正则表达式刚接触，以后要多下点功夫这方面了。

=====================================================

搞了半天，还是不行，卷标有可能不是空的，上面代码是插入空的数组.对不是空的卷标不行。

C:  1 是一个整体的列，好象也被分开了。想要的效果是按原来的列分配。