老刘1号

回复 11# 172043209


    测试下我的，存为test.vbs

taofan712

回复 11# 172043209


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

172043209

回复 2# taofan712


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

老刘1号

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
复制代码

taofan712

回复 7# 172043209


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


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

172043209

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

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

172043209

回复 4# taofan712


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

172043209

回复 2# taofan712


   我测试一下！！

172043209

回复 3# 老刘1号[/


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

taofan712

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

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

老刘1号

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

taofan712

@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
复制代码

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