求助，文本内容汇总到EXCEL里

songshihai

整了个半成品,水平有限,max和min实在看必出规律

菊子红了

songshihai 发表于 2024-8-8 15:48
整了个半成品,水平有限,max和min实在看必出规律

有位置规律，4楼的方法很好用，汇总速度也快。

limonet

关键字：PSCustomObject

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir .\*.txt | %{foreach ($i in (get-content $_)) {if ($i -match '.+?( +-?\d+(\.\d+)){6}') {$ii=($i -replace '\s{2,}',' ');" _
    & "[PSCustomObject]@{零件名=(get-content $_ -TotalCount 4)[-1] -replace '.*: ','';文件名称=$_.basename;" _
    & "MAX=$ii.split()[5];MIN=$ii.split()[6]}}}} | export-csv limonet.csv -NoTypeInformation -encoding default", 0
End Sub