örnek veritabanımda görüldüğü gibi alan içerisinde "Fatsa İlçesi Büyükkoç Köyü Çelikli Mahallesi", "Fatsa Hatipli Beldesi Kadıoğlu Mahallesi" v.b. verilerimin içerisinden sonunda köyü yazanları köyü alanına "Büyükkoç Köyü", beldesi yazanları beldesi alanına "Hatipli Beldesi" sonunda mahallesi yazanları "Kadıoğlu mahallesi" mahallesi alanına almak istiyorum. Saygılarımla.
|
[code]
Dim str As String
Do
'ilk karakterden itibaren tükçe karakter kontrol et
ilk_karakter = 1
max_karakter = 139
eklenti = ""
tara = 1
Do
parca = Mid(not1, tara, 1)
If parca = vbCrLf Then
str = Replace(str, vbCrLf, "", 1)
MsgBox "enter"
End If
eklenti = eklenti & parca
tara = tara + 1
Loop Until tara >= max_karakter
eklenti = Left(eklenti, InStrRev(eklenti, "
|