idwma

新的灵感
稍做修改
@echo off&setlocal EnableDelayedExpansion
set out=ffff.txt
del !out!
set d=3

for /f "delims=" %%k in ('dir/b *.prt') do (
        set na=%%~nk
        set na=!na:~0,4!-!na:~5,4!-!na:~9,4!-!na:~12,5!-!na:~16!

        for /f "delims=" %%i in (%%k) do (
                set b=%%i
                for /l %%j in (1,1,30) do (
                        if "!b:~0,3!" equ "  %%j" set e=!b:~0,85! & set d=0
                        if "!b:~0,4!" equ "   %%j" set e=!b:~0,85! & set d=0
                )
                if  "!b:~0,11!" equ  "           " (if !b:~-3! neq NPD  set c=!c!!b:~11! & set d=1)
                if "!d!" equ "1" set f=!na!   !e:~0,49!!c!          !e:~-38!
                if "!d!" equ "0"   echo;!f! >> !out! && set "c=" & set "f=" & set d=1

        )
        set d=3
)
echo;!f! >> !out!

pause

newswan

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

jave000

回复 48# WHY


    不知道为啥，这个论坛我上传不了附件和图片。
我的第二列是元件描述，这个描述包含了第二行第三行第四行等若干行，这些都要合并到第一行的描述里

样本（bisca321ag12lr009m1.prt）：
   1    INSERTED NOZZLE, CS 9901, PP/UP-GF PIPE   200X50       I143276             1
           CLASS B, LAMINATED END, LAMINATED
           END, , DN 200 X 50 - 208 X 13 MATING
           DIMENSION 208 X 2.7


成品（自动分列，管号这一列放在哪无所谓，但要大写）：
   1    INSERTED NOZZLE, CS 9901, PP/UP-GF PIPE CLASS B, LAMINATED END, LAMINATED END, , DN 200 X 50 - 208 X 13 MATING DIMENSION 208 X 2.7   200X50       I143276             1          BISC-A321-AG12-LR009-M1

jave000

回复 49# idwma


你好，谢谢，运行有报错，但是我偶然运行出了一次结果，很接近需要了，只是4、4、4、5、1+的判断错了，可以下载我一楼发的附件链接
我在你代码里没看到有写路径，不知道这个路径是怎么从代码里体现出来的
“找不到 E:\Downloads\PRT\ffff.txt”

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")COPY

下面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	1COPY

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)?)$'COPY

idwma

回复 52# jave000


    完美匹配
改一下加几个分号可以自动分
再改一下,分号还是不稳改制表符来分隔
@echo off&setlocal EnableDelayedExpansion
set out=aa.txt
set d=3
for /f "delims=" %%a in ('mshta "about:<script>new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write("\t\t");close();</script>"') do set tab=%%a

for /f "delims=" %%k in ('dir/b *.prt') do (
        set na=%%~nk
        set na=!na:~0,4!-!na:~4,4!-!na:~8,4!-!na:~12,5!-!na:~17!
        call :con
        for /f "delims=" %%i in (%%k) do (
                set b=%%i
                for /l %%j in (1,1,30) do (
                        if "!b:~0,3!" equ "  %%j" set e=!b:~0,85! & set d=0
                        if "!b:~0,4!" equ "   %%j" set e=!b:~0,85! & set d=0
                )
                if "!d!" equ "0" call :ff
                if  "!b:~0,11!" equ  "           " (if !b:~-3! neq NPD  set c=!c!!b:~11! & set d=1)
                if "!d!" equ "1" set f=!na! !tab! !eee!!c! !tab! !e:~50,13! !tab! !e:~63,15! !tab! !e:~-5!
                if "!d!" equ "0"   echo;!f! >> !out! && set "c=" & set "f=" & set d=1
                echo;!f!
        )
        set d=3
)
echo;!f! >> !out!
pause
exit

:ff
for /l %%m in (49,-1,1) do (
        set ee=!e:~0,49!
        set eee=!ee:~1,%%m!
        if not "!b:~%%m,1!" == " "  goto :EOF
)

:con
for %%m in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do call set na=%%na:%%m=%%m%%

WHY

回复 51# jave000

$fd  = 'E:\Test\PRT';     #存放prt文件的目录路径
$reg = '(?-i)^\s+(\d+)\s+(.+)(?<!\s)\s+(\d+(?:X\d+)?)\s+(.+)(?<![\sX])\s+(\d+(?:\.\d+)?)(?>\s+M)?$';
[Collections.ArrayList]$out = @();
       
forEach ( $f In (dir $fd -Filter *.prt) ){
    $flag = $false;
    $name = $f.BaseName.ToUpper();
    $name = $name -replace '^(....)(....)(....)(.....)(.+)$', '$1-$2-$3-$4-$5';
    forEach ( $s In @(gc $f.FullName) ){
        if ( $s -match $reg ){
            if ( $flag ){
                [void]$out.Add( '"' + ($arr -join '","') + '"' );
            }
            $arr = @( '', '', '', '', '', $name );
            for ( $i=1; $i -le 5; $i++ ){ $arr[$i-1] = $matches[$i].Replace('"', '""'); }
            $flag = $true;
        } elseif ( $s -match '^ {11}(\S.*)'){
            $arr[1] += ' ' + $matches[1].Replace('"', '""');
        }
    }
    if ( $flag ){
       [void]$out.Add(  '"' + ($arr -join '","') + '"' );
    }
}
 
sc 1.csv $out;COPY

个别文件描述列本身包含了双引号，比如：mmdiv710ds22lr0121.prt，格式发生错乱
已修改。

jave000

回复 55# idwma


可能是运行模式不同，这个运行很慢。
我试了你的初始代码，生成的txt，复制到excel后会中间穿插空白列，序号和描述列也没有分开。但是更加完善了。
我把代码里的txt改成csv，生成的csv和刚才的txt一样大，但是分列很混乱了，没有想到这俩会有差别。
正文部分我一点也没看懂
末尾exit后还可以加代码我第一次见，也不知道是什么意思
涨知识了，谢谢

jave000

回复 56# WHY


    尝试运行了一下，没有发现任何问题。
明天到公司再试试一些别的prt文件
感谢大神

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")COPY