jave000

回复 18# idwma

CMD窗口闪烁，58kb运行了一分钟，不太好用，不过结果很好
你这个代码我学习一下希望能尽快看懂，十分感谢

jave000

回复 17# newswan


    若干*.prt，多个文件的运行结果是一个空白文本文档

newswan

回复 23# jave000


    修改路径 $pathsour

jave000

回复 20# newswan


    我直接把路径这一行删了，就成功运行了。
但是关于设置空格数量的，无论是刚才的单个文件，还是现在的多个文件，这两段代码，修改空格数量的代码后，运行都是空白

newswan

回复 25# jave000

发现有这么一行，2个空格分隔

  12    BELLOWS SEAL VALVE, HANDWHEEL, CLIMBING,  200          I372364            1
复制代码

暂时，解决办法，你先找例外情况，手动修改空格
或者导出的时候，导出为csv格式
找到所有例外情况，看看情况再决定

jave000

回复 26# newswan


    $a = $fc[$i].trim() -split "\s{4,}*"
这个代码改成2或3都不行，都是空白，我删了.trim()也是一样的结果
目前这样如果难以解决，也很实用了，我私信你了
我刚看到版规，直接得到结果应该是有偿的
不知应该怎么感谢

newswan

$pathSour = "."
$fileDest = "11.txt"

[System.Collections.ArrayList] $da = @()

get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    $i = 0
    while ($i -le $fc.count)
    {
        if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
        {
            $a = @("") * 6
            $a[1] =$fc[$i].substring(0,4).trim()
            $a[2] =$fc[$i].substring(4,46).trim()
            $a[3] =$fc[$i].substring(50,13).trim()
            $a[4] =$fc[$i].substring(63,18).trim()
            $a[5] =$fc[$i].substring(81).trim()
            #$a = $fc[$i] -split "\s{2,}"
            #$a[-1] = $a[-1] -replace "\sm",""
            while ($fc[$i+1] -match "^\s{11}\S")
            {
                $a[2] = $a[2] + " " + $fc[$i+1].trim()
                $i += 1
            }
            if (-not ($fc[$i+1] -match "^\s{11}\S"))
            {
                $da.add($a -join "`t") | out-null
            }
        }
        $i += 1
    }
}
$da | out-file $fileDest
复制代码

按长度截取也可以

WHY

$reg = '(?-i)^\s+\d+\s+.*?(\S+)(?<!X)\s+(\d+(?:\.\d+)?)(?>\s+M)?$';
$arr = (gc *.txt) -match $reg -replace $reg, '$1,$2';
sc 1.csv $arr;
复制代码

jave000

回复 29# WHY


    你的代码好少啊……但是确实能生成两列，好强，它还能修改成显示五列吗？

newswan

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Sheet = $Workbook.Worksheets.Item(1)
for ($i =1 ; $i -le $da.count ; $i++)
{
    $Sheet.cells($i,1).value = $da[$i-1]
}
$colA=$sheet.range("A1").EntireColumn
$colrange=$sheet.range("A1")
$colA.texttocolumns($colrange,1,1,$true,$true,$false,$false,$false)
$sheet.columns.autofit()
$Workbook.SaveAs(($PSScriptRoot + "\" + $fileDest))
$excel.Quit()
复制代码

生成 excel 文件 加到后面

newswan

只需要保留 2 4 5 ？

jave000

回复 32# newswan

出现了这样的连续报错，运行速度也很慢，但也出了结果，只不过结果文件特别大，200KB的若干PRT文件，生成了一个4MB多的txt文件

    无法对 Null 数组进行索引。
所在位置 行:11 字符: 13
+         if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: ( []，RuntimeException
    + FullyQualifiedErrorId : NullArray

无法对 Null 数组进行索引。
所在位置 行:11 字符: 13
+         if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : NullArray

无法对 Null 数组进行索引。
所在位置 行:11 字符: 13
+         if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : NullArray

无法对 Null 数组进行索引。
所在位置 行:11 字符: 13
+         if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : NullArray

jave000

回复 33# newswan


    老大你还是早点休息吧，我受之有愧。如果两个空格很难解决，我手改也行的。

newswan

回复 34# jave000


    我这里正确的，你检查下？

$pathSour = "."
$fileDest = "11"

[System.Collections.ArrayList] $da = @()

get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    for ($i = 0 ; $i -le $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
        {
            $a = @("") * 6
            $a[1] =$fc[$i].substring(0,4).trim()
            $a[2] =$fc[$i].substring(4,46).trim()
            $a[3] =$fc[$i].substring(50,13).trim()
            $a[4] =$fc[$i].substring(63,18).trim()
            $a[5] =$fc[$i].substring(81).trim()
            $a[5] = $a[5] -replace "\sm",""
            while ($fc[$i+1] -match "^\s{11}\S")
            {
                $a[2] = $a[2] + " " + $fc[$i+1].trim()
                $i += 1
            }
            if (-not ($fc[$i+1] -match "^\s{11}\S"))
            {
                $da.add($a -join "`t") | out-null
            }
        }
    }
}
$da | out-file ($fileDest + ".txt")
复制代码

newswan

回复 35# jave000


    我还在下新的 office 2021版的