[文件操作] 批处理如何批量删除文件夹名中的汉字后，重名文件夹内容合并

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

2楼

发表于 2017-5-28 23:00 | 只看该作者

本帖最后由 taofan712 于 2017-5-28 23:30 编辑

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /ad') do (
    set "fn=%%~a"
    set "fnw=!fn!"
    for /f "tokens=1-5 delims=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.- " %%1 in ("%%~a") do (
        if not "%%1%%2%%3%%4%%5"=="%%~a" (
            call :change %%1 %%2 %%3 %%4 %%5 
        ) else (
            ren "!fn!" chunhanzi 2>nul || ren "!fn!" chunhanzi_1
        )
    )
)
echo;处理完毕&pause>nul&exit /b

:change
for %%b in (%1 %2 %3 %4 %5) do set "fnw=!fnw:%%b=!"
set "fnw=!fnw: =!"
ren "!fn!" "!fnw!" 2>nul ||ren "!fn!" "!fnw!_1"
goto :eof
复制代码

原以为不会太难，没想到在写的时候发现特殊情况会有很多，所以代码不是很完美。见谅。

2 评分人数

172043209: 感谢感谢技术 + 1
老刘1号: 乐于助人技术 + 1

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

3楼

发表于 2017-5-28 23:09 | 只看该作者

没搞太懂，是删除 . 后面所有的汉字？还是最后的非汉字后面的汉字？

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

4楼

发表于 2017-5-28 23:18 | 只看该作者

本帖最后由 taofan712 于 2017-5-28 23:19 编辑

回复 3# 老刘1号
文件名设想成这种情况：

汉123字
汉字a2
汉2字汉  3字3
—  aa汉#字
汉字
123字
a  2字

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

5楼

发表于 2017-5-28 23:19 | 只看该作者

回复 3# 老刘1号[/

是要删除字符串后面的汉字。字符串里面包括字母，数字，-和.

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

6楼

发表于 2017-5-28 23:21 | 只看该作者

回复 2# taofan712

我测试一下！！

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

7楼

发表于 2017-5-28 23:23 | 只看该作者

回复 4# taofan712

您好，把小数点删除掉了？？

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

8楼

发表于 2017-5-28 23:26 | 只看该作者

需要保留住小数点，如C23-GH3421-34.00023 飞蝗芜湖变成 C23-GH3421-34.00023

刚才的代码把34后面的小数点.也删除了

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

9楼

发表于 2017-5-28 23:30 | 只看该作者

本帖最后由 taofan712 于 2017-5-28 23:33 编辑

回复 7# 172043209

在第六行，abcd那里，找个位置加上小数点就行。

但在以下情况会出现其他问题：
文件名本身就不含有汉字的文件夹数量在2个以上。
除汉字以外剩余的字母数字部分相同的文件夹数量在2个以上。
其他

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

10楼

发表于 2017-5-28 23:33 | 只看该作者

test.vbs

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set ThisFolder=fso.GetFolder(".")
For Each file In thisfolder.Files
	FileBaseName=fso.GetBaseName(File.Name)
	FileExtName=fso.GetExtensionName(File.Name)
	
	[判断] = True
	While [判断]
		If Clng("&H" & Hex(Asc(Right(FileBaseName,1)))) > 255 Then
			FileBaseName=Left(FileBaseName,Len(FileBaseName)-1)
		Else
			[判断]=False
		End If
	Wend
	
	fso.MoveFile file.Path,file.ParentFolder&"\"&FileBaseName&"."&FileExtName
Next
复制代码

1 评分人数

taofan712: 厉害小伙 ~技术 + 1

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

11楼

发表于 2017-5-28 23:35 | 只看该作者

回复 2# taofan712

OK,感谢感谢，测试成功，加了一个符号，可以保留住小数点符号了，想再问一下，如果是想处理当前文件加下子文件名修改一下哪里？

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

12楼

发表于 2017-5-28 23:36 | 只看该作者

回复 11# 172043209

第三行，dir /b /ad改为dir /b /ad /s

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

13楼

发表于 2017-5-28 23:37 | 只看该作者

回复 11# 172043209

测试下我的，存为test.vbs

Rank: 1

帖子: 23
积分: 41
技术: 0
捐助: 0
注册时间: 2017-5-25

14楼

发表于 2017-5-29 00:00 | 只看该作者

回复 13# 老刘1号

大侠，我测试了，你的是删除的文件，不是文件夹，备用，说不一定我也用的上的

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

15楼

发表于 2017-5-29 00:01 | 只看该作者

回复 14# 172043209

……尴尬了，原来是文件夹