求助修改代码

同心/ty

批量修改文件名。要求：1.文件名前批量加"DKSYT"  ;  2.批量删除“_刘堂怀_附证附图” ； 3.批量修改扩展名；4. 批量在扩展名前加“J”

杨建营

主要是你需要放上附件，才好给你修改。

同心/ty

杨建营 发表于 2023-1-31 14:46
主要是你需要放上附件，才好给你修改。

已上传附件，我放了一个批处理文件，最后一步加"J"没有完成,请指教。

ykcbf1100

文件重命名。

同心/ty

ykcbf1100 发表于 2023-1-31 15:47
文件重命名。

谢谢老师，用vba弄很好，还有扩展名小写改大写没有弄出来。能否用bat去完成，那样便捷点。

ykcbf1100

同心/ty 发表于 2023-1-31 16:03
谢谢老师，用vba弄很好，还有扩展名小写改大写没有弄出来。能否用bat去完成，那样便捷点。

扩展名小写改大写，这个简单。
你要用bat文件，你是不是发错地方了，这里是VBA版块。

同心/ty

ykcbf1100 发表于 2023-1-31 16:10
扩展名小写改大写，这个简单。
你要用bat文件，你是不是发错地方了，这里是VBA版块。

谢谢老师指教。

同心/ty

@echo off

Setlocal Enabledelayedexpansion

set "str1=421182"

set "str2=DKSYT421182"

//将文件名前添加DKSYT字符
for /f "delims=" %%i in ('dir /b *.*') do (

set "var=%%i" & ren "%%i" "!var:%str1%=%str2%!")


@echo off
setlocal enabledelayedexpansion
set n= 23
//保留文件名前23个字符
for /f "delims=" %%a in ('dir /a-d /b *.*') do (
set "name=%%~na"
ren "%%~a" "!name:~0,%n%!%%~xa"
)

ren *.pdf *.PDF
//将扩展名pdf更改为PDF

同心/ty

同心/ty 发表于 2023-2-1 10:51
@echo off

Setlocal Enabledelayedexpansion

还有一个要求没有完成，请大佬帮我修改代码加上“ J”

同心/ty

@echo off
for /f "tokens=1* delims=_" %%a in ('dir /b /a-d *.pdf') do (
    ren "%%a_%%b" "DKSYT%%aJ.PDF"
)
pause