loquat 当前离线
二级士官
评分人数
apang 当前离线
上将
即将 *A*.pdf 全部改成 *A.pdf
TOP
a = "起始字符" b = "终止字符" str = "ABC起始字符DEF终止字符HIJ" m = instr(1,str,a) n = instr(1,str,b) msgbox left(str,m+len(a)-1) & mid(str,n,len(str)-n+1)复制代码
a = "起始字符" b = "终止字符" str = "ABC起始字符DEF终止字符HIJ" m = InStr(1, str, a) n = InStr(1, str, b) If m < n Then MsgBox Left(str, m + Len(a) - 1) & Mid(str, n, Len(str) - n + 1) Else MsgBox Left(str, n + Len(b) - 1) & Mid(str, m, Len(str) - m + 1) End If复制代码
CrLf 当前离线
论坛巡查
@echo off&setlocal enabledelayedexpansion for %%a in (*.*) do ( set "str=%%a" set var=!str:a=" "A:\! for %%b in ("!var:b=.B" "!") do ( if %%~db%%~xb==A:.B set str=!str:A%%~nbB=! ) echo ren "%%a" "!str!" rem 测试确认无误后再把上一行的 echo 去掉 ) pause复制代码
发表于 2013-3-11 15:55
| 
发表于 2013-3-12 00:38
|