N个TXT文档中固定字段提取到Excel, 求VBA

jone_huang

TXT文档内容有几千行, 此处仅列出需要提取出来的部分,
setconfig,FF:FF:FF:FF:FF:FF,21072980303051, 此处不是原档第一行, 需要提取出FF,后21072980303051.

WL_DUT0 manfinfo output: OTP_LOT_NUM: 0x1082
WAFER_NUM: 0xd
WAFER_X: 0x17
WAFER_Y: 0x1c
PROG_REL_DATE: 0x28f3


WAFER_NUM 在文档中出现多次, 但需要提取WL_DUT0 manfinfo output: OTP_LOT_NUM: 0x1082 后面的部分
WAFER_X: 同上
WAFER_Y: 同上

需要提取的TXT有几千下, 此处仅列出2个.


浏览了几个相同的贴子, 仍无法调试好, 请老师帮忙

wanao2008

但愿能帮到你：

Sub byWanao()
    Dim Filename$, myDir$, myText, mArr() As String, jsNum&
   
    myDir = Dir(ThisWorkbook.Path & "\*.txt")
    Do While myDir <> ""
        Filename = ThisWorkbook.Path & "\" & myDir
        Open Filename For Input As #1
        Line Input #1, myText
        jsNum = Cells(Rows.Count, 1).End(xlUp).Row + 1
        mArr = Split(myText, ": ")
        Cells(jsNum, 1) = "'" & Split(mArr(0), ",")(2)
        Cells(jsNum, 2) = Split(mArr(3), vbLf)(0)
        Cells(jsNum, 3) = Split(mArr(4), vbLf)(0)
        Cells(jsNum, 4) = Split(mArr(5), vbLf)(0)
        Close #1
        myDir = Dir
    Loop

End Sub

jone_huang

wanao2008 发表于 2021-8-9 20:04
但愿能帮到你：

Sub byWanao()

运行无反应呀, 兄弟的代码里面并未提及提取的关键字段, 如何才能实现我要的效果呢?

jone_huang

顶一下

chxw68

jone_huang 发表于 2021-8-10 10:15
顶一下

需要把完整的txt文件传上来，一个txt文件提取一行数据到EXCEL还是提取多行数据到EXCEL？

tspliu

jone_huang 发表于 2021-8-10 08:46
运行无反应呀, 兄弟的代码里面并未提及提取的关键字段, 如何才能实现我要的效果呢?

我下载你的文件用二楼程序试了下，没问题

jone_huang

tspliu 发表于 2021-8-10 11:33
我下载你的文件用二楼程序试了下，没问题

抱歉, 确实是没问题, 看样子macbook VB是有点问题 无法运行, 而换在windows上没问题.
但是我试了一下增加几个文档, 好像就有问题了, 其实原始 tx t 在目标提取字段上下,均有上千行文字, 在本贴上我删除了目标文字之外的信息, 请教大神如何调试.

jone_huang

tspliu 发表于 2021-8-10 11:33
我下载你的文件用二楼程序试了下，没问题

上传一下原始TXT文档,
目标提取以下:
１.　第一次出现setconfig,FF:FF:FF:FF:FF:FF,后面的"116080121072980303073" (此段文本中会出现多次)
setconfig,FF:FF:FF:FF:FF:FF,116080121072980303073,Tue Aug 03 23:50:55 2021,,,,,,,,,-999,-999,-999,-999,-999,-999,00.515,0,0,0,Pass
2.  第一次出现WL_DUT0 manfinfo output: OTP_LOT_NUM: 后面的 "0x1082", 和下面WAFER_NUM:, WAFER_X:, WAFER_Y: 后面的"0xd", "0x16", "0x25"
WL_DUT0 manfinfo output: OTP_LOT_NUM: 0x1082
WAFER_NUM: 0xd
WAFER_X: 0x16
WAFER_Y: 0x25

输出excel就是如下:
116080121072980303073, 0x1082, 0xd, 0x16, 0x25


此txt文件可能有上万个, 请大神帮忙.

tspliu

jone_huang 发表于 2021-8-10 14:49
抱歉, 确实是没问题, 看样子macbook VB是有点问题 无法运行, 而换在windows上没问题.
但是我试了一下增 ...

前面加个On Error Resume Next   ,要么就多上点附件给大家参考

jone_huang

tspliu 发表于 2021-8-10 15:16
前面加个On Error Resume Next   ,要么就多上点附件给大家参考

见附件,
1. 提取第一次出现setconfig,FF:FF:FF:FF:FF:FF, (文本中多次出现), 后面的116080121072980303073
setconfig,FF:FF:FF:FF:FF:FF,116080121072980303073,Tue Aug 03 23:50:55 2021,,,,,,,,,-999,-999,-999,-999,-999,-999,00.515,0,0,0,Pass

2. 提取第一次出现WL_DUT0 manfinfo output: OTP_LOT_NUM:后面的0x1082, 及下面三行后的0xd,0x16,0x25
WL_DUT0 manfinfo output: OTP_LOT_NUM: 0x1082
WAFER_NUM: 0xd
WAFER_X: 0x16
WAFER_Y: 0x25



3. 输出excel为116080121072980303073, 0x1082,0xd,0x16,0x25, 5列显示
此txt有上万个.