Tema: Re: Kreipiniai
Autorius: NicMC
Data: 2010-12-15 10:06:20
         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++