[文件操作] 如何用批处理截取文件名的前五位字符？

wangze78

遇到一难题，有文件需要进行归档备份，文件名均为8位的数字组成（例如：87159336、87159756、87160981、87131582）；请问如何使用批处理自动实现
第一、截取文件名的前5位，建立成文件夹（如：建立文件夹87159、87160、87131）
第二、将文件名前五位与建立的文件夹名称一样的文件存放到对应的文件夹中
求高人指点，谢谢

Batcher

这些文件都没有后缀名？

hanyeguxing

例如,不包括隐藏属性:

@echo off&setlocal enableDelayedExpansion
2>nul (for %%a in (*) do if "%%~xa"=="" set a=%%a&md !a:~0,5!&move "%%a" !a:~0,5!)
复制代码

wangze78

这些文件都没有后缀名？
Batcher 发表于 2011-5-9 14:34

这些文件都没有后缀名的。

wangze78

非常感谢帮助，我试了下，的确不错，谢谢！
另外有两个问题：
2>nul  和 "%%~xa"==""  如何理解？

hanyeguxing

5# wangze78



2>nul  屏蔽md 创建已存在目录的错误返回
"%%~xa"==""  判断是否无扩展名，主要用来排除批处理自身，也排除其他文件类型。（要求文件名中不能有点.）

wangze78

非常受教，感谢，感谢！

wangze78

请教版主，我按照你的方法做了如下脚本，但是向网络上拷贝的时候，拷贝不成功啊
脚本如下：

ECHO **** READ IP
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i

@ECHO OFF&setlocal enableDelayedExpansion   
set   file=%date:~0,4%%date:~5,2%%date:~8,2%
set   name=%date:~0,4%%date:~5,2%
set   d=%date%
set   t=%time:~0,-3%

echo *****     network
if exist S: net use S: /d /y > NUL:
if exist T: net use T: /d /y > NUL:

net use S: \\192.168.113.240\transfer_record  "manta" /user:"mantauser"
IF ERRORLEVEL 1 goto errormsg
net use T: \\192.168.113.240\epat_data  "manta" /user:"mantauser"
IF ERRORLEVEL 1 goto errormsg

if exist C:\ETT\ecelltest08 set equip=ecelltest08&goto Ecell08
goto end

:ecell08
2>nul (for %%a in (d:\正常代码\*.*) do if "%%~xa"==""  set a=%%a&md T:\testcell\ecelltest08\正常代码\!a:~0,5!&copy "%%a" T:\testcell\ecelltest08\正常代码\!a:~0,5!)
xcopy D:\正常代码\*.* d:\backup\%name%\正常代码\ /s /y
rem xcopy D:\故障码\*.* T:\testcell\ecelltest08\%name%\ /s /y
IF ERRORLEVEL 1 goto end
rem erase D:\正常代码\ /s /f /q

xcopy D:\异常代码\*.* d:\backup\%name%\异常代码\ /s /y
2>nul (for %%a in (d:\异常代码\*.*) do if "%%~xa"=="" set a=%%a&md T:\testcell\ecelltest08\异常代码\!a:~0,5!&move "%%a" T:\testcell\ecelltest08\异常代码\!a:~0,5!)

rem xcopy D:\故障码\*.* T:\testcell\ecelltest08\%name%\ /s /y
IF ERRORLEVEL 1 goto end
rem erase D:\正常代码\ /s /f /q

echo %d% %t% ***%equip% IP:%IP%***  ecelltest08_dataupdate is finish!   >>S:\ecelltest08.log
goto end
复制代码

运行结果是：文件拷贝到T:\testcell\ecelltest08 不成功，但是拷贝到d盘的backup没问题；
为什么啊？

wangze78

版主帮忙看看啊

wangze78

怎么没人回话啊

missll

net use S: \\192.168.113.240\transfer_record  "manta" /user:"mantauser"


这命令对么。还是我理解有错误呢?
首先是建立一个管道 IPC$ 或者 ADMIN$
然后才能影射磁盘

E:\>net use \\10.0.123.100\admin$ xxxxx /u:Administrator
命令成功完成。
E:\>net use z: \\10.0.123.100\c$
命令成功完成。


IF ERRORLEVEL 1 goto errormsg   还是  IF  %ERRORLEVEL% 1 goto errormsg  ???

紫林阁主

回复 6# hanyeguxing


    大神求教，您这个是判断文件无格式的，那么我有类似的是.jpg文件的应该怎么改呢？求指点。

kangkang

回复 6# hanyeguxing


   你好，大侠。  如下，我也复制了代码，试了下。但 就提示，请按任意键继续。然后 就没有然后了

@echo off&setlocal enableDelayedExpansion
2>nul (for %%a in (*) do if "%%~xa"=="" set a=%%a&md !a:~0,6!&move "%%a" !a:~0,6!)
pause
exit