Board logo

标题: [其他] 批处理大小写字母转换 [打印本页]

作者: /zhqsystem/zhq    时间: 2015-10-16 02:26     标题: 批处理大小写字母转换

本帖最后由 pcl_test 于 2015-10-17 10:15 编辑

请将文件直接拖放至此批处理上自动执行转换,输出文件名为文本名_转换大(小)写.后缀名
注:特殊符号没有测试谨慎使用
  1. @echo off&color 0e
  2. setlocal enabledelayedexpansion
  3. set "letter_lss=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
  4. set "n_lss=0"
  5. set "n=0"
  6. for /f "delims=" %%i in ('type "%1"') do (
  7. set "str=%%i"
  8. for %%j in (%letter_lss%) do (
  9.   set "str=!str:%%j=%%j!"
  10.   set/a "n_lss+=1"
  11.   if !n_lss! equ 26 (
  12.    if !n! lss 1 (
  13.     echo,首次进入清理同名数据重建_转换大写
  14.     echo,!str!>%~n1_转换大写%~x1
  15.     set/a n+=1
  16.    ) else if !n! geq 1 (
  17.     set/a n+=1
  18.     echo,第 !n! 次执行导出操作
  19.     echo=!str!>>%~n1_转换大写%~x1
  20.    )
  21.    set "n_lss=0"
  22.   )
  23. )
  24. )
  25. set "letter_gtr=a b c d e f g h i j k l m n o p q r s t u v w x y z"
  26. set "n_gtr=0"
  27. set "n=0"
  28. for /f "delims=" %%i in ('type "%1"') do (
  29. set "str=%%i"
  30. for %%j in (%letter_gtr%) do (
  31.   set "str=!str:%%j=%%j!"
  32.   set/a "n_gtr+=1"
  33.   if !n_gtr! equ 26 (
  34.    if !n! lss 1 (
  35.     echo=首次进入清理同名数据重建_转换小写
  36.     echo=!str!>%~n1_转换小写%~x1
  37.     set/a n+=1
  38.    ) else if !n! geq 1 (
  39.     set/a n+=1
  40.     echo,第 !n! 次执行导出操作
  41.     echo=!str!>>%~n1_转换小写%~x1
  42.    )
  43.    set "n_gtr=0"
  44.   )
  45. )
  46. )
  47. pause
复制代码

作者: pcl_test    时间: 2015-10-16 10:36

发错版块了,应发“原创BAT代码”或“转载BAT代码”版块
作者: /zhqsystem/zhq    时间: 2015-10-16 13:06

回复 2# pcl_test
原创代码区不适合因为提取路径时带空格时有错误,毕竟没有实际全部测试,权限也不够。涉及到版权,不可能每个论坛都去找有没有发过
转载区更不适合,因为研究了一晚上,而实际链接地址和作者我去找谁,只能发到求助讨论板块
作者: pcl_test    时间: 2015-10-16 13:33

本帖最后由 pcl_test 于 2015-10-16 13:39 编辑

回复 3# /zhqsystem/zhq

转换方法不是原创,但你加入了自己意愿的一些交互进而加工,所以也可视为半原创;
但是我要问,你是要分享代码,还是希望别人帮你完善代码呢?从你的标题和描述,我现在是意会不出来了
作者: /zhqsystem/zhq    时间: 2015-10-16 21:16

回复 4# pcl_test
主要还是希望各位大神挑错误,进行完善毕竟在这里不只是要分享,也需要学习,可以进行共赢(共同学习),因为里边错误也有很多,只是不知道怎么完善了
像%1中的路径遇到空格目录居然就提示出错,还有文本中变量冲突时会替换代码中的执行变量,这些都是我解决不了的错误,希望大家帮忙完善,如果觉得没错误也可以留着备用
代码的优点就是利用26个英文字母进行循环替换,替换途中会每行替换26次(如果少于26个英文字母随自己的意愿改个数字和字母变量就完成了),取值最后一次的值完整取出来
作者: pcl_test    时间: 2015-10-17 17:59

本帖最后由 pcl_test 于 2015-10-17 20:45 编辑

回复 5# /zhqsystem/zhq

稍微修改下,转换方法没变,可处理字符串或是文件,加入了参数模式,提供了三种执行方式,然并卵……
  1. @echo off
  2. call :字母大小写互转 "%~1" %~2 %~3
  3. pause&exit
  4. :字母大小写互转
  5. setlocal enabledelayedexpansion
  6. if "%~1" equ "" (
  7.     echo;用法:
  8.     echo;   1、call :字母大小写互转 "字符串或文件路径" [/U^|/L] [/F]
  9.     echo;   2、支持外部调用    字母大小写互转.bat "字符串或文件路径" [/U^|/L] [/F]
  10.     echo;   3、支持拖放文件到批处理图标上执行转换
  11.     echo;   /U    转为大写
  12.     echo;   /L    转为小写
  13.     echo;   /F    处理文件
  14.     goto :eof
  15. ) else (
  16.     if "%~2" equ "" (
  17.         set /p c=请选择转化模式(U=转为大写,L=转为小写):
  18.         if exist "%~1" (
  19.             call :字母大小写互转 "%~1" /!c! /F
  20.         ) else call :字母大小写互转 "%~1" /!c!
  21.         goto :eof
  22.     ) else (
  23.         set "#2=%~2"
  24.         set "#2=!#2:-=/!"
  25.         if "%~3" equ "" (
  26.             if /i "!#2!" equ "/U" (goto :U) else if /i "!#2!" equ "/L" (goto :L)
  27.         ) else (
  28.             set "#3=%~3"
  29.             set "#3=!#3:-=/!"
  30.             if /i "!#3!" equ "/F" (
  31.                 if /i "!#2!" equ "/U" (goto :U) else if /i "!#2!" equ "/L" (goto :L)
  32.             ) else (
  33.                 if /i "!#3!" equ "/U" (
  34.                     if /i "!#2!" equ "/F" (goto :U)
  35.                 ) else if /i "!#3!" equ "/L" (
  36.                     if /i "!#2!" equ "/F" (goto :L)
  37.                 )
  38.             )
  39.         )
  40.         echo;参数有误!&goto :eof
  41.     )
  42. )
  43. :U
  44. set "var=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
  45. goto :Convert
  46. :L
  47. set "var=a b c d e f g h i j k l m n o p q r s t u v w x y z"
  48. :Convert
  49. set "str=%~1"
  50. if "%~3" equ "" (
  51.     for %%a in (%var%) do set "str=!str:%%a=%%a!"
  52.     echo;!str!
  53. ) else (
  54.     (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%~1"') do (
  55.         set "str=%%b"
  56.         if not defined str (echo;) else (
  57.             for %%a in (%var%) do set "str=!str:%%a=%%a!"
  58.             echo;!str!
  59.         )
  60.     ))>"%~dp1new_%~nx1"
  61. )
  62. goto :eof
复制代码

作者: /zhqsystem/zhq    时间: 2015-10-17 22:29

回复 6# pcl_test
多谢指导,正在研究此段代码,学习中...
作者: bailong360    时间: 2015-10-18 22:34

  1. @echo off >nul 3>"%~dp1U_%~nx1"
  2. setlocal enabledelayedexpansion
  3. set list=aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ
  4. for /f "delims=" %%i in (%~s1) do (
  5.     set "strU=%%i"
  6.     set "strD=%%i"
  7.     for %%i in (%list%) do (
  8.         set let=%%i
  9.         for /f "tokens=1,2" %%i in ("!let:~,1! !let:~-1!") do (
  10.             set "strU=!strU:%%j=%%j!"
  11.             set "strD=!strD:%%i=%%i!"
  12.         )
  13.     )
  14.     echo;!strU!
  15.     >>"%~dp1D_%~nx1" echo !strD!
  16. )
复制代码
忘记在哪里看到过一段大小写转换的代码,非常巧妙
实现起来大概就是这个样子,利用的是批处理在替换时不区分大小写的特性
作者: 依山居    时间: 2015-10-21 22:42

本帖最后由 依山居 于 2015-10-21 22:43 编辑

python 练手
  1. f=open("a.txt","r")
  2. txt=f.read()
  3. uppertxt=txt.upper()
复制代码

作者: /zhqsystem/zhq    时间: 2015-10-21 23:09

回复 9# 依山居
这个怎么用,不是标准批处理语法一句没看懂,无语了
作者: 依山居    时间: 2015-10-21 23:19

回复 10# /zhqsystem/zhq


    upper是python字符串对象的方法。

存为xx.py 用PYTHON IDLE 打开。
F5 运行。
uppertxt得到就是被转大写的内容。
作者: /zhqsystem/zhq    时间: 2015-10-21 23:54

回复 11# 依山居  
不学了这个太难了,还是不会,而且是第一次知道有这么个程序(ini xml和inf至少还能看懂那么一点),这个超出太多了一下消化不了
作者: 依山居    时间: 2015-10-22 00:06

回复 12# /zhqsystem/zhq


    不难。一样也是自学可以入门。
作者: CrLf    时间: 2015-10-22 00:40

回复 12# /zhqsystem/zhq


    如果你平时关注的是解决问题而非语言本身,时间久了自然都会接触一点...
作者: 依山居    时间: 2015-10-22 02:36

这是自己写的python 。只是用调用了string自带的字母表。
  1. import string
  2. lowercase=string.ascii_lowercase
  3. uppercase=string.ascii_uppercase
  4. f=open("a.txt","r")
  5. def l2u():
  6.     txt=f.read()
  7.     for r in range(0,26,1):
  8.         txt=txt.replace(lowercase[r],uppercase[r])
  9.     return(txt)
  10. def u2l():
  11.     txt=f.read()
  12.     for r in range(0,26,1):
  13.         txt=txt.replace(uppercase[r],lowercase[r])
  14.     return(txt)
复制代码

作者: CrLf    时间: 2015-10-22 03:04

试着写写 python
  1. str='asdfsD1df'
  2. def l2u(str):
  3. ret=''
  4. for c in str:
  5. ret += chr(ord(c)&(0xff^0x20)) if c.isalpha() else c;
  6. return ret
  7. def u2l(str):
  8. ret=''
  9. for c in str:
  10. ret += chr(ord(c)|0x20) if c.isalpha() else c;
  11. return ret
  12. print (l2u(str))
  13. print (u2l(str))
复制代码

作者: 依山居    时间: 2015-10-22 11:51

回复 16# CrLf


    解释一下,0xff^0x20
谢谢。
作者: 依山居    时间: 2015-10-22 12:54

回复 16# CrLf


    其实是ret += chr(ord(c)&(0xff^0x20)) if c.isalpha() else c 整行语法我没看懂。
作者: pcl_test    时间: 2015-10-22 13:34

回复 18# 依山居

python一种类三元表达式
常规语法是这样
if (c.isalpha()): ret += chr(ord(c)&223)
else: ret += c

另几种方式
ret += c.isalpha() and chr(ord(c)&223) or c
ret += [c,chr(ord(c)&223)][c.isalpha()]
作者: CrLf    时间: 2015-10-22 13:49

呃,套用了 c 的算法:
  1. 'a' == 0x60
  2. 'A' == 0x40
  3. 0xff^0x20 == 0b11111011
  4. 0x20 == 0b00000100
  5. 'a'  & (0xff^0x20) = 'A'
  6. 'A'  | 0x20 = 'a'
复制代码

作者: 依山居    时间: 2015-10-22 15:14

回复 20# CrLf


    我想要在ret += chr(ord(c)|0x20) if c.isalpha() else c;
下面加一行print(ret),怎么加?
作者: CrLf    时间: 2015-10-22 20:36

回复 21# 依山居


    啥意思,直接加上不就好了
作者: 依山居    时间: 2015-10-22 20:41

回复 22# CrLf


    我加的时候报错了。
作者: 依山居    时间: 2015-10-22 20:42

好了。抱歉,可以是我之前没注意到我哪里弄错了。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2