|
samzj
初级用户
积分 30
发帖 14
注册 2006-10-15
状态 离线
|
『第
16 楼』:
qwe1234567斑竹，您刚才发的2000环境下的程序代码怎么不见了？
|
|
 2006-10-15 10:55 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
『第
17 楼』:
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 ]
|
我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛
论坛新手必读，所有人的基本行为准则
刷QQ空间人气、留言的小软件 |
|
|
2006-10-15 10:56 |
|
|
samzj
初级用户
积分 30
发帖 14
注册 2006-10-15
状态 离线
|
『第
18 楼』:
非常感谢，周一我看主管到底还有还需要其他特殊功能~~~
|
|
|
2006-10-15 11:00 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
19 楼』:
参照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（带扩展名）
|
|
|
2006-10-15 11:00 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
20 楼』:
综合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%
|
第一高手 第二高手
我的小站
 |
|
|
2006-10-15 12:18 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第
21 楼』:
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为","用来显示更改明细以便形成日志.
|
|
|
2006-10-15 13:00 |
|
|
milertom
初级用户
积分 28
发帖 11
注册 2006-10-12
状态 离线
|
『第
22 楼』:
我这里只有不到上午11点，怎么你们都
2006-10-15 13:00了，
版主啊，服务器时间是不是有问题啊
|
|
|
2006-10-15 22:51 |
|
|
samzj
初级用户
积分 30
发帖 14
注册 2006-10-15
状态 离线
|
『第
23 楼』:
各位高手
刚才主管跟我说是在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吗,我想请教你些问题,万分感谢
|
|
|
2006-10-16 22:53 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
|
|
2006-10-16 23:04 |
|
|
maya0su
中级用户
积分 241
发帖 131
注册 2005-9-28
状态 离线
|
『第
25 楼』:
@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的代码，不过加上如上几句，可以处理任何一个盘符的文件！另：欲处理文件的路径： 在显示这句时，盘符不用输入冒号的！
|
房东说：这娃是个好孩子！ |
|
|
2006-10-16 23:13 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
26 楼』:
| Quote: | 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
也就换了一下顺序，这个容易掌握
|
第一高手 第二高手
我的小站
|
|
|
2006-10-17 00:01 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
27 楼』:
这样的问题最好
echo %time%
echo %date%
把这两个显示发上来
|
|
|
2006-10-17 01:09 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
|
|
2006-10-17 02:21 |
|
|
samzj
初级用户
积分 30
发帖 14
注册 2006-10-15
状态 离线
|
『第
29 楼』:
谢谢各位的热心帮助~~~~
今天在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
最终成功,谢谢以上所有回贴帮忙的人!!!!
|
|
|
2006-10-17 03:58 |
|
|
samzj
初级用户
积分 30
发帖 14
注册 2006-10-15
状态 离线
|
『第
30 楼』:
以及还要十分感谢fastslz的耐心讲解~~~~~~等等等等
|
|
|
2006-10-17 03:59 |
|
