针对1楼放出的数据的, 一时想不出一次过了.
$txt = ClipGet()
$name = StringRegExp($txt, 'name="([^"]+)">', 3)
$item = StringRegExp($txt, '<column.*?>([^>]+)</column>', 3)
Local $str = ''
If IsArray($name) Then
$str = @TAB & $name[0]
For $i = 1 To UBound($name) - 1
$str &= @TAB & $name[$i]
Next
$str &= @CRLF
EndIf
If IsArray($item) Then
$count = 1
For $i = 0 To UBound($item) - 3 Step 4
$str &= $count & @TAB & $item[$i] & @TAB & $item[$i + 1] & @TAB & $item[$i + 2] & @TAB & $item[$i + 3] & @CRLF
$count += 1
Next
EndIf
MsgBox(0, 'Output', $str)
|