中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 05:59 		共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,253 会员排行
DOS批处理 & 脚本技术（批处理室） » [求助]怎么在这段代码中加入删除文件名[已解决]
可打印版本 　824 / 11
第1楼　meiyongderen 发表于 2008-04-20 22:48
初级用户　发帖 28　积分 72
[求助]怎么在这段代码中加入删除文件名[已解决]
移动文件名是这样的 123-PROFILE1.nc 我要在下面这段代码中加入删除-这个符号以后不管多少字的代码,.如果文件名是123_PROFILE1.nc 就把_这个符号也改成- 扩展名不动

@echo off
set num=0
for /f "delims=" %%i in ('dir /a-d /b e:\FIM\*.nc') do (
if not exist "e:\yiming\%%i" (
copy "e:\FIM\%%i" e:\yiming>nul
) else call :copy_nc "e:\FIM\%%i" "%%~ni" %%~xi
)


:copy_NC
set file_n=%2
set "file_n=%file_n:~1,-1%"
set file_x=%3
set /a num+=1
if not exist "e:\yiming\%file_n%%num%%file_x%" (
copy %1 "e:\yiming\%file_n%%num%%file_x%">nul
) else call :copy_nc %1 "%file_n%" %file_x%
set num=0

[ Last edited by meiyongderen on 2008-4-22 at 01:43 AM ]
第2楼　plp626 发表于 2008-04-20 23:05
银牌会员　发帖 1,020　积分 2,278
dos学了一个小时能达到如此境界的必是人-----精。^_^
第3楼　slore 发表于 2008-04-20 23:15
铂金会员　发帖 2,478　积分 5,212
用-分割的方式不行麽？
第4楼　meiyongderen 发表于 2008-04-20 23:24
初级用户　发帖 28　积分 72
其实这段代码是抄来的,.学一个小时有那么精就好了,.呵呵,..
第5楼　meiyongderen 发表于 2008-04-21 11:18
初级用户　发帖 28　积分 72
求各位大哥大姐帮帮忙写一下,.....
第6楼　bat-zw 发表于 2008-04-21 11:25
金牌会员　发帖 1,276　积分 3,105
请描述清楚点，说实话不是不帮你，我看你的问题看得一头雾水，不知道楼主要达到什么效果？
第7楼　meiyongderen 发表于 2008-04-21 15:14
初级用户　发帖 28　积分 72
比如文件名是这样的 123-PROFILE1.nc 5678-PROFILE1.nc 我要删除-这个符号以后不管多少字的代码,. -前面的不动,..如果文件名是123_PROFILE1.nc 就把_这个符号也改成- 扩展名不动
第8楼　abcd 发表于 2008-04-21 16:18
银牌会员　发帖 739　积分 1,436
123_PROFILE1.nc改成-后，也需要舍去-后面的吗？
第9楼　meiyongderen 发表于 2008-04-21 17:40
初级用户　发帖 28　积分 72
是的,.......就是这个意思,..就是 --后面的字都删除,不要删除扩展名就行
第10楼　meiyongderen 发表于 2008-04-21 19:56
初级用户　发帖 28　积分 72
有人帮个忙吗
第11楼　terse 发表于 2008-04-21 20:21
银牌会员　发帖 946　积分 2,404
这样处理不一样吗
@echo off
for /f "delims=-_" %%i in ('dir /b *.nc') do echo %%i-.nc
pause
第12楼　meiyongderen 发表于 2008-04-21 23:11
初级用户　发帖 28　积分 72
谢谢terse大哥帮我解答,..可能理解错了我的意思,..文件还没没有改名,...
就是从FIN文件移动到YIMING文件下并改名,.,上面那段代码是遇到同名的会自动累加的
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023