Replace Fonksiyonu Yineleme/Değiştirme Anlamlarinda Turkceye Cevrilebilir. Gorevi Verilen Değer İcerisindeki Belirtilen Karakteri ,Yine Belirlenen Karakter Ile Değiştirmektir.
Mesela Diyelim Ki, Mustafa Ismindeki a Harfini c Ile Değiştireceğiz. İşlemimi Şu Şekilde Olacaktir.
Kod:
YeniIsim = replace("Mustafa", "a", "c")
Ciktisi Bize Mustcfc Olarak Geri Donecektir. Burada Parantezden Sonra Değer Verilir Ve Sonra Değer İcerisinde Aranacak Olan Karakter Verilir, Sonrada Değiştirmesini Istediğiniz Karakter. Mesela Bunu Bir Ornek Daha Vermek Gerekirse;
Eğer Turkce Karakter Probleminiz Varsa, Mesela Bizim Şoyle 1 Sayfalik Bir Yazimiş Var;
Alıntı:
1946 Yýlýnda EDVAC'ýn Yapýmcýsý Olan Dr.Von Neuman TOCA (Theory and Organization of Compli
cated Automata- Karmaþýk Ozdevinirin Teorisi ve Organizasyonu) Adý Altýnda Hazirlamýþ Olduðu Yazý
Dizisinde Bilgisyar Programlarýnýn Kendilerini Kopyalayabileceðini One Surmuþ. 1950 Yýlýnda belll
laboratuvarýýnda Bu Teori Hayat Bulup, Core Wars Ýsimli Virus(oyun) Yazýlmýþ. Virus Denilemiyecek
Kadar Basit Olan Core Wars'in Ardýndan Ýlk Gercek Virus 1981 Yýlýnda Elk Cloner Adý Ýle Gozuktu.
Bu Virusun Ýþlevi Ýse Ekrana Bir Þiir Yansýtmasý Idi..
.
.
.
Burada Gormuş Olduğunuz Gibi Bazı Karakterler Bozulmuş, Bunları Tektek Duzenlemek Cok Uzun Sure Kaybettiri. Bunu Biz Replace Fonksiyonu Ile Su Şekilde Cok Basitce Yapabiliriz. Yazinin Tamaminin DuzenlenecekMetin Adli Bir Degiskene Atanmis Oldugunu Varsayiyorum ve bir text ve buton ekleyin projeye kodları aynen yapıştırın.
Kod:
sub command1_Click() text1 = KarakterDuzenle(DuzenlenecekMetin) end sub Public Function KarakterDuzenle(byval yazi as string) as String yazi = replace(yazi, "þ", "ş") yazi = replace(yazi, "Ý", "İ") yazi = replace(yazi, "ý", "ı") doevents KarakterDuzenle = Yazi End Function
Neyse Umarim Bu Ufak Fonksiyon İşinize Yarar
Kolay Gelsin İyi Calışmalar.
__________________