Halil Hocam,
Baslarda sorun yok, sabit sözcükteki harf sayısınca + yapıyorum.
Krls lerde sorun var. Krls sabit değerinden sonraki sözcükleri de dahil ediyor.Ben de Krls lere (-) değeri girerek çözüm buldum.
Krls için varsa başka kesin çözümü bekliyorum (örneği ekledim)
Metin 1 içeriği : Unvan XXX Kuruluş Tarihi 06-05-2008 Firma Durumu Aktif Mersis No0419049523800016 Vergi Dairesi
Metin2 İçeriği: XXX Kurulu,
Metin 3 içeriği :0419049523800016 Vergi Dairesi (Bu örnekte "vergi dairesi"sözcüğünden sonra sözcük olsa onları da metin 3 e almakta)
Kod
bas1 = InStr(Metin1, "Unvanı")
Krls1 = InStr(Metin1, "Kuruluş Tarihi")
Metin2 = Mid(Metin1, bas1 + 6, Krls1)
bas2 = InStr(Metin1, "Mersis No")
Krls2 = InStr(Metin1, "Vergi Dairesi")
Metin3 = Mid(Metin1, bas2 + 9, Krls2)
Baslarda sorun yok, sabit sözcükteki harf sayısınca + yapıyorum.
Krls lerde sorun var. Krls sabit değerinden sonraki sözcükleri de dahil ediyor.Ben de Krls lere (-) değeri girerek çözüm buldum.
Krls için varsa başka kesin çözümü bekliyorum (örneği ekledim)
Metin 1 içeriği : Unvan XXX Kuruluş Tarihi 06-05-2008 Firma Durumu Aktif Mersis No0419049523800016 Vergi Dairesi
Metin2 İçeriği: XXX Kurulu,
Metin 3 içeriği :0419049523800016 Vergi Dairesi (Bu örnekte "vergi dairesi"sözcüğünden sonra sözcük olsa onları da metin 3 e almakta)
Kod
bas1 = InStr(Metin1, "Unvanı")
Krls1 = InStr(Metin1, "Kuruluş Tarihi")
Metin2 = Mid(Metin1, bas1 + 6, Krls1)
bas2 = InStr(Metin1, "Mersis No")
Krls2 = InStr(Metin1, "Vergi Dairesi")
Metin3 = Mid(Metin1, bas2 + 9, Krls2)