批处理文件名生成工具的改下代码怎样在符号之间插入名称？

@echo off
echo 1、按下“1”，关机
echo 2、按下“2”，重启
echo 3、按下“3”，注销
set "_1=s"&set "_2=l"&set "_3=r"
set /p a=请输入要执行的操作：
call,shutdown /%%_%a%%% /t 5
复制代码

@echo off
:Choice
echo 1、按下“1”，图片
echo 2、按下“2”，软件
echo 3、按下“3”，音乐
echo 4、按下“4”，电影
echo 5、按下“5”，文档
echo 6、按下“6”，星标
echo 7、按下“7”，退出此批处理
set "_1=图片"&set "_2=软件"&set "_3=音乐"&set "_4=电影"&set "_5=文档"&set "_6=星标"
set /p a=请输入要执行的操作：
if %a%==7 exit
if not defined _%a% (
cls
echo 你输入的是“%a%”，输入非法，请输入1-6之间的数字
goto :Choice
)
set "name=_( %%_%a%%% )_%date:~,4%.%date:~5,2%.%date:~8,2%.%time:~,2%%time:~3,2%%time:~6,2%"
call,mshta vbscript:clipboarddata.setdata("text","%name%")(close)
call,set var=%name%
cls
echo 你输入的是“%a%”
echo 字符串“%var%”已经复制到剪贴板
echo 可随意粘贴
goto :Choice
复制代码

@echo off

:Choice

echo 1、按下“1”，图片

echo 2、按下“2”，软件

echo 3、按下“3”，音乐

echo 4、按下“4”，电影

echo 5、按下“5”，文档

echo 6、按下“6”，星标

echo 7、按下“7”，退出此批处理

set "_1=图片"&set "_2=软件"&set "_3=音乐"&set "_4=电影"&set "_5=文档"&set "_6=星标"

set /p a=请输入要执行的操作：

if %a%==1-6 exit（这样子7改成1-6？）

if not defined _%a% (

cls

echo 你输入的是“%a%”，输入非法，请输入1-6之间的数字

goto :Choice

)

set "name=_( %%_%a%%% )_%date:~,4%.%date:~5,2%.%date:~8,2%.%time:~,2%%time:~3,2%%time:~6,2%"

call,mshta vbscript:clipboarddata.setdata("text","%name%")(close)

call,set var=%name%

cls

echo 你输入的是“%a%”

echo 字符串“%var%”已经复制到剪贴板

echo 可随意粘贴

goto :Choice
复制代码

@echo off
:Choice
echo 1、按下“1”，图片
echo 2、按下“2”，软件
echo 3、按下“3”，音乐
echo 4、按下“4”，电影
echo 5、按下“5”，文档
echo 6、按下“6”，星标
echo 7、按下“7”，退出此批处理
set "_1=图片"&set "_2=软件"&set "_3=音乐"&set "_4=电影"&set "_5=文档"&set "_6=星标"
set /p a=请输入要执行的操作：
if %a%==7 exit
if not defined _%a% (
cls
echo 你输入的是“%a%”，输入非法，请输入1-6之间的数字
goto :Choice
)
set "name=_( %%_%a%%% )_%date:~,4%.%date:~5,2%.%date:~8,2%.%time:~,2%%time:~3,2%%time:~6,2%"
call,mshta vbscript:clipboarddata.setdata("text","%name%")(close)
call,set var=%name%
cls
echo 你输入的是“%a%”
echo 字符串“%var%”已经复制到剪贴板
echo 可随意粘贴
exit
复制代码