1    PIPE, SMLS, HG/T 20553, ASTM A312         200          I512912           2.1 M
   2    PIPE, SMLS, HG/T 20553, ASTM A312         150          I512911           1.6 M
   3    PIPE, SMLS, HG/T 20553, ASTM A312         50           I512906           0.3 M
   4    PIPE, SMLS, HG/T 20553, ASTM A312         25           I512903           0.3 M
   5    PIPE, SMLS, HG/T 20553, ASTM A312         20           I512902           0.2 M
   6    CONCENTRIC REDUCER, SMLS, GB/T 12459,     200X150      I512654            1
   7    ELBOW 90 C, SMLS, GB/T 12459, 90E(L),     200          I512504            1
   8    ELBOW 90 C, SMLS, GB/T 12459, 90E(L),     50           I512498            1
   9    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   200          I512820            1
  10    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   150          I512819            1
  11    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   50           I512814            1
  12    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   25           I512799            1
  13    BLIND FLANGE, EN 1092-1, TYPE 05, SA 182  25           I512946            1
  14    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   20           I512798            1
  15    GASKET, DIN EN 1514-1-IBC, NQ,            200          I224625            1
  16    GASKET, DIN EN 1514-1-IBC, NQ,            150          I224624            2
  17    GASKET, DIN EN 1514-1-IBC, NQ,            50           I224645            1
  18    GASKET, DIN EN 1514-1-IBC, NQ,            25           I224638            2
  19    GASKET, DIN EN 1514-1-IBC, NQ,            20           I224636            1
  20    SCREWED CONNECTION, DIN EN ISO            20           I91453            16
  21    SCREWED CONNECTION, DIN EN ISO            20           I91454             8
  22    SCREWED CONNECTION, DIN EN ISO            16           I91413             4
  23    SCREWED CONNECTION, DIN EN ISO            12           I91371             4
  24    SCREWED CONNECTION, DIN EN ISO            12           I91372             8
  25    ERROR READING SPECIALTY MATERIAL          150          V710RE11F3121      1
  26    SLIDE SHOE SIDE MOVABLE COMPANY STD       200          S0W-200            1
   1    PIPE, SMLS, HG/T 20553, ASTM A312         250          I512913           0.5 M
   2    CONCENTRIC REDUCER, SMLS, GB/T 12459,     250X200      I512658            1
   3    ELBOW 90 C, SMLS, GB/T 12459, 90E(L),     250          I512505            1
   4    BLIND DISC, CS 473 PN 10 SERIES 2, SA     200          I512980            1
   5    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   250          I512821            1
   6    WELDNECK FLANGE, EN 1092-1, TYPE 11, SA   200          I512820            2
   7    GASKET, DIN EN 1514-1-IBC, NQ,            250          I224614            1
   8    GASKET, DIN EN 1514-1-IBC, NQ,            200          I224625            3
   9    SCREWED CONNECTION, DIN EN ISO            20           I91454             8
  10    SCREWED CONNECTION, DIN EN ISO            20           I91456             8
  11    SCREWED CONNECTION, DIN EN ISO            20           I91455            12
  12    BELLOWS SEAL VALVE, HANDWHEEL, CLIMBING,  200          I372364            1COPY

$pathSour = "."
$fileDest = "11"
 
[System.Collections.ArrayList] $al = @()
 
get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    for ($i = 0 ; $i -le $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s{2,3}(\d{1,2})(.{46})(.{13})(.{16})(.+)")
        {
            $a = @("") * 6
            $a[0] = $_.basename
            for ($j = 1 ; $j -le 5 ; $j++)
            {
                $a[$j] = $matches[$j].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"))
            {
                $al.add($a -join "`t") | out-null
            }
        }
    }
}
$al | out-file ($fileDest + ".txt")COPY

$pathSour = ".\prt"
$fileDest = "11"
 
[System.Collections.ArrayList] $al1 = @()
[System.Collections.ArrayList] $al2 = @()
 
 
get-childitem -path $pathSour "*.prt" | foreach-object {
    $fc = get-content $_.fullname
    for ($i = 0 ; $i -lt $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s{2}[\s\d]\d\s{4}")
        {
            $al1.add($fc[$i] + "`t" + $_.basename) | out-null
            #$re = '^\s{2,3}(\d{1,2})\s{4}(.+)\s+([^\s]+)\s+([^\s]+)\s+([\d]+[.]?[\d]*\s?M?)$'
            $re = '^\s{2,3}(\d{1,2})(.{46})(.{13})(.{16})(.+)'
            $fc[$i] -match "$re" | out-null
            $a = @("") * 6
            $a[0] = $_.basename
            for ($j = 1 ; $j -le 5 ; $j++)
            {
                $a[$j] = $matches[$j].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"))
            {
                $al2.add($a -join "`t") | out-null
            }
        }
    }
}
$al1 | out-file ($fileDest + "-1.txt")
$al2 | out-file ($fileDest + "-a.txt")
 
 
$v = [string[,]]::new($al2.count,1)
for ($i =0 ; $i -lt $al2.count ; $i++)
{
    $v[$i,0] = $al2[$i]
}
 
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Sheet = $Workbook.Worksheets.Item(1)
 
$rng = "A1:A" +  $al2.count
$Sheet.range($rng).value2 = $v
 
$colA = $sheet.range("A1").EntireColumn
$colrange = $sheet.range("A1")
$colA.texttocolumns($colrange,1,1,$false,$true,$false,$false,$false) | out-null
$sheet.columns.autofit() | out-null
$Workbook.SaveAs(($PSScriptRoot + "\" + $fileDest))
$excel.Quit()COPY

$pathSour = ".\prt"
$fileDest = "11"
 
[System.Collections.ArrayList] $al1 = @()
[System.Collections.ArrayList] $al2 = @()
 
 
get-childitem -path $pathSour "*.prt" | foreach-object {
    $fc = get-content $_.fullname
    $nf = $_.basename.ToUpper()
    $nf = $nf -replace "(\w{4})(\w{1,4})?(\w{1,4})?(\w{1,5})?(.*)","`$1-`$2-`$3-`$4-`$5" -replace "-+$",""
    for ($i = 0 ; $i -lt $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s{2}[\s\d]\d\s{4}")
        {
            $al1.add($fc[$i] + "`t" + $_.basename) | out-null
            #$re = '^\s{2,3}(\d{1,2})\s{4}(.+)\s+([^\s]+)\s+([^\s]+)\s+([\d]+[.]?[\d]*\s?M?)$'
            $re = '^\s{2,3}(\d{1,2})(.{46})(.{13})(.{16})(.+)'
            $fc[$i] -match "$re" | out-null
            $a = @("") * 6
            $a[0] = $nf
            for ($j = 1 ; $j -le 5 ; $j++)
            {
                $a[$j] = $matches[$j].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"))
            {
                $al2.add($a -join "`t") | out-null
            }
        }
    }
}
$al1 | out-file ($fileDest + "-1.txt")
$al2 | out-file ($fileDest + "-a.txt")
 
 
$v = [string[,]]::new($al2.count,1)
for ($i =0 ; $i -lt $al2.count ; $i++)
{
    $v[$i,0] = $al2[$i]
}
 
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Sheet = $Workbook.Worksheets.Item(1)
 
$rng = "A1:A" +  $al2.count
$Sheet.range($rng).value2 = $v
 
$colA = $sheet.range("A1").EntireColumn
$colrange = $sheet.range("A1")
$colA.texttocolumns($colrange,1,1,$false,$true,$false,$false,$false) | out-null
$sheet.columns.autofit() | out-null
$Workbook.SaveAs(($PSScriptRoot + "\" + $fileDest))
$excel.Quit()COPY

$dir = 'E:\Test\PRT';     #存放prt文件的目录路径
$reg = '(?-i)^\s+(\d+)\s+(.+)(?<!\s)\s+(\d+(?:X\d+)?)\s+(.+)(?<![\sX])\s+(\d+(?:\.\d+)?(?>\s+M)?)$';
$arr = (gc ($dir + '\*.prt')) -match $reg -replace $reg, '"$1","$2","$3","$4","$5"';
sc 1.csv $arr;COPY

$pathSour = ".\prt"
$fileDest = "11"
 
[System.Collections.ArrayList] $al2 = @()
 
get-childitem -path $pathSour "*.prt" | foreach-object {
    $nf = $_.basename.ToUpper()
    $nf = $nf -replace "(\w{4})(\w{1,4})?(\w{1,4})?(\w{1,5})?(.*)","`$1-`$2-`$3-`$4-`$5" -replace "-+$",""
    $fc = (get-content $_.fullname) -match ''^\s{2,3}\d{1,2}\s{4}.+|^\s{11}\S.+''
    for ($i = 0 ; $i -lt $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s{2}[\s\d]\d\s{4}")
        {
            #$re = '^\s{2,3}(\d{1,2})\s{4}(.+)\s+([^\s]+)\s+([^\s]+)\s+([\d]+[.]?[\d]*\s?M?)$'
            $re = '^(.{4})(.{46})(.{13})(.{16})(.+)'
            $fc[$i] -match "$re" | out-null
            $a = @("") * 6
            $a[0] = $nf
            for ($j = 1 ; $j -le 5 ; $j++)
            {
                $a[$j] = $matches[$j].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
            }
            $al2.add($a -join "`t") | out-null
        }
    }
}
$al2 | out-file ($fileDest + ".txt")COPY

$fd  = 'E:\Test\PRT';     #存放prt文件的目录路径
$arr = @();
$reg = '(?-i)^\s+(\d+)\s+(.+)(?<!\s)\s+(\d+(?:X\d+)?)\s+(.+)(?<![\sX])\s+(\d+(?:\.\d+)?)(?>\s+M)?$';
forEach( $f In (dir $fd -Filter *.prt) ){
    $s = $f.BaseName;
    $s = $s -replace '^(....)(....)(....)(.....)(.+)$', '$1-$2-$3-$4-$5';
    $arr += @(gc $f.FullName) -match $reg -replace $reg, ('"$1","$2","$3","$4","$5","' + $s + '"');
}
sc 1.csv $arr;COPY