Metinden Kelime Ayıklama

yazar

Verilen Metinden Kelime Ayıklama Function

VB.NET Kodları

Public Function KelimeAyikla(Baslangic As String, Bitis As String, Metin As String) As String
Dim Basla = Metin.IndexOf(Baslangic) + Baslangic.Length
Dim Bitir = Metin.Substring(Basla).IndexOf(Bitis)
Dim Sonuc = Metin.Substring(Basla, Bitir)
Return Sonuc 
End Function

Yorum yapın Yanıtı iptal et