Skip to main content

AccessTr.neT


InStrRev Komutunun Kullanımı

InStrRev Komutunun Kullanımı

Çözüldü #1
Arkadaşlar merhaba,

Hazırladığım programda; bir tabloda yer alan "C:\1\Tml\Access1.exe" alanından, datanın son kısmı olan "access.exe"yi nasıl alırım diye araştırma yaparken "InStrRev" komutu ile karşılaştım.

Bu konutum kullanımı ile ilgili internette bulduğum örnek şu şekilde;


y = Left$(Text0, InStrRev(Text0, "\") - 1)
bu hali ile, yukardaki datadan sadece ""C:\1\Tml" kısmını alıyor. Yani benim istediğimin tam tersini... Left'i right yapmama ve birkaç farklı kombinasyon denememe rağmen bi sonuç alamadım...

Üstatlar da yardımcı olursa, hem benim sorunum çözülmüş olur, hem de diğer arkadaşlar bu komutun kullanımını öğrenmiş olur.


Şimdiden Teşekkürler.
Saygılarımla,
qhuan, 11-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Bir buton ve metin kutusu olsun. Metin kutusunun adı Metin1 olsun. Bu şartlara göre kodunuz şu şekilde olacaktır:

Kod:
toplam_karakter = Len(Metin1)

istemedigim_yer_uzunlugu = Len(Left$(Metin1, InStrRev(Metin1, "\") - 1)) + 1

alacagim_yer = toplam_karakter - istemedigim_yer_uzunlugu
mesaj = Right$(Metin1, alacagim_yer)
MsgBox mesaj

bu kodu butonun tıklanma olayına yazın.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Teşekkürler Sn.Alpeki99...
Ama benim söylemek istediğim "len" fonksiyonu değil, tüm metinin son "\"'den kısmı. yani, "accees1" kısmı.....
qhuan, 11-08-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 12/01/2010, 15:16, Düzenleyen: qhuan.
Cevapla
Çözüldü #4
Örnek dosyada bu kodları dediğim gibi yapıp denediniz mi? Yoksa sadece kodlara bakıptamı cevap yazdınız?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Denedim, metin2 olarak yazdırdığım yer "10" olarak ifade getirdi....


Saygılarımla,
qhuan, 11-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
Ben buradaki kodu zaten test edip eklemiştim. Bendeki örnek dosya bu ve çalışıyor. Bir yerde yanlış olmalı.
Toplam 4 adet Metin1 vardı birini gözden kaçırmış olmalısınız.
.rar ornek_dosya.rar (Dosya Boyutu: 11,49 KB | İndirme Sayısı: 21)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task