Masciau, tai cia suzaistu neblogai regexpai speju, ta prasme mintis tokia kilo kad programoje eitu pasipildyt useriam sarasa ka i ka keisti, tik va jauciu userius regexpo ismokint brangiau kainuotu nei programa parasyt :) o jei paprasciau tai bent jau tokiam lygyje kad butu galvoju:

*as => *ai 

ir t.t.. :)


"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++