本帖最后由 sxd 于 2009-9-24 13:41 编辑
#include <Array.au3>
Dim $aResult[2][2];定义一个2维数组存放结果
$j = 1
$sEdit = ControlGetText('Windows HostId Utility', '', 'Edit1');先获取控件文本
$aEdit = StringSplit($sEdit, @CR);按照回车分割文本各行
For $i = 1 To $aEdit[0];历遍各行
If $aEdit[$i] <> Chr(10) Then;如果不是空行
ReDim $aResult[$j + 1][2]
$aEditLine = StringSplit($aEdit[$i], ':');按照冒号分割每一行
$aResult[$j][0] = $aEditLine[1];保存数据
$aResult[$j][1] = $aEditLine[2]
$aResult[0][0] = $j
$j += 1
EndIf
Next
_ArrayDisplay($aResult)
|