中国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 - 重命名文件使其只留下后缀名

来自著名的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

主页 Unname介绍官方下载

2008-4-11 16:11