newswan

回复 33# jave000


    基本没啥改的了
    $pathSour 作用是 rpt 文件夹
    数据文件长度是明确的，按长度截取很简单
    $a[0] 未使用，可以用来记录文件名、日期或者其他什么的

newswan

回复 33# jave000


    生成的文件大很多？什么意思

newswan

回复 36# jave000

   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            1
复制代码

你数数各个列的宽度，第4楼的宽度非常整齐，如果不整齐，找下原因

newswan

$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")
复制代码

你自己数宽度，宽度依次是 4 46 13 16 x

newswan

$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()
复制代码

$re 有两个，还是按列分割比较好。

newswan

$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()
复制代码

newswan

$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")
复制代码

newswan

最稳妥的应该这样：导出为csv格式。

newswan

三种分列方式，对比，还是按宽度截取，最佳

$pathSour = ".\prt"
$fileDest = "11"

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

$res1 = "^\s{2,3}\d{1,2}\s{4}.+"
$res2 = "^\s{11}\S.+"
$rea = "$res1" + "|" + "$res2"
$renfs = "(\w{4})(\w{1,4})?(\w{1,4})?(\w{1,5})?(.*)"
$renfd = "`$1-`$2-`$3-`$4-`$5"
$rew = "^(.{4})(.{46})(.{13})(.{15})(.+)"
$re2s = '^\s{2,3}(\d{1,2})\s{4,}(.+?)(?<=\S)\s{2,}(\d+(?:X\d+)?)\s{2,}(\S+(?:\s\S+)*)\s{2,}([\d]+(?:[.]\d+)?(?:\sM)?)$'
$re2d = "`t`$1`t`$2`t`$3`t`$4`t`$5"

get-childitem -path $pathSour "*.prt" | foreach-object {
    write-host $_.basename
    $fc = (get-content -Encoding utf8 $_.fullname) -match $rea
    for ($i = 0 ; $i -lt $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s{2}[\s\d]\d\s{4}")
        {
            $s1 = $fc[$i]
            # 以3+空格
            $a1 = (" " + $s1) -replace "(?<=\S)  (?=\d)","   " -split "   +"
            $a1line1 = $a1 -join "`t"
            #re2s
            $a2line1 = $s1 -replace $re2s,$re2d
            # 宽度
            $s1 -match $rew | out-null
            $aw = @("") * 6
            for ($j = 1 ; $j -le 5 ; $j++)
            {
                $aw[$j] = $matches[$j].trim()
            }
            $awline1 = $aw -join "`t"
            
            if ( ($a1line1 -ne $awline1 ) -or ($a2line1 -ne $awline1 ))
            {
                $alc.add( $_.basename + "`n" + $s1) | out-null
                $alc.add( "1" + $a1line1 + "`n" + "2" + $a2line1 + "`n" + "w" + $awline1 + "`n" ) | out-null
            }
        }
    }
}

$alc | out-file -encoding utf8 ($fileDest + "-c.txt")
复制代码

下面12w开头的行，对应三种方式

mdiv610ab21lr0035
  21    SEE PIPING SPECIAL SUPPORT DRAWING                     SS1139             1
1	21	SEE PIPING SPECIAL SUPPORT DRAWING	SS1139	1
2  21    SEE PIPING SPECIAL SUPPORT DRAWING                     SS1139             1
w	21	SEE PIPING SPECIAL SUPPORT DRAWING		SS1139	1
复制代码

newswan

用这个正则，和宽度分列一样了

$re2s = '^\s{2,3}(\d{1,2})\s{4,}(.+?)(?<=\S)\s{2,}(\d*(?:\s?X\d+)?)\s{2,}(\S+(?:\s\S+)*)\s{2,}([\d]+(?:[.]\d+)?(?:\sM)?)$'
复制代码

newswan

$pathSour = ".\prt"
$fileDest = "22"

if (-not ([string]::IsNullOrEmpty($args[0])))
{
    $pathSour = $args[0]
}

remove-item $fileDest*.*

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

$rem = "^\s{3}\d{1}|^\s{2}\d{2}|^\s{11,12}\S.+"
$renfs = "(\w{4})(\w{1,4})?(\w{1,4})?(\w{1,5})?(.*)"
$renfd = "`$1-`$2-`$3-`$4-`$5"
$res = "`n(.{4})(.{46})(.{13})(.{15})(.+)((?:`n\s{11,12}.+)*)"
#$res = "`n\s{2,3}(\d{1,2})\s{4,}(\S.+?\S)\s{2,}(\d+(?:X\d+)?)\s{2,}(\S+(?:\s\S+)*)\s{2,}(\d+(?:[.]\d+)?(?:\sM)?)((?:`n\s{11,12}.+)*)"
$red = "`t`$1`t`$2`$6`t`$3`t`$4`t`$5::"

get-childitem -path $pathSour "*.prt" | foreach-object {
    write-host "  "$_.basename
    $nf = $_.basename.ToUpper() -replace $renfs,$renfd -replace "-+$","";
    $a = "`n" + (((get-content -Encoding utf8 -path $_.fullname ) -match $rem) -join "`n") ;
    if ( $a.length -gt 0 )
    {
        $a = $a -replace $res,$red -replace "[ `n]+"," " -replace " *`t *","`t"
        $a = $a -replace "::$","" -replace "::","`n" -replace "(?m)\sm$","" -replace "(?m)^(?=`t)",$nf
        $al.add($a) | out-null
    }
}
$al | out-file -encoding utf8 ($fileDest + "-a.txt")
复制代码