批量txt中提取几个参数的到excel中

commaa

有30多个txt文件，命名没有规则，里边的数据类型都是一样的。需要提取指定的几个参数到excle中。


1、需要提取第十行：CPU Usage            : 后面的7到excel.
2、需要提取第十五行：Memory Using Percentage Is: 后面的14到excel中。

=============================================================
例如：

[20241017_08:46:01]

Info: The max number of VTY users is 10, and the number
      of current VTY users on line is 1.
      The current login time is 2024-10-17 08:45:57+08:00.
Info: Lastest accessed IP: 10.33.2.210  Time: 2024-10-16 08:41:41+08:00  Password will expire in: -

Info: Smart-upgrade is currently disabled. Enable Smart-upgrade to get recommended version information.
<RBNW-HJ-ECC-1F01>dis cpu-u | include CPU Usage.*Max:
CPU Usage            : 7% Max: 70%
<RBNW-HJ-ECC-1F01>disp memory
Memory utilization statistics at 2024-10-17 08:46:13+08:00
System Total Memory Is: 1059061760 bytes
Total Memory Used Is: 150108364 bytes
Memory Using Percentage Is: 14%
<RBNW-HJ-ECC-1F01>
[08:46:46]

liulang0808

liulang0808

附件内容供参考。。。。。

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir .\*.txt | %{$a=get-content $_;[PSCustomObject]@{CPU=$a[9] -replace '.*?(\d+)%.*','$1';" _
    & "MEM=$a[14] -replace '.*?(\d+)%.*','$1'}}| export-csv limonet.csv -notypeinformation", 0, False
End Sub

limonet

关键字:pscustomobject

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

gwjkkkkk

参与一下。。。

gwjkkkkk

参与一下。。。

commaa

感谢各位大神