def makeName(self, name): if name[-2:]=="as" : name=name[:-2]+"ai" if name[-2:]=="us" : name=name[:-2]+"au" if name[-2:]=="is" : name=name[:-2]+"i" if name[-2:]=="ys" : name=name[:-2]+"y" if name[-2:]=="ė" : name=name[:-2]+"e" return name On 2010.12.13 11:36, tOMZY wrote: > Pythonui duok, jei negaila :) > > "NicMC"<easy@freemail.lt> wrote in message news:ie0bib$tnj$1@trimpas.omnitel.net... >> Function Kreiptis(Vardas As String) As String >> Kreiptis = Vardas >> If InStr(1, Vardas, " ") = 0 Then >> If Right(Vardas, 2) = "as" Then Kreiptis = Left(Vardas, Len(Vardas) - >> 2) + "ai" >> If Right(Vardas, 2) = "us" Then Kreiptis = Left(Vardas, Len(Vardas) - >> 2) + "au" >> If Right(Vardas, 2) = "is" Then Kreiptis = Left(Vardas, Len(Vardas) - >> 2) + "i" >> If Right(Vardas, 2) = "ys" Then Kreiptis = Left(Vardas, Len(Vardas) - >> 2) + "y" >> If Right(Vardas, 1) = "ë" Then Kreiptis = Left(Vardas, Len(Vardas) - >> 1) + "e" >> End If >> End Function >> >> Dar nei karto nepramazino. Jei užsienietiškas ir neatitinka lietuviško, >> tai arba lietuvinam arba nelinksniuojam - čia taisyklė. T.y. Bynas - >> Bynai, Byn - Byn. >> todėl geriausia kreiptis "Gerb. p. XXXX" ir Gausim "Gerb. p. Byn" >> >> Formulė išbandyta ant maždaug 300-400 tūkst. adresatų, nei vienas >> nesiskundė... >> >> Čia tik iš excelio, jei reikia galiu paduoti dar pythonu ar c++