Question

求一个Vbs或bat，将文本中的每个字母随机大小写。

Answer 1

@echo off
set #=q&set/azx=0x53b7e0b4
title Any question +%#%%#% %zx%
cd /d "%~dp0"
set "fd=结果"
md "%fd%" 2>nul
powershell -NoProfile -ExecutionPolicy bypass ^
$files=@(dir^|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});^
for($i=0;$i -lt $files.length;$i++){^
write-host $files[$i].Name;^
$text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::Default);^
$text=[regex]::replace($text,'[a-zA-Z]',{param($a);Get-Random -input $a.value.toLower(),$a.value.toUpper();});^
[IO.File]::WriteAllText('%fd%\'+$files[$i].Name, $text, [Text.Encoding]::Default);^
};
echo;Any question +%#%%#% %zx%
pause