Newsgroup: it.comp.lang.delphi
Titolo: Traduttore Italiano->Pugliese v.1

Freeware!!
Tradurre in pugliese non e' mai stato cosi' semplice ;)
da "nel mezzo del cammin di nostra vita"
a "nil mezz dal cimmin di nustr vit"
oppure
da "madonna mia di canosa fai che mi vada bene ogni cosa"
a "mudnn mu di conos fai ch mi vad bena ugn cosa"
;))))))))))
Ed ecco il sorgente!
function Italian2Puglies(s:string):string;
var p:integer;
 function TraduciParola(s:string):string;
 var i,a:integer; c:char;
 begin
  Result:='';
  for i:=1 to length(s) do begin
   c:=s[i];
   if (c in ['a','A','e','E','i','I','o','O','u','U']) then begin
    a:=random(10);
    if ((a<4) and (i<>length(s))) or
       ((a<8) and (length(s)<3))
       then Result:=Result+c else
    if (a>7) or (i=2) then case random(5) of
     0:Result:=Result+'a';
     1:Result:=Result+'e';
     2:Result:=Result+'i';
     3:Result:=Result+'o';
     4:Result:=Result+'u';
    end;
   end else Result:=Result+c;
  end;
 end;
begin
 randomize;
 Result:='';
 repeat
  p:=pos(' ',s);
  if p=0 then Result:=Result+TraduciParola(s) else begin
   Result:=Result+TraduciParola(copy(s,1,p-1))+' ';
   s:=copy(s,p+1,length(s))
  end;
 until p=0;
end;

 ha scritto nel messaggio
news:ba5jbi$plfmu$1...@ID-43509.news.dfncis.de...


> grandioso!!!! devo decidermi a far quello di veneto!!!
ahahah!! sarebbe spassosissimo!!! il dialetto veneto mi fa morire!
(
trad.in
 pugliese: "ahhah!! sarebb spassosissm!!! il daalett vant mi fa
moraru!" :DDD)
Ciao, Sandro

 a "nil mezz dal cimmin di nustr vit"
voglio la versione napoletana!!! ;-))
ciao!

 ha scritto nel messaggio
news:ba5vub$pu0vf$1...@ID-43509.news.dfncis.de...


 intavoliamo un bel quesito su questo forum
Oh... non gheto niente da far anco'?!?
laora!!! :-))
maz


Ancora non l'ho provato, ma soltanto l'idea è stupenda....adesso lo provo (e
lo faccio provare anche a chi lavora con me!)

 Tradurre in pugliese non e' mai stato cosi' semplice ;)
Vediamo come si potrebbe fare per il genovese...
function Italian2Zeneis(s:string):string;
var p:integer;
 function TraduciParola(s:string):string;
 var i,a:integer; c:char;
 begin
  Result:= 'belin ' + s;
 end;
begin
 randomize;
 Result:='';
 repeat
  p:=pos(' ',s);
  if p=0 then Result:=Result+TraduciParola(s) else begin
   Result:=Result+TraduciParola(copy(s,1,p-1))+' ';
   s:=copy(s,p+1,length(s))
  end;
 until p=0;
end;
Dovrebbe funzionare:
input - "buongiorno"
output - "belin buongiorno"
input - "cosa stai facendo?"
output - "belin cosa belin stai belin facendo?"

 end;
(*) suggerisco di aggiungere un: Result:=Result+'. Ti spacco la faccia!'
LOL!
Ciao, Sandro

 
Quand parl di cristien ca stann i na vita mia, nn pozz dimenticà du cristien de naplè, ernesti'.
Quedd tin a cape malet, ma quant iev bn e tin nu cor gran u sa sol gesu' crist.
Quann o vist piagn, ma sinti piagn i risat e i mument di incazz propri
sempr a u fian cm nisciun mai.
Quant t voj ben e quant nervus ma fa far, m tutt i vort sta sempre annanz me.
Perché quand na mic tiej o cor bell fatt, edd je da razz bon.. se vid da luntan 
Che anam a truvann da a vit Ernesti'? a crianz da felicità. 
ca prima o poi ritorn, e nuatr stimm adda, 
ad aspettar.
agg' accatet nu diamant e mo su purtet in to cor'.

 Che uomo di merda e la gente che passa e non dice niente e peggio


ere




Una favola di mare

Il giorno sabato 17 maggio 2003 17:10:05 UTC+2, Zortek ha scritto:


Vacc'u' cund a patt

botte

vedremo se vuoi te lo insegno io il pugliese

Ma quando mai?

Ciao scusa, come si usa? Avrei bisogno di tradurre un piccolo testo in barese? 

Lo so che tengo ragione

Gente di merda

 zitto