提取文本文件中符合要求的数据

olin12345

求助，提取多个文本文件中的数据，文本文件中每行开头为A的行提取，开头为C的行不用提取。

清风竹-

请看附件。

Yalishanda30

额。。。。。。

kyxfyzg

主要是正则表达式

limonet

关键字：[PSCUSTOMOBJECT]

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir .\*.csv | %{Foreach ($i in (Get-Content $_)) {if ($i -Match 'A;.*') " _
    & "{$ii=($i.Split(';')[2]).Split('|');[PSCustomObject]@{编号=''''+$ii[0];设备特征码=$ii[1];" _
    & "文件号=$_.basename}}}} | Export-Csv limonet.csv -NoTypeInformation -Encoding default", 0
End Sub

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, strResult$(), ar, br, i&, j&, r&, n As Byte, strName$
   
    DoApp False
    ReDim strResult(1 To 10 ^ 4, 1 To 3)
    r = r + 1
    br = Split("编号 设备特征码 文件号")
    For j = 0 To UBound(br)
        strResult(r, j + 1) = br(j)
    Next j
    strPath = ThisWorkbook.Path & "\"
   
    strFileName = Dir(strPath & "*.csv")
    Do Until strFileName = ""
        n = FreeFile
        Open strPath & strFileName For Input As #n
            ar = Split(StrConv(InputB(LOF(n), #n), vbUnicode), vbLf)
        Close #n
        
        strName = Left(strFileName, InStrRev(strFileName, ".") - 1)
        For i = 0 To UBound(ar)
            br = Split(ar(i), ";")
            If br(0) = "A" Then
                r = r + 1
                strResult(r, 1) = Split(br(2), "|")(0)
                strResult(r, 2) = Split(br(2), "|")(1)
                strResult(r, 3) = strName
            End If
        Next i
        strFileName = Dir
    Loop
   
    [A1].CurrentRegion.Clear
    [A1].Resize(r, 3) = strResult
    DoApp
    Beep
End Sub
Function DoApp(Optional b As Boolean = True)
    With Application
        .ScreenUpdating = b
        .DisplayAlerts = b
        .Calculation = -b * 30 - 4135
    End With
End Function

gwjkkkkk

。。。。。。。。

olin12345

limonet 发表于 2024-8-16 15:40
Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path ...

老师这是什么技法，与常规写法很不通，代码量也少一些。

olin12345

清风竹- 发表于 2024-8-16 14:28
请看附件。

感谢帮助，完美运行。