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

@echo off
call :字母大小写互转 "%~1" %~2 %~3
pause&exit
:字母大小写互转
setlocal enabledelayedexpansion
if "%~1" equ "" (
    echo;用法:
    echo;   1、call :字母大小写互转 "字符串或文件路径" [/U^|/L] [/F]
    echo;   2、支持外部调用    字母大小写互转.bat "字符串或文件路径" [/U^|/L] [/F]
    echo;   3、支持拖放文件到批处理图标上执行转换
    echo;   /U    转为大写
    echo;   /L    转为小写
    echo;   /F    处理文件
    goto :eof
) else (
    if "%~2" equ "" (
        set /p c=请选择转化模式（U=转为大写，L=转为小写）:
        if exist "%~1" (
            call :字母大小写互转 "%~1" /!c! /F
        ) else call :字母大小写互转 "%~1" /!c!
        goto :eof
    ) else (
        set "#2=%~2"
        set "#2=!#2:-=/!"
        if "%~3" equ "" (
            if /i "!#2!" equ "/U" (goto :U) else if /i "!#2!" equ "/L" (goto :L)
        ) else (
            set "#3=%~3"
            set "#3=!#3:-=/!"
            if /i "!#3!" equ "/F" (
                if /i "!#2!" equ "/U" (goto :U) else if /i "!#2!" equ "/L" (goto :L)
            ) else (
                if /i "!#3!" equ "/U" (
                    if /i "!#2!" equ "/F" (goto :U)
                ) else if /i "!#3!" equ "/L" (
                    if /i "!#2!" equ "/F" (goto :L)
                )
            )
        )
        echo;参数有误！&goto :eof
    )
)
:U
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"
goto :Convert
:L
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"
:Convert
set "str=%~1"
if "%~3" equ "" (
    for %%a in (%var%) do set "str=!str:%%a=%%a!"
    echo;!str!
) else (
    (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%~1"') do (
        set "str=%%b"
        if not defined str (echo;) else (
            for %%a in (%var%) do set "str=!str:%%a=%%a!"
            echo;!str!
        )
    ))>"%~dp1new_%~nx1"
)
goto :eof
复制代码

@echo off >nul 3>"%~dp1U_%~nx1"
setlocal enabledelayedexpansion
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
for /f "delims=" %%i in (%~s1) do (
    set "strU=%%i"
    set "strD=%%i"
    for %%i in (%list%) do (
        set let=%%i
        for /f "tokens=1,2" %%i in ("!let:~,1! !let:~-1!") do (
            set "strU=!strU:%%j=%%j!"
            set "strD=!strD:%%i=%%i!"
        )
    )
    echo;!strU!
    >>"%~dp1D_%~nx1" echo !strD!
)
复制代码

f=open("a.txt","r")
txt=f.read()
uppertxt=txt.upper()
复制代码

import string
lowercase=string.ascii_lowercase
uppercase=string.ascii_uppercase
f=open("a.txt","r")
def l2u():
    txt=f.read()
    for r in range(0,26,1):
        txt=txt.replace(lowercase[r],uppercase[r])
    return(txt)

def u2l():
    txt=f.read()
    for r in range(0,26,1):
        txt=txt.replace(uppercase[r],lowercase[r])
    return(txt)
复制代码

str='asdfsD1df'

def l2u(str):
	ret=''
	for c in str:
		ret += chr(ord(c)&(0xff^0x20)) if c.isalpha() else c;
	return ret

def u2l(str):
	ret=''
	for c in str:
		ret += chr(ord(c)|0x20) if c.isalpha() else c;
	return ret

print (l2u(str))
print (u2l(str))
复制代码

'a' == 0x60
'A' == 0x40

0xff^0x20 == 0b11111011
0x20 == 0b00000100

'a'  & (0xff^0x20) = 'A'
'A'  | 0x20 = 'a'
复制代码