从同路径提取指定内容的全部行，谢向liulang0808老师！

liulang0808

没有代码，简单看下了，不确定行不行。
对用位置调整看看吧

lhj323323

liulang0808 发表于 2022-11-15 22:03
没有代码，简单看下了，不确定行不行。
对用位置调整看看吧

老师，我把源码的文字版奉上
'============================这么写，虽不报错，但提取的数据是移位的
Dim k%
    For j = 0 To UBound(arr)
        drr = Split(arr(j), "|")
        For i = 0 To UBound(drr)
            If InStr("2,5", drr(2)) > 0 Then
               k = k + 1
               crr(k, i + 1) = drr(i)
            End If
        Next i
    Next j
'===========================根据11楼改写=====liulang0808版主，仍是下标越界
Dim k%
    For j = 0 To UBound(arr)
        drr = Split(arr(j), "|")
        k = k + 1
        If InStr("2,5", drr(2)) > 0 Then
           For i = 0 To UBound(drr)
               crr(k, i + 1) = drr(i)
           Next i
        End If
    Next j

liulang0808

Sub test()
    Dim Wk As Workbook, Sht1 As Worksheet
    Dim My1$, My2$, My3$, My4$, My5$
    Dim arr, brr, str$
    Dim Myr%
    Dim i%, j&, m%, n%
    Dim crr(), drr
Application.ScreenUpdating = False
My1 = ThisWorkbook.Path & "\"
My2 = "abc.txt"
My3 = Dir(My1 & My2)
My4 = My1 & "\" & My3

Set Sht1 = Sheet1
r = 0
While My3 <> ""
      Open My4 For Input As #1
      arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
      Close #1
j = 0
      ReDim crr(1 To UBound(arr) + 1, 1 To 6)
      
      For j = 0 To UBound(arr)
        If InStr(arr(j), "|") > 0 Then
        drr = Split(arr(j), "|")
         
        If InStr("2,5", drr(2)) > 0 Then
            k = k + 1
           For i = 0 To UBound(drr)
               crr(k, i + 1) = drr(i)
           Next i
        End If
        End If
      Next j
      j = j + 1
      With Sht1
          .Cells(2, 1).Resize(UBound(crr), 6) = crr
      End With

      My3 = Dir
Wend
Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。。

lhj323323

liulang0808 发表于 2022-11-15 22:25
供参考。。。。。。

谢谢老师！运行成功了！



刚才无意中，发现如下表达式，效果是一样的，好怪！
If InStr("2,5", drr(2)) > 0 Then
If InStr("25", drr(2)) > 0 Then，仍能提取标记为2和5以及25这三种

liulang0808

lhj323323 发表于 2022-11-15 23:39
谢谢老师！运行成功了！

楼主的数据没有25还好，如果有25的话，就要出麻烦了

lhj323323

liulang0808 发表于 2022-11-16 07:48
楼主的数据没有25还好，如果有25的话，就要出麻烦了

是的，理论上，未来会有25.
只是由于在本贴举例时，想看看INSTR这种函数是否适用。
InStr(A, B)
和
InStr(B, A)
有没有区别。

liulang0808

lhj323323 发表于 2022-11-16 07:58
是的，理论上，未来会有25.
只是由于在本贴举例时，想看看INSTR这种函数是否适用。
InStr(A, B)

楼主具体查下函数说明吧，对比看下

lhj323323

liulang0808 发表于 2022-11-16 08:08
楼主具体查下函数说明吧，对比看下

嗯，谢谢老师！

熊文来

你们这完全是高手间的对决。彻底看不懂。