[其他] 批处理大小写字母转换

/zhqsystem/zhq

请将文件直接拖放至此批处理上自动执行转换,输出文件名为文本名_转换大(小)写.后缀名
注:特殊符号没有测试谨慎使用

 
@echo off&color 0e
setlocal enabledelayedexpansion
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"
set "n_lss=0"
set "n=0"
for /f "delims=" %%i in ('type "%1"') do (
 set "str=%%i"
 for %%j in (%letter_lss%) do (
  set "str=!str:%%j=%%j!"
  set/a "n_lss+=1"
  if !n_lss! equ 26 (
   if !n! lss 1 (
    echo,首次进入清理同名数据重建_转换大写
    echo,!str!>%~n1_转换大写%~x1
    set/a n+=1
   ) else if !n! geq 1 (
    set/a n+=1
    echo,第 !n! 次执行导出操作
    echo=!str!>>%~n1_转换大写%~x1
   )
   set "n_lss=0"
  )
 )
)
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"
set "n_gtr=0"
set "n=0"
for /f "delims=" %%i in ('type "%1"') do (
 set "str=%%i"
 for %%j in (%letter_gtr%) do (
  set "str=!str:%%j=%%j!"
  set/a "n_gtr+=1"
  if !n_gtr! equ 26 (
   if !n! lss 1 (
    echo=首次进入清理同名数据重建_转换小写
    echo=!str!>%~n1_转换小写%~x1
    set/a n+=1
   ) else if !n! geq 1 (
    set/a n+=1
    echo,第 !n! 次执行导出操作
    echo=!str!>>%~n1_转换小写%~x1
   )
   set "n_gtr=0"
  )
 )
)
pause
复制代码

/zhqsystem/zhq

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

/zhqsystem/zhq

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

/zhqsystem/zhq

回复 6# pcl_test
多谢指导,正在研究此段代码,学习中...

/zhqsystem/zhq

回复 9# 依山居
这个怎么用,不是标准批处理语法一句没看懂,无语了

/zhqsystem/zhq

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