A.S.C Filtre, Grafik ve Raporlama Eklentisi

Metin Kutusu Içinde Değeri Bulma
#1
Hocalarım merhaba,

Ekli örnekte Metin1 Kutusu içinde "Unvanı" dan sonraki değeri (örnekte "AAA ŞİRKETİ"olarak görünmekte) nasıl metin2 kutusuna alabilirim.

Ünvan daha uzun olabileceğinden bu durumda "Unvan" ile "Kuruluş Tarihi" arasındaki tüm değeri almalıyım.
 
(Bunda yardımcı olabilirseniz uzunca bir metin olan değerleri ben aldırtabilirim sanıyorum)Teşekkürler


Eklenti Dosyaları
.rar   Yeni Microsoft Access Veritabanı.rar (Boyut: 16,74 KB / İndirilme: 4)



  Alıntı
Bu mesajı beğenenler:
#2
unvan her zaman tek kelimelik mi ? o durumda sorun olmaz ama ya daha fazlaysa,
mesela
genel müdür gibi 2 yada
genel müdür yardımcısı gibi 3 kelimelikse nasıl ayırt edilecek? unvandan sonra virgül yada başka bir noktalama işareti olsa yada "Şirket Adı:" gibi bir tanımlayıcı olsa kolay ama sizin belirttiğiniz belirsiz durumda belrgin bir yol önerilemez gibi.



  Alıntı
Bu mesajı beğenenler:
#3
Halil Hocam,
"Unvanı" , "Kuruluş Tarihi", "Adresi" gibi sözcükler sabit. Ben devam eden sözcükleri alacağım.
Bu durumda örneğin "unvanı" ile "kuruluş tarihi " arasındaki "xxx" değişken verisini nasıl alabilirim? Teşekkürler

Örnek:

Ünvanı xxx şirketi Kuruluş Tarihi 01.01.2000 Adresi Samsun



  Alıntı
Bu mesajı beğenenler:
#4
ben de zaten onu diyorum ortalıkta algoritma kurabilmemizi sağlayacak ölçüde veri yok.
her türlü olasılığı kapsayan ve belli bir şablona sahip yeterli sayıda veri olsa şablon sayesinde bir yöntem oluşturulabilir
ama şu haliyle en fazla
instr() le ilk boşluğun olduğu yer ile Kuruluş Tarihi adresleri alınıp mid fonksiyonu ile bu aralık alınabilir
bos=instr(metin1," ")
Krls=instr(metin1,"Kuruluş Tarihi")
metin2=mid(metin1,bos,Krls)
şeklinde olabilir yada unvan sabit ise doğrudan
metin2=mid(metin1,7,Krls)
Visual Basic
  1. bos=instr(metin1," ")
  2. Krls=instr(metin1,"Kuruluş Tarihi")
  3. metin2=mid(metin1,bos,Krls)


şeklinde olabilir yada unvanı sabit ise doğrudan
Visual Basic
  1. Krls=instr(metin1,"Kuruluş Tarihi")
  2. metin2=mid(metin1,7,Krls)


yada
Visual Basic
  1. bas=instr(metin1,"Unvanı")
  2. Krls=instr(metin1,"Kuruluş Tarihi")
  3. metin2=mid(metin1,bas+6,Krls)





  Alıntı
Bu mesajı beğenenler:
#5
access-sql-7 
Teşekkür ederim Halil Hocam,
Fazlasıyla yardımcı oldu. Arada boşluk olmayanlarda sorun vardı. Bölemediklerimi ikinci üçüncü metin kutuları açarak tekrar bölmeyi başardım.



  Alıntı
Bu mesajı beğenenler:
#6
yalnız mesajınızda belirttiğiniz şablon sabitse aşağıdaki kodun yeterli olması gerekirdi, fazladan bir işleme gerek olmamalıydı
Visual Basic
  1. bas=instr(metin1,"Unvanı")
  2. Krls=instr(metin1,"Kuruluş Tarihi")
  3. metin2=mid(metin1,bas+6,Krls)





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Otomatik Metin Kutusu alienerji 1 77 Dün, 03:41
Son Mesaj: dsezgin
  [SORGU] Hücre Içinde Geçen Kelimeyi Bulup Başka Hücreye Istenilen Kelimeyi Yazdırmak footprinting 3 102 30-03-2020, 22:20
Son Mesaj: dsezgin
  [FONKSiYON] Metin Içinde Geçen Değerleri Indexleme alperalper 2 68 21-03-2020, 17:29
Son Mesaj: onur_can
  Combobox Içinde Search gbaran80 2 89 21-02-2020, 08:17
Son Mesaj: onur_can
  [SORGU] Sorgu Içinde Birden Fazla Sorgu Oluşturmak footprinting 2 145 04-02-2020, 11:45
Son Mesaj: footprinting
  Onay Kutusu İsmail Küçükşengün 10 8.189 30-01-2020, 10:28
Son Mesaj: Zargana61
access-sql-4 Form Içinde Kullanılmak üzere Değer Atama alperalper 3 86 29-01-2020, 23:32
Son Mesaj: dsezgin
  [SORGU] Iki Tarih Arası Farkı Bulma footprinting 2 134 25-01-2020, 08:02
Son Mesaj: footprinting

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi