根据文件夹的文件批量生成链接-谨慎使用-会自动重命名所有文件

 根据文件夹的文件生成文件链接，可以写入文章。

@echo off
mode con cols=50 lines=20
color 0a
setlocal enabledelayedexpansion

echo --------------------------------------------
echo 【自动将文件名中的“空格”改为“下划线”】
echo 【自动将英文的“()”改为中文的“（）”】
echo 【自动生成自动化网站分享链接--存储到同目录下的"文件链接.txt"可以粘贴到文章中】
echo --------------------------------------------
::echo 【请确认是否锁定文件类型】
::echo 【0-锁定（默认）/1-不锁定】
::echo 【建议锁定，这样批量改名不会影响文件类型（后缀）】
::echo 【如果要替换文件后缀名:】
::echo       【例如：将.jgp替换成.bmp】
::echo       【请输入1】
::echo 【回车确认】
pause
set str_type=0
::set /P str_type=【请输入1或0，默认0】：
::set /P str_start=输入前缀字符【空字符直接回车】：
::set /P str_end=输入后缀字符【空字符直接回车】：

::生成文件名链接列表
::<a href="http://124.239.132.135:8444/wp-content/uploads/2023/09/自控仪表_11-仪表工具_DO63现场校验仪.doc">自控仪表_11-仪表工具_DO63现场校验仪.doc</a>
set s0=http://124.239.132.135:8444/wp-content/uploads/
set s1=a href="http://124.239.132.135:8444/wp-content/uploads/
set s2=%date:~0,4%
set s3=%date:~5,2%
set s4=%s1%%s2%/%s3%/
set s04=%s0%%s2%/%s3%/
echo ^<%s4%
set s5=">
echo %s5%
set s6=/a
echo ^<%s6%^>

set str1=(
set str2=（
set str3=)
set str4=）


:--------------------------------------
:先去掉文件名中的空格
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =_!
ren "%%i" !fn!
)
:先去掉文件名中的空格
:--------------------------------------
:--------------------------------------
:再进行替换
echo str_type=%str_type%
if %str_type%==0 (
	for /f "tokens=*" %%i in ('dir /b /s') do (
		if not "%%i"=="%~nx0" (
			set fn=%%~ni
			set fn=!fn: =_!
			set fn=!fn:%str1%=%str2%!
			set "fn=!fn:%str3%=%str4%!"
			set fn=%str_start%!fn!%str_end%
			set fn=!fn!%%~xi
			ren "%%i" !fn!
			
			:改名完成，开始生成链接	
			:用echo输出显示来降低代码运行速度，否则报错
			echo !fn!
			
			set "filename=%%~ni"
			set "extension=%%~xi"
			
			if "!extension!"==".jpg" (
				set new_string="<%s4%!filename!!extension!"^>!filename!!extension!^<br^>^<img src="http://124.239.132.135:8444/wp-content/uploads/%s2%/%s3%/!filename!-150x150.jpg"/^>^</a^>"
				set abc=!new_string!
			) else if "!extension!"==".mp4" (
				set new_string="<%s4%!filename!!extension!"^>^</a^>!filename!!extension!^<br^>^[video width="1920" height="1080" mp4="%s04%!filename!!extension!"^]^[/video^]"
				set abc=!new_string!
			) else (
				set abc="<%s4%!fn!%s5%!fn!<%s6%>")
			set abc=!abc:~1,-1!
			:判断是否是单文件，通过查找"\."排除文件夹
			echo !fn! | findstr "\." >nul
			:echo !errorlevel!
			if !errorlevel! equ 0 (
				echo !abc!>>文章链接.txt)
		)
	)
) else (
if %str_type%==1 (
	for /f "tokens=*" %%i in (*) do (
		if not "%%i"=="%~nx0" (
			set fn=%%i
			set fn=!fn: =_!
			set fn=!fn:%str1%=%str2%!
			set "fn=!fn:%str3%=%str4%!"
			set fn=%str_start%!fn!%str_end%
			ren "%%i" !fn!
			echo !fn!
		)
	)
)
)
start 文章链接.txt
:--------------------------------------
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo %str4%com
pause


::on	(<a href=")(http.*)(\.jpg)(">)(.*\.jpg)(</a>)	\1\2\3\4\5<br><img src="\2-150x150.jpg"/>\6	R
::on	(<a href=")(http.*)(\.mp4)(">)(.*\.mp4)(</a>)	\1\2\3\4\5>\6<br>[video width="1920" height="1080" mp4="\2.mp4"\]\[/video\]	R