中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 分享：Unname - 重命名文件使其只留下后缀名

作者:

标题: 分享：Unname - 重命名文件使其只留下后缀名

上一主题 | 下一主题

tireless
银牌会员

积分 2025
发帖 1122
注册 2007-9-5
状态离线

『楼主』: 分享：Unname - 重命名文件使其只留下后缀名使用 LLM 解释/回答一下

来自著名的Replacer的软件作者的作品

效果：

和alt + 0160 (小键盘) 是不同的：

Unname.cmd

:: Unname 0.1 by undefined

:: www3.telus.net/_/unname



@echo off

title Unname

ver|find "NT">nul&&(

 echo.Windows XP/2000 only.

 pause>nul&goto:eof)



if not '%1'=='' (

 echo."%*"|find "?">nul&&(

  echo.Removes filenames.

  echo.&echo.Usage:

  echo. %~n0 "File"

  echo.&echo.Example:

  echo. %~n0 "C:\File.lnk"

  goto:eof)

 set "fil=%1"

 shift&goto:prm

 if not '%1'=='' (

  echo.One file at a time.

  pause>nul&goto:eof))



:fil

cls&set "fil="

echo.Drag and drop^

 a file into this window^

 to remove its name.

echo.&set/pfil=  

:prm

if not defined fil goto:fil

echo.&call set "quo=%fil%"

set "quo=###%quo%###"

set "quo=%quo:"###=%"

set "quo=%quo:###"=%"

set "quo=%quo:###=%"

set fil="%quo%"&set quo=

if not exist %fil% (

 echo.File does not exist.

 pause>nul&goto:fil)

for %%* in (%fil%) do (

 echo.%%~a*|find "d">nul&&(

  echo.Folders not allowed.

  pause>nul&goto:fil)

 if "%%~x*"=="" (

  echo.Extension required.

  pause>nul&goto:fil)

 if exist "%%~dpx*" (

  echo.Unnamed file already^

 exists in the same folder.

  pause>nul&goto:fil)

 ren %%* "%%~x*"||(

  echo.Failed.

  pause>nul&goto:eof))

echo.Complete.

pause>nul