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

user3000

回复 15# CCM

嘻嘻, 我是看在你那个半通不通的正则份才做出14楼这么详细的回复的.
"([H]+\V+(6))" ("同一行字符里, 前面有大写的H后面有数字6",这个正则用 '(H\V+6)' 描述更合适.)
从上面看出, 你在解决自己问题的时是用心用脑子学习AU3的.

cfs43210

研究练习研究练习

cfs43210

研究练习,研究练习

cfs43210

研究练习研究练习!

CCM

谢谢大家的帮忙，目前已经完成了。
後来与同事讨论，按照我们的作业程序调整如下：

#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

fhqbbfcu2050

虽然不用但是看下也好....

yufei8051

记号上，学习。谢谢各位高手分享

ak47gglllk

大神，请收下我的膝盖

cross523

终于找到一个比较简单的读数据到excel的例子了，谢谢楼主