Chefito, como no. jaja tu sabiduría siempre esta presente.
E conseguido lo siguiente.
Código: Seleccionar todo
a()
Func a()
$archivo=FileOpen("Z:\autoit\scrips\comprimir\foto.txt")
$leer= FileRead($archivo)
Local $codigo = $leer
Local $condicion = StringRegExpReplace($codigo, "[a][a]", "!")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
aA()
EndFunc
Func aA()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[A][A]", "¡")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
b()
EndFunc
Func b()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[b][b]", "#")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
bB()
EndFunc
Func bB()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[B][B]", "¢")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
c()
EndFunc
Func c()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[c][c]", "$")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
cC()
EndFunc
Func cC()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[C][C]", "£")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
d()
EndFunc
Func d()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[d][d]", "%")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
dD()
EndFunc
Func dD()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[D][D]", "¤")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
e()
EndFunc
Func e()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[e][e]", "(")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
eE()
EndFunc
Func eE()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[E][E]", "¥")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
f()
EndFunc
Func f()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[f][f]", ")")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
fF()
EndFunc
Func fF()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[F][F]", "¦")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
g()
EndFunc
Func g()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[g][g]", "*")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
gG()
EndFunc
Func gG()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[G][G]", "§")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
h()
EndFunc
Func h()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[h][h]", ",")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
hH()
EndFunc
Func hH()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[H][H]", "¨")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
i()
EndFunc
Func i()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[i][i]", "-")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
iI()
EndFunc
Func iI()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[I][I]", "©")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
j()
EndFunc
Func j()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[j][j]", ".")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
jJ()
EndFunc
Func jJ()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[J][J]", "ª")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
k()
EndFunc
Func k()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[k][k]", ":")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
kK()
EndFunc
Func kK()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[K][K]", "«")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
l()
EndFunc
Func l()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[l][l]", ";")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
lL()
EndFunc
Func lL()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[L][L]", "¬")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
m()
EndFunc
Func m()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[m][m]", "<")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
mM()
EndFunc
Func mM()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[M][M]", "®")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
n()
EndFunc
Func n()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[n][n]", ">")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
nN()
EndFunc
Func nN()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[N][N]", "¯")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
o()
EndFunc
Func o()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[o][o]", "?")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
oO()
EndFunc
Func oO()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[O][O]", "°")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
p()
EndFunc
Func p()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[p][p]", "@")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
pP()
EndFunc
Func pP()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[P][P]", "±")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
q()
EndFunc
Func q()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[q][q]", "[")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
qQ()
EndFunc
Func qQ()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[Q][Q]", "²")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
r()
EndFunc
Func r()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[r][r]", "\")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
rR()
EndFunc
Func rR()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[R][R]", "³")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
s()
EndFunc
Func s()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[s][s]", "]")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
sS()
EndFunc
Func sS()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[S][S]", "´")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
t()
EndFunc
Func t()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[t][t]", "^")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
tT()
EndFunc
Func tT()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[T][T]", "µ")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
u()
EndFunc
Func u()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[u][u]", "_")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
uU()
EndFunc
Func uU()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[U][U]", "¶")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
v()
EndFunc
Func v()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[v][v]", "`")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
vV()
EndFunc
Func vV()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[V][V]", "·")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
w()
EndFunc
Func w()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[w][w]", "{")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
wW()
EndFunc
Func wW()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[W][W]", "¸")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
x()
EndFunc
Func x()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[x][x]", "|")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
xX()
EndFunc
Func xX()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[X][X]", "¹")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
y()
EndFunc
Func y()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[y][y]", "}")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
yY()
EndFunc
Func yY()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[Y][Y]", "º")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
z()
EndFunc
Func z()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[z][z]", "~")
FileWrite("archivo13.txt",$condicion)
Global $archivo= FileRead("archivo13.txt")
FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
zZ()
EndFunc
Func zZ()
Local $codigo = $archivo
Local $condicion = StringRegExpReplace($codigo, "[Z][Z]", "»")
FileWrite("archivo13.txt",$condicion)
;~ Global $archivo= FileRead("archivo13.txt")
;~ FileDelete("Z:\autoit\scrips\comprimir\archivo13.txt")
EndFunc
Como veras lo e echo con mis pocos conocimientos que tengo pero algo hace XD..