javascripte hazırlamıştım. data klasörünün içindeki bilgiler.txt ye bakarsanız şöyle bir yapı kullanmıştım:
{isim;e} yazan yere rastgele isim geliyor ve "e" ekliyor. Adnan'a, Ali'ye vb şeklinde isme göre ekleme yapıyor.
fakat siz bunu excelde kullanmak isteyeceğinize göre şöyle bir çözüm yapılabilir:
1. kolonda isimlerin yalın hali,
2. kolonda -e hali,
3. kolonda -i hali... şeklinde hazırlanır.
biz de problem içinde ismin durumuna göre seçtiğimiz kolondan rastgele seçim yaparız. biraz uğraşayım bakalım neler yapabileceğim.
Hocam ben de bunu excelde şu şekilde bir fonksiyonla kullanıyorum:
Function eeki$(kelime)
uzunluk = Len(kelime)
For a = uzunluk To 1 Step -1
ilgili = Mid(kelime, a, 1)
If ilgili = "a" And a = uzunluk Then eeki = "'ya": GoTo abitti:
If ilgili = "â" And a = uzunluk Then eeki = "'ye": GoTo abitti:
If ilgili = "e" And a = uzunluk Then eeki = "'ye": GoTo abitti:
If ilgili = "ı" And a = uzunluk Then eeki = "'ya": GoTo abitti:
If ilgili = "i" And a = uzunluk Then eeki = "'ye": GoTo abitti:
If ilgili = "u" And a = uzunluk Then eeki = "'ya": GoTo abitti:
If ilgili = "ü" And a = uzunluk Then eeki = "'ye": GoTo abitti:
If ilgili = "o" And a = uzunluk Then eeki = "'ya": GoTo abitti:
If ilgili = "ö" And a = uzunluk Then eeki = "'ye": GoTo abitti:
If ilgili = "a" And a = uzunluk - 1 Then eeki = "'a": GoTo abitti:
If ilgili = "e" And a = uzunluk - 1 Then eeki = "'e": GoTo abitti:
If ilgili = "â" And a = uzunluk - 1 Then eeki = "'e": GoTo abitti:
If ilgili = "ı" And a = uzunluk - 1 Then eeki = "'a": GoTo abitti:
If ilgili = "i" And a = uzunluk - 1 Then eeki = "'e": GoTo abitti:
If ilgili = "u" And a = uzunluk - 1 Then eeki = "'a": GoTo abitti:
If ilgili = "ü" And a = uzunluk - 1 Then eeki = "'e": GoTo abitti:
If ilgili = "o" And a = uzunluk - 1 Then eeki = "'a": GoTo abitti:
If ilgili = "ö" And a = uzunluk - 1 Then eeki = "'e": GoTo abitti:
If ilgili = "a" And a = uzunluk - 2 Then eeki = "'a": GoTo abitti:
If ilgili = "e" And a = uzunluk - 2 Then eeki = "'e": GoTo abitti:
If ilgili = "â" And a = uzunluk - 2 Then eeki = "'e": GoTo abitti:
If ilgili = "ı" And a = uzunluk - 2 Then eeki = "'a": GoTo abitti:
If ilgili = "i" And a = uzunluk - 2 Then eeki = "'e": GoTo abitti:
If ilgili = "u" And a = uzunluk - 2 Then eeki = "'a": GoTo abitti:
If ilgili = "ü" And a = uzunluk - 2 Then eeki = "'e": GoTo abitti:
If ilgili = "o" And a = uzunluk - 2 Then eeki = "'a": GoTo abitti:
If ilgili = "ö" And a = uzunluk - 2 Then eeki = "'e": GoTo abitti:
Next a
abitti:
End Function
Muhtemelen daha pratik çözümler bulunabilir ancak şimdilik bu benim işimi görüyor.