中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 一个可以颠倒文件名的无聊之作（VBS）。

English/Chinese Fix Translation

作者:

标题: 一个可以颠倒文件名的无聊之作（VBS）。

上一主题 | 下一主题

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『楼主』: 一个可以颠倒文件名的无聊之作（VBS）。使用 LLM 解释/回答一下

'功能：颠倒当前文件夹下的文件名(包括文件夹)，扩展名不变，本身的文件名不会被颠倒。
'不保证不会出现问题，谨慎使用！（本机上测试通过）
on error resume next
set wshshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files
for each file in files
if file.name<>wscript.scriptname then
kzm=fso.GetExtensionName(file)
file.name=replace(file.name,"." & fso.GetExtensionName(file),"")
file.name=StrReverse(file.name) & "." & kzm
else
end if
next
set wjj=fso.getfolder(WshShell.CurrentDirectory)
set wjjs=wjj.subfolders
for each fd in wjjs
fd.name=StrReverse(fd.name)
next
msgbox "已经将当前文件夹下所有文件名颠倒。",48+4096,"提示"

Last edited by jmz573515 on 2006-12-18 at 03:59 PM ]

此帖被 +14 点积分

点击查看详情

2006-12-19 04:34

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

欣赏～～～
真复杂啊～：）

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2006-12-19 04:51

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

9527
银牌会员

努力做坏人

积分 1185
发帖 438
注册 2006-8-28
来自北京
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

那我顺便写个P处理版的，倒序当前目录下所有文件的文件名



@echo off&setlocal

for /f "tokens=*" %%a in ('dir /b /a-d *.*') do call :pp "%%a"

pause

goto :eof

:pp

set "a=%~n1"

:loop

if not defined a goto cc

set "a=%a:~0,-1%"&set "b=%b%%a:~-1%"&goto loop

:cc

echo %b%%~x1      

set b=

goto :eof

Last edited by 9527 on 2006-12-19 at 05:28 AM ]

Then I'll write a P-processing version by the way to reverse the filenames of all files in the current directory



@echo off&setlocal

for /f "tokens=*" %%a in ('dir /b /a-d *.*') do call :pp "%%a"

pause

goto :eof

:pp

set "a=%~n1"

:loop

if not defined a goto cc

set "a=%a:~0,-1%"&set "b=%b%%a:~-1%"&goto loop

:cc

echo %b%%~x1      

set b=

goto :eof

Last edited by 9527 on 2006-12-19 at 05:28 AM ]

此帖被 +10 点积分

点击查看详情

我今后在论坛的目标就是做个超级坏人！！！

2006-12-19 05:15

查看资料发短消息网志 OICQ

(329429)

编辑帖子回复引用回复

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

9527兄，我怎么没成功？原来代码更新了^_^

Last edited by ccwan on 2006-12-19 at 05:31 AM ]

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2006-12-19 05:30

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

vbs里的关键就是



file.name=StrReverse(file.name) & "." & kzm

The key in VBS is



file.name = StrReverse(file.name) & "." & kzm

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-12-19 07:32

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

wudixin96
银牌会员

积分 1928
发帖 931
注册 2007-1-6
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

真是研究的够彻底的。o(∩_∩)o...哈哈。学习了

2007-4-6 21:55

查看资料发短消息网志

编辑帖子回复引用回复

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线