x = InStr(1, Me.Metin0, "@") + 1 '@ işaretini yerini bulur, bir fazlasını ekleyerek @den sonrasının başlama yerini saptar
'instr(aramaya_başlanacak_yer, arama_yapılacak_metin, aranacak_metin)
Me.Metin2 = Mid(Metin0, x) ' mid(metin, buradan_sonrasını_al, n_tanesini_al_belirtilmezse_sonuna_kadar_alır)
Eposta Adresinin Uzantısını Bulma
Bu Konudaki Yorumlar |
Eposta Adresinin Uzantısını Bulma - Yazar: access_delisi - 02/05/2019, 12:06
Cvp: Eposta Adresinin Uzantısını Bulma - Yazar: berduş - 02/05/2019, 12:46
Cvp: Eposta Adresinin Uzantısını Bulma - Yazar: access_delisi - 02/05/2019, 12:58
|
Konuyu Okuyanlar: 1 Ziyaretçi