"dico2"============

par **Admin** Lun 24 Juin - 18:51

Code:: #src=0 #dst=1 chemin$="c:\.Trash-999\" If ReadFile(#dst, chemin$+"Liste de motsItaliens.txt") While Eof(#dst) = 0 ; loop as long the 'end of file' isn't reached mot$=ReadString(#dst) mot$=LCase(mot$) mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$," ","") mot$=ReplaceString(mot$,"ß","ss") mot$=ReplaceString(mot$,"à","a") mot$=ReplaceString(mot$,"á","a") mot$=ReplaceString(mot$,"â","a") mot$=ReplaceString(mot$,"ã","a") mot$=ReplaceString(mot$,"ä","a") mot$=ReplaceString(mot$,"å","a") mot$=ReplaceString(mot$,"ç","c") mot$=ReplaceString(mot$,"è","e") mot$=ReplaceString(mot$,"é","e") mot$=ReplaceString(mot$,"ê","e") mot$=ReplaceString(mot$,"ë","e") mot$=ReplaceString(mot$,"ì","i") mot$=ReplaceString(mot$,"í","i") mot$=ReplaceString(mot$,"î","i") mot$=ReplaceString(mot$,"ï","i") mot$=ReplaceString(mot$,"ð","o") mot$=ReplaceString(mot$,"ñ","n") mot$=ReplaceString(mot$,"ò","o") mot$=ReplaceString(mot$,"ó","o") mot$=ReplaceString(mot$,"ô","o") mot$=ReplaceString(mot$,"õ","o") mot$=ReplaceString(mot$,"ö","o") mot$=ReplaceString(mot$,"ù","u") mot$=ReplaceString(mot$,"ú","u") mot$=ReplaceString(mot$,"û","u") mot$=ReplaceString(mot$,"ü","u") mot$=ReplaceString(mot$,"ý","y") mot$=ReplaceString(mot$,"ÿ","y") mot$=ReplaceString(mot$,"æ","ae") mot$=ReplaceString(mot$,"œ","oe") mot2$=Mid(mot$,2,Len(mot$)-1) a$=Left(mot$,1) Debug mot$ If OpenFile(#src, chemin$+"dico-"+a$+Str(Len(mot$))) mot$=ReplaceString(mot$,"à","a") mot$=ReplaceString(mot$,"á","a") mot$=ReplaceString(mot$,"â","a") mot$=ReplaceString(mot$,"ã","a") mot$=ReplaceString(mot$,"ä","a") mot$=ReplaceString(mot$,"å","a") mot$=ReplaceString(mot$,"ç","c") mot$=ReplaceString(mot$,"è","e") mot$=ReplaceString(mot$,"é","e") mot$=ReplaceString(mot$,"ê","e") mot$=ReplaceString(mot$,"ë","e") mot$=ReplaceString(mot$,"ì","i") mot$=ReplaceString(mot$,"í","i") mot$=ReplaceString(mot$,"î","i") mot$=ReplaceString(mot$,"ï","i") mot$=ReplaceString(mot$,"ð","o") mot$=ReplaceString(mot$,"ñ","n") mot$=ReplaceString(mot$,"ò","o") mot$=ReplaceString(mot$,"ó","o") mot$=ReplaceString(mot$,"ô","o") mot$=ReplaceString(mot$,"õ","o") mot$=ReplaceString(mot$,"ö","o") mot$=ReplaceString(mot$,"ù","u") mot$=ReplaceString(mot$,"ú","u") mot$=ReplaceString(mot$,"û","u") mot$=ReplaceString(mot$,"ü","u") mot$=ReplaceString(mot$,"ý","y") mot$=ReplaceString(mot$,"ÿ","y") mot$=ReplaceString(mot$,"æ","ae") mot$=ReplaceString(mot$,"œ","oe") x=Len(mot$) For i=10 To 96 a$=Chr(i) mot$=ReplaceString(mot$,a$,"") Next For i=123 To 255 a$=Chr(i) mot$=ReplaceString(mot$,a$,"") Next For i=97 To 122 a$=Chr(i)+Chr(i)+Chr(i) mot$=ReplaceString(mot$,a$,"") Next Debug mot$ If x<>Len(mot$) Goto ok45 EndIf While Eof(#src) = 0 ; loop as long the 'end of file' isn't reached mot3$=ReadString(#src) If mot3$=mot2$ Goto ok45 EndIf Wend WriteStringN(#src, mot2$) ok45: CloseFile(#src) EndIf Wend ok60: CloseFile(#dst) EndIf