中国DOS联盟

:: 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)
echo %%~x*>a.txt
set /p var=<a.txt
echo %var%
ren %%* "%%~x*"||(
echo.Failed.
pause>nul&goto:eof))
echo.Complete.
pause>nul
以上代码为用文件名后缀重命名的批处理，可是美中不足之处在于重命的文件名前总有一个“.”，我利用：
echo %%~x*>a.txt
set /p var=<a.txt
echo %var%
以上代码取值，但是得不到var的值，请教高手，这是什么原因造成的，如何解决