中国DOS联盟

qwe1234567斑竹，您刚才发的2000环境下的程序代码怎么不见了？

set a=%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2% ren *.txt *%a%.txt
你如果想把TEST.TXT这个文件修改，只要把*.txt换成test.txt就可以，你如果把这个文件放在你需要改文件名的文件夹里就可以不要路径，还可以改所有的TXT文件名！

[ Last edited by qwe1234567 on 2006-10-15 at 10:57 ]

非常感谢，周一我看主管到底还有还需要其他特殊功能~~~

参照qwe1234567版主2K的修改一下：
XP
@echo off set datetime=%~n1%date:~0,4%%date:~5,2%%date:~8,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 echo %1 %datetime%
2K
@echo off set datetime=%~n1%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 echo %1 %datetime%
把“echo”改为“copy”、“ren”...
运行方式均为：bat *.txt（带扩展名）

综合zxcv、qwe1234567版主，DOS.BAT内容
@echo off if "%1"=="/?" echo 将目标文件名重命名为“源文件名+当前日期+@+时间” &&echo.&&echo 语法: DOS filename &&PING/n 4 127.1>NUL &&exit if "%1"=="" echo 将目标文件名重命名为“源文件名+当前日期+@+时间” &&echo.&&echo 语法: DOS filename &&PING/n 4 127.1>NUL &&exit ver|find /i "xp">nul if not errorlevel 1 set datetime=%~n1%date:~0,4%%date:~5,2%%date:~8,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 ver|find /i "2000">nul if not errorlevel 1 set datetime=%~n1%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 if "%datetime%"=="" echo 此程序必须在Windows xp或Windows 2000系统上运行 &&ping/n 4 127.1>nul &&exit echo %1 %datetime%

On Error Resume Next Set objArgs = WScript.Arguments If objArgs.Count < 1 Then WScript.Echo "用鼠标把文件拖到该文件上或带参数运行!" WScript.Quit End If For Each strFile In objArgs strNewFile = Mid(strFile,1,InStrRev(strFile,".") _ - 1) & Replace(Date,"-","") & "@" _ & Replace(Time,":","") & _ Mid(strFile,InStrRev(strFile,".") ) If Len(Trim(strNewFile)) = 0 Then strNewFile = strFile & Replace(Date,"-","") & _ "@" & Replace(Time,":","") End If ReName strFile , strNewFile Next Sub ReName (strFile,strNewFile) WScript.Echo strFile & vbLf & strNewFile CreateObject("Scripting.FileSystemObject") _ .MoveFile strFile,strNewFile End Sub
拷贝到SendTo,然后把要改的文件全部选定发送到...就行了。
或者在bat里面带多参数调用,可以更改ReName过程下第一句的vblf为","用来显示更改明细以便形成日志.

我这里只有不到上午11点，怎么你们都
2006-10-15 13:00了，
版主啊，服务器时间是不是有问题啊

各位高手
刚才主管跟我说是在2000 server en 环境下测试的,我copy了下date与time
C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter the new date: (mm-dd-yy)

C:\Documents and Settings\Administrator>time
The current time is: 10:44:17.73
Enter the new time:

fastslz,您能登下MSN吗,我想请教你些问题,万分感谢

@echo off
set /p yy=欲处理文件的路径：
set /p uu=欲处理文件的名称：
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%A%%B%%C
for /F "tokens=1-2 delims=/: " %%A in ('time/T') do set TIME=%%A%%B
for %%i in (%yy%:\%uu%) do copy %%i %yy%:\%%~ni%DATE%@%TIME%.txt

借用了fastslz的代码，不过加上如上几句，可以处理任何一个盘符的文件！另：欲处理文件的路径： 在显示这句时，盘符不用输入冒号的！

Originally posted by samzj at 2006-10-16 22:53:
各位高手
刚才主管跟我说是在2000 server en 环境下测试的,我copy了下date与time
C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter t ...

英文版的时间顺序不一样的
如果用我的代码把
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%A%%B%%C

替换成
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%C%%B%%A

也就换了一下顺序，这个容易掌握

这样的问题最好

echo %time%
echo %date%

把这两个显示发上来

谢谢各位的热心帮助~~~~
今天在qwe1234567斑竹的远程指导下,最终暂时解决了这个问题,
测试环境 2000 server en

C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter the new date: (mm-dd-yy)

C:\Documents and Settings\Administrator>time
The current time is: 15:56:45.35
Enter the new time:


set a=%date:~10,4%%date:~4,2%%date:~7,2%@%time:~0,2%%time:~3,2%%time:~6,2%
copy c:\test.bat test%a%.bat

最终成功,谢谢以上所有回贴帮忙的人!!!!

以及还要十分感谢fastslz的耐心讲解~~~~~~等等等等