分享：Unname - 重命名文件使其只留下后缀名 - 中国DOS联盟论坛

来自著名的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介绍官方下载

第1楼　tireless	发表于 2008-04-11 16:11
银牌会员　发帖 1,122　积分 2,025
分享：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介绍官方下载

第2楼　knoppix7	发表于 2008-04-11 18:09
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
set "quo=###%quo%###" set "quo=%quo:"###=%" set "quo=%quo:###"=%" set "quo=%quo:###=%" ...................去掉个引号就那么...

第3楼　plp626	发表于 2008-04-13 16:56
银牌会员　发帖 1,020　积分 2,278
没那么麻烦： echo\>.pp365

第4楼　zh159	发表于 2008-04-13 17:27
金牌会员　发帖 1,467　积分 3,687
LZ发的好长 Originally posted by plp626 at 2008-4-13 16:56: 没那么麻烦： echo\>.pp365 我习惯用 echo.>...

第5楼　plp626	发表于 2008-04-13 18:12
银牌会员　发帖 1,020　积分 2,278
Originally posted by zh159 at 2008-4-13 05:27 PM: LZ发的好长我习惯用 echo.>... 你这个命令提示符会提示拒绝访问，我机子是xp5.1