Program je dobar, samo jedna zamerka
previse if ... then....end if
( moze, nisam proveravao, ali moze da se desi da 2 ili vise puta bude zadovoljen uslov, pa da izvrsi 2 ili vise puta zamenu slova )
evo moj predlog
u niz NPR:
Dim slovo(255) as string * 1
uneti sledece
slovo(192)="A"
slovo(193)="B"
....
....
slovo(216)="["
isto za ostala i mala slova
A u for petlji:
Mid(Memo, n, 1) = slovo(Asc(Mid(Memo, n, 1)))
...ali posto je pravljen na brzinu...
Inace, ja sam planirao da pravim program za prevodjenje titlova za filmove sa jednog na drugi jezik ( mislim na slicne slovenske jezike: srpski, hrvatski, bih, makedonski, crnogorski i razne dijalekte )
|