从TXT文档内提取指定内容至EXCEL

一把小刀闯天下

'应该差不多，自己试一下

Option Explicit

Sub test()
  Dim arr, i, t, mark, n
  mark = "$DataGridSelectionId"
  Open ThisWorkbook.Path & "\代码.txt" For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  ReDim brr(1 To UBound(arr) - 1, 1 To 3)
  For i = 0 To UBound(arr)
    If InStr(arr(i), mark) Then
      n = n + 1
      brr(n, 1) = Split(arr(i), "name=")(1)
      brr(n, 1) = Split(brr(n, 1))(0)
      t = Split(arr(i + 1), "</TD>")(0)
      t = Split(t, ">")
      brr(n, 2) = Trim(t(UBound(t)))
      t = Split(arr(i + 2), "</TD>")(0)
      t = Split(t, ">")
      brr(n, 3) = Trim(t(UBound(t)))
      i = i + 2
    End If
  Next
  With [a2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

1292091020

一把小刀闯天下 发表于 2018-7-21 09:56
'应该差不多，自己试一下

Option Explicit

老师您太厉害了，这个用的是什么方法呀？

一把小刀闯天下

1292091020 发表于 2018-7-21 10:11
老师您太厉害了，这个用的是什么方法呀？

哈哈哈，巨笨的方法，就是定位分割字符串的吧。只要有规律类似的问题都可以用这方法来解决，只是方法过于笨拙

1292091020

一把小刀闯天下 发表于 2018-7-21 10:24
哈哈哈，巨笨的方法，就是定位分割字符串的吧。只要有规律类似的问题都可以用这方法来解决，只是方法过于 ...

老师好！非常感谢您的帮助
如果我再在D4列加个条件码（像这个是#1LASERMARK ） 需要一个第三个TR的文本内容该怎么做呀？
另外可以做成如果没有这个TR那么就每个值不要到前面去，比如条件码不去工序里面，工序不去工序段里面
这个该怎么改进呢？

一把小刀闯天下

1292091020 发表于 2018-7-21 17:58
老师好！非常感谢您的帮助
如果我再在D4列加个条件码（像这个是#1LASERMARK ） 需要一个第三个TR的文本 ...

'第三个tr就是第三行，可以在表格中进行手工处理。后面的没看懂

Option Explicit

Sub test()
  Dim arr, i, j, t, mark, n
  mark = "$DataGridSelectionId"
  Open ThisWorkbook.Path & "\代码.txt" For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  ReDim brr(1 To UBound(arr) - 1, 1 To 4)
  For i = 0 To UBound(arr)
    If InStr(arr(i), mark) Then
      n = n + 1
      brr(n, 1) = Split(Split(arr(i), "name=")(1))(0)
      For j = i + 1 To i + 3
        t = Split(Split(arr(j), "</TD>")(0), ">")
        brr(n, j - i + 1) = Trim(t(UBound(t)))
      Next
      i = i + 3
    End If
  Next
  With [a2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub