[文本处理] 求助批量文件改名并生成列表并计数

jave000

同类搜索简述：
将*.i??批量改为*_i??.dgn，其中??是两位数字，不能是字母。
改名后将其生成列表并排序，其中文件名字母全部大写，且按规则在名称中插入“-”。
并将同名文件前缀的按照i??的数目计数。
额外要求是在同名文本中抽取信息填入其他列，我自学成功后再把代码发上来。
感谢楼下诸位

@echo off
PowerShell "dir *.i[0-9][0-9] | group {$_.BaseName} | forEach {'' + ++$i + ',' + ($_.Name.ToUpper() -replace '^(....)(....)(....)(.....)(.+)$', '$1-$2-$3-$4-$5') + ',,,,,,' + $_.Count; $_.Group | ren -NewName {$_.Name -replace '\.(...)$', '_$1.dgn'}}" > z-iso.csv
for /f "delims=" %%j in ('dir /b /s /a-d^|findstr /r /e "\.b[0-9][0-9]* \.x[0-9][0-9]* \.bom \.err \.h \.idf \.log \.prt"') do del /a /f /q "%%j"

jave000

回复 11# idwma


   谢谢，功能很棒，只是有些识别错误和输出错误，得等我上传一些样本再说了。先这样，我学习一下。

idwma

回复 10# jave000


    尴尬...
改一下合并到一个单元格
@echo off&setlocal enabledelayedexpansion
set "第一列="
set "第二列="
set "第三列="
set "第四列="
set "第五列="
set "第六列="
set "第七列="
set "第八列="
set "第九列="
set "第十列="

set out=aaa.csv

for /f "delims=" %%i in ('dir/b *.i?? ^| findstr "^.*i[0-9][0-9].*"') do (
if not !文件名! == %%~ni  set/a "第一列+=1"
set a=%%~ni_%%~xi
set a=!a:.=!
ren %%~i !a!.dgn >nul


set "第二列=%%~ni"
set 第二列=!第二列:~0,4!-!第二列:~4,4!-!第二列:~8,4!-!第二列:~12,5!-!第二列:~17!
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 第二列=%%第二列:%%m=%%m%%


if not !文件名! == %%~ni (
for /f "delims=" %%z in (%%~ni.prt) do (set/a 行数一+=1)
for /f "delims=" %%l in ('dir/b %%~ni.i?? ^| findstr "^.*i[0-9][0-9].*"') do (set/a "第八列+=1")
for /f "delims=" %%j in (%%~ni.prt) do (
set/a "行数二+=1"
set "当前行=%%j"
if "!当前行:~0,12!" == " PIPING SPEC" set "第六列=!当前行:~13!"
if "!当前行:~0,24!" == " THERMAL INSULATION SPEC" if "!当前行:~25,1!" == "" (set "第七列=-") else (set "第七列=!当前行:~25,1!")
if "!当前行:~0,14!" == " PIPE NPD (MM)" set "第五列=!第五列!\!当前行:~16!"
if "!当前行:~0,14!" == " CL LENGTH (M)" set "第十列=!第十列! !当前行:~16!" & for /f "tokens=1-10 delims= " %%a in ("!第十列!") do set 第十列求和==SUM(%%a,%%b,%%c,%%d,%%e,%%f,%%g,%%h,^)

if "!行数一!" == "!行数二!" echo;"!第一列!","!第二列!","!第三列!","!第四列!","
if "!行数一!" == "!行数二!" for /f "tokens=1-10 delims=\"  %%a in ("!第五列!") do (echo;%%a && echo;%%b && echo;%%c && echo;%%d)
if "!行数一!" == "!行数二!" echo;","!第六列!","!第七列!","!第八列!","!第九列!","!第十列!","!第十列求和!"
if "!行数一!" == "!行数二!" set 行数一= & set 行数二= & set 第五列= & set 第十列=
)
set 第八列=
)
set 文件名=%%~ni
)>>!out!

pause

jave000

回复 2# idwma


    hi，mdixv710va13lr0521.i??只是用来举例的，有很多类似文件

jave000

回复 8# WHY


   很完美，请问'_$1.dgn'表示什么？为什么有一个1

WHY

@echo off
PowerShell "dir *.i[0-9][0-9] | group {$_.BaseName} | forEach {'' + ++$i + ',' + ($_.Name.ToUpper() -replace '^(....)(....)(....)(.....)(.+)$', '$1-$2-$3-$4-$5') + ',,,,,,' + $_.Count; $_.Group | ren -NewName {$_.Name -replace '\.(...)$', '_$1.dgn'}}" > 1.csv
pause
复制代码

newswan

$pathSour = "."
$fileDest = "33"

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

remove-item $fileDest*

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

$renfs = "(\w{4})(\w{1,4})?(\w{1,4})?(\w{1,5})?(.*)"
$renfd = "`$1-`$2-`$3-`$4-`$5"
$rem = "^ (PIPING SPEC |THERMAL INSULATION SPEC |PIPE NPD |CL LENGTH )"
get-childitem -path $pathSour "*.prt" | foreach-object {
    write-host "  "$_.basename
    $nf = $_.basename.ToUpper() -replace $renfs,$renfd -replace "-+$",""
    Get-ChildItem -path ($_.basename +".i??") -Exclude "*.idf" | ForEach-Object{
        #rename-item $_.name -NewName ($_.name+ ".dgn")
    }
    $fc = (get-content -Encoding utf8 $_.fullname) -match $rem
    $c6 = $fc -match " PIPING SPEC " -replace " PIPING SPEC (\w+)","`$1"
    $c7 = $fc -match " THERMAL INSULATION SPEC " -replace " THERMAL INSULATION SPEC (\w).*","`$1"
    if ($c7.length -eq 0) { $c7= "-" }
    $c5 = $fc -match " PIPE NPD \(MM\) " -replace ".{14}(.+)$","`$1"
    $c10 = $fc -match " CL LENGTH \(M\) "-replace ".{14}(.+)$","`$1"
    $c5 = $c5 -join "`t" -replace "\s+","`t" -split "`t" | Sort-Object { [double] $_ }
    $c10 = $c10 -join "`t" -replace "\s+","`t" -split "`t" | Sort-Object { [double] $_ }
    $al.add($nf) | out-null
    $al.add("  #6 $c6") | out-null
    $al.add("  #7 $c7") | out-null
    $al.add("  #5 " + "sum: " + (($c5 | Measure-Object -Sum).sum)  + ($c5 -join "`t")) | out-null
    $al.add("  #10 " + "sum: " + (($c10 | Measure-Object -Sum).sum)  + ($c10 -join "`t")) | out-null
}

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

newswan

回复 3# newswan


    还是没说清楚啊，给一个结果示例

WHY

"第一列为序号，第二列为大写的比如MDIX-V710-VA13-LR052-1"
那么第3列、4列、5列、6列、7列分别应该填什么呢？
"这里它有六份" 指的是哪6份？

以顶楼的文件清单为例，你需要得到的1~8列分别是什么？

jave000

不好意思之前我写的不清楚，已经修改。

以下是需求中第一条的已经写好的代码，有两种，需要继续增加内容：

for %%i in (*.i??) do (if not %%~xi==.idf (for /f "delims=." %%j in ("%%~xi") do (ren %%i %%~ni_%%j.dgn)))




@echo off & setlocal enabledelayedexpansion

for %%i in (*.i??) do (

   set file=%%i

   (echo !file:~-1! | findstr /R [0-9] >nul) && (echo !file:~-2,1! | findstr /R [0-9] >nul) && (

       set postfix=%%~xi

       ren %%i %%~ni_!postfix:~1!.dgn

   )

)

newswan

不太明白，，，，，，，，

idwma

改完名的dgn文件这个列表是要文件的内容,还是只要文件名


先来个简单的

@echo off&setlocal enabledelayedexpansion
set out=list.txt

for /f "delims=" %%i in ('dir/b mdixv710va13lr0521.i?? ^| findstr "^.*i[0-9][0-9].*"') do (
set na=%%~ni
set a=%%~ni_%%~xi
set a=!a:.=!
ren %%~i !a!.dgn
set no+1=1
)


set na=!na:~0,4!-!na:~4,4!-!na:~8,4!-!na:~12,5!-!na:~17!
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%%
echo !no!  !na! >> !out!


pause