|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第 16 楼』:
使用 LLM 解释/回答一下
Originally posted by pinghu at 2008-2-5 21:48:
看来各位还未重视我的帖子，我想是因为大家认为难就难在重命名上面，移动文件看起来很容易，等你亲自测试的时候就会发现，当选中若干文件时， ...
@echo off
call :%* 2>nul || goto setup
goto :eof
:Sub1
rem 移动到父目录
set "str=%~nx1"
:loop
if not exist "..\%str%" goto Next
set "str=%~n1_New%~x1"
goto loop
:Next
move "%~nx1" "..\%str%"
goto :eof
:Sub2
rem 脱壳
rem 自己完成
goto :eof
:setup
reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\Folder\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
上面只是个演示脚本，双击后就可自动安装了。
注意setup部分只在文件上面添加"移动至父目录"功能，并未对文件夹做处理,这个可以自己添加.
另外，上面的脚本也没有对同时选中多个文件的同步问题进行处理,可能导致会出现同名覆盖的问题,对于这种情况,可以适当地利用临时文件设置一下标识,使每个实例运行的时候能根据情况决定是否拷贝。例如可以向某个文件中写入当前处理的文件名,记得用覆盖模式，然后延时一段时间，接着读取标志文件，文件名对应得到的就执行移动工作,移动完后更改标志文件，对不上的则继续等待.继续查询标志文件。...
用纯粹的bat来完成真的是没多大意义，如果可能，我建议你还是尝试一下vbs,会简单得多。
另外给你几个链接可能有用:
SendTo+批处理实用小工具--加强版发送到
查找电脑中，所有的bat文件，并复制到当前目录？
批处理如何添加右键菜单?
SendTo+(VBS版)
|
|
 2008-2-6 12:44 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-2-6 12:54 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 18 楼』:
使用 LLM 解释/回答一下
问题得到初步解决，可以松一口气了！
感谢3742668的支持，我从中学习了sub1和reg add 和设置str变量的用法
ありがとございます！！
|
|
|
2008-2-6 15:06 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 19 楼』:
使用 LLM 解释/回答一下
3742668的脚本运行时有个问题
假设我选的文件名为1.txt，往上移动，上级目录出现了一个1.txt文件
我重建1.txt文件，再往上移动，上级目录出现了1_New.txt文件
我再次新建1.txt文件，再往上移动，失败！！
|
|
|
2008-2-6 18:10 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
|
|
2008-2-6 18:24 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 21 楼』:
使用 LLM 解释/回答一下
我把代码改进了一下，解决了死循环
@echo off
call :%* 2>nul || goto setup
goto :eof
:Sub1
rem 移动到父目录
set "str=%~nx1"
set /a counter=1
:loop
if not exist "..\%str%" goto Next
set "str=%~n1_New%counter%%~x1"
set /a counter+=1
goto loop
:Next
set /a counter=
move "%~nx1" "..\%str%"
goto :eof
:Sub2
rem 脱壳
rem 自己完成
goto :eof
:setup
reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\Folder\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
可遇到文件夹怎么办呢？
|
|
|
2008-2-6 18:42 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
|
|
2008-2-6 21:15 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 23 楼』:
大侠帮忙看看，sub2部分哪里语法不对
使用 LLM 解释/回答一下
@echo off
call :%* 2>nul || goto setup
goto :eof
:Sub1
rem 移动到父目录
set "str=%~nx1"
set /a counter=1
:loop
if not exist "..\%str%" goto Next
set "str=%~n1_New%counter%%~x1"
set /a counter+=1
goto loop
:Next
set /a counter=
move "%~nx1" "..\%str%"
goto :eof
:Sub2
rem 脱壳
setlocal enabledelayedexpansion
set /a counter=1
cd /d "%1"
for /f "delims=" %%i in (*.*) do (
if not exist "..\%%~nxi" goto Next
:loop
set "str=%%~ni_New!counter!%%~xi"
set /a counter+=1
if not exist "..\!str!" goto Next
goto loop
:Next
if "!counter!" equ "1" (move "%%i" "..\%%~nxi") else move "%%i" "..\!str!"
set /a counter=1)
set counter=
goto :eof
:setup
reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\directory\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\directory\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
经测试，sub1的功能可以支持到所有选定的文件和文件夹，并保证重命名的可靠性，只是sub2还有不对的地方，望大家帮忙
到底错在哪里呢，我写这个sub2头都大了，望大家挑错
|
|
|
2008-2-6 21:54 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
|
|
2008-2-7 02:16 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第 25 楼』:
使用 LLM 解释/回答一下
既然有sub1了，何必还要重写那么多代码呢？
还是建议用vbs或者其他更严谨的脚本来实现。
Last edited by 3742668 on 2008-2-7 at 01:26 PM ]
|
|
|
2008-2-7 02:33 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 26 楼』:
使用 LLM 解释/回答一下
vbs 我不会，直会用批处理，楼上的脚本经测试，两个功能都不行啊，怎么回事
到底我写的Sub2错哪了
|
|
|
2008-2-7 12:28 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
 『第 27 楼』:
使用 LLM 解释/回答一下
Sorry,由于没有测试环境，所以25楼的代码中有不少错误，包括逻辑上的错误以及语法上的错误。
呵呵，太久没写过了，手都生了。试试下面这个:
@echo off
call :%* 2>nul || goto setup
goto :eof
:Sub1
rem 移动到父目录
if not defined str set "str=%~nx1"
if not exist "..\%~nx1" (move "%str%" "..\%~nx1" && set "str=" && goto :eof)
call :Sub1 "%~n1_New%~x1"
goto :eof
:Sub2
rem 脱壳
pushd "%~1"
for %%i in (*.*) do call :Sub1 "%%~dpnxi"
popd
rd "%~1"
goto :eof
:setup
reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\Folder\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
建议一次性大批量选定操作目标测试一下，看看是否会存在同步方面的问题。另外可以在move后面加上写入日志的功能。
|
|
|
2008-2-7 13:07 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 28 楼』:
使用 LLM 解释/回答一下
反复试验了几次发现“移动到父目录”功能能支持到所有文件和文件夹
“脱壳”功能只能应用到所选文件夹里的文件，无法应用到所选文件夹里的文件夹
|
|
|
2008-2-7 17:13 |
|
|
pinghu
中级用户
积分 307
发帖 130
注册 2008-2-1
状态 离线
|
『第 29 楼』:
使用 LLM 解释/回答一下
上述代码加上
reg add "hkcr\Folder\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
方能移动目录
|
|
|
2008-2-7 18:32 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第 30 楼』:
使用 LLM 解释/回答一下
Originally posted by pinghu at 2008-2-7 17:13:
反复试验了几次发现“移动到父目录”功能能支持到所有文件和文件夹
“脱壳”功能只能应用到所选文件夹里的文件，无法应用到所选文件夹里的文件夹
我只负责给你提示和框架，具体首尾还是根据你自己的想法自己写吧。例如如上面提到过的，建议你加上日志功能，多试试特大数量的操作等等。
另外，如果想是脱壳功能应用到文件夹，可以自己尝试用dir /b来解决。
建议你自己从头到尾按照自己的想法重新自己写一遍，那样才能有收获，这也就是论坛的意义所在了。
|
|
|
2008-2-7 19:00 |
|
