[AU3基础] 读取TXT文本，指定搜寻条件，写入EXCEL。(已解决）

#include <array.au3>
#include <Excel.au3>
#include <file.au3>

HotKeySet("^c", "MyExit");设定中断热键

Local $var = FileOpenDialog("请选择要开启的档案", "c:\data", " TXT(*.txt) ")
Local $file = FileOpen($var)
$oExcel = _ExcelBookNew()

$line = FileRead($file)
$str = StringRegExp($line, ".+PCL\h+6.+", 3)
$prt = UBound($str) - 2


Local $i = 0
While $i <= $prt
        $name = StringRegExp($str[$i], '\d\.\h*(.+)\h*\(\w+\),\h*(.+)', 3)
        $name[0] = _ExcelWriteCell($oExcel, $name[0], $i + 1, 1)
        $name[1] = _ExcelWriteCell($oExcel, $name[1], $i + 1, 2)
        $i = $i + 1
WEnd

_ArrayDisplay($str, "请核对表机信息")

If UBound($str) = 1 Then
        MsgBox(0, "注意", "无法新增打印机信息，请手动处理。")
EndIf

_ExcelBookSaveAs($oExcel, "c:\data\Filename", "xls", 0)
If Not @error Then MsgBox(0, "打印机新增成功", "档案存盘完毕，请按确定结束。", 5)
_ExcelBookClose($oExcel, 1, 0)

Func MyExit();接续中断热键
        Exit
EndFunc   ;==>MyExit

;关键字符串判断示例:
Local $str = '预设打印机：FX DocuCentre C5540 I PS (P125),winspool,Ne04:'

$n = StringInStr($str, '预设打印机：')
If $n Then
        $n += 5
        $str1 = StringTrimLeft($str, $n)
        MsgBox(0, '非正则截取内容', $str1)
EndIf

$str2 = StringRegExp($str, '预设打印机：(.*)', 3)
If Not @error Then MsgBox(0, '正则截取内容', $str2[0])

;完整示例1
#include<file.au3>
Local $f
_FileReadToArray('my.txt', $f)
If Not @error Then
        For $i = 1 To $f[0]
                $n = StringInStr($f[$i], '预设打印机：')
                If $n Then
                        $n += 5
                        $str = StringTrimLeft($f[$i], $n)
                        MsgBox(0, '文件行数: ' & $i, '其内容: ' & @CR & $str)
                EndIf
        Next
EndIf

;正则完整示例:
#include<array.au3>
$txt = FileRead('my.txt')
$str = StringRegExp($txt, '预设打印机：([^\r\n]+)', 3)
If Not @error Then _ArrayDisplay($str)

#include<array.au3>
Local $txt = _
                '已安装打印机清单及预设打印机：' & @CRLF & _
                '1. CutePDF Writer, CPW2:' & @CRLF & _
                '2. FX ApeosPort-II 7000 PCL 6 (P102), \\printer\p102' & @CRLF & _
                '3. HP LaserJet 4350 PCL 6 (P194), \\printer\p194' & @CRLF & _
                '4. HP LaserJet P3010 Series PCL 6 (P198), \\printer\p198' & @CRLF & _
                '5. Microsoft Office Document Image Writer, Microsoft Document Imaging Writer Port:' & @CRLF & _
                '6. Microsoft XPS Document Writer, XPSPort:' & @CRLF & _
                '7. PrimoPDF, PrimoPort:' & @CRLF & _
                '预设打印机：HP LaserJet 4350 PCL 6 (P194),winspool,Ne04:'
MsgBox(0, '原来文本内容', $txt)

$str = StringRegExp($txt, '.+PDF\h+Writer.+|.+PCL\h+6.+', 3)
_ArrayDisplay($str, '所有匹配内容')
;; 详细处理
If IsArray($str) Then
        MsgBox(0, '匹配数量', UBound($str))
        For $i = 0 To UBound($str) - 1
                If StringInStr($str[$i], '预设打印机') Then
                        $name = StringRegExp($str[$i], '预设打印机：(\V+)', 1)
                        If Not @error Then MsgBox(0, '预设打印机', $name[0])
                ElseIf StringInStr($str[$i], '(') Then
                        $name = StringRegExp($str[$i], '\d\.\h*(.+)\h*\(\w+\),\h*(.+)', 3)
                        If Not @error Then MsgBox(0, '第 ' & $i + 1 & ' 台打印机信息', '打印机名字:' & @TAB & $name[0] & @CR & '其共享名:' & @TAB & $name[1])
                Else
                        $name = StringRegExp($str[$i], '\d\.\h*([^\(\)]+)', 3)
                        If Not @error Then MsgBox(0, '第 ' & $i + 1 & ' 台打印机名: ', $name[0])
                EndIf
        Next
EndIf