Skip to main content

AccessTr.neT


Parantez İçerisindeki Yazıyı Almak

Parantez İçerisindeki Yazıyı Almak

#13
Cevaplanmışlara taşınan konulara dosya eklenemiyor.
Tekrar sorulara taşıdım dosya ekleyebilirsiniz
Cevapla
#14
(16/02/2020, 16:16)berduş yazdı: Cevaplanmışlara taşınan konulara dosya eklenemiyor.
Tekrar sorulara taşıdım dosya ekleyebilirsiniz
Bunu bilmiyordum, sağ ol.
İyilik yap!
                  İyilik bul!
Cevapla
#15
(16/02/2020, 16:11)xoseng yazdı:
(16/02/2020, 16:01)feraz yazdı: Örneği inceleyiniz.Önceki kodda left,riggt,ve mid kodlarındaki yerler ters yazılmış.
Textboxa veri girip butona tıklayınız.
Textbox boşssa felan şart koydum gerek olmayabilir hata vermemesi içindi.
Forma yükleyemedim dosyayı.

https://www.dosyaupload.com/74g3


Kod:
Option Compare Database

Private Sub Befehl0_Click()

    Dim x As Byte, y As Byte
   
    If Not IsNull(txt1.Value) Or txt1.Value <> "" Then
   
        If Left(txt1.Value, 1) = "(" Then
            x = 2
        Else
            x = 1
        End If
       
        If Right(txt1.Value, 1) = ")" Then
            y = Len(txt1.Value) - 1
        Else
            y = Len(txt1.Value)
        End If
        If x > 1 Then y = y - 1
        txt1.Value = Mid(txt1.Value, x, y)
    End If

End Sub

Forum sitesinde sorun var sanırım, dosya yükleyemiyorum.
Elinize sağlık doğru şekilde çalışıyor ve hata vermedi. Farklı örnekler üzerinden denedim çalışıyor. sağ olun, teşekkür ederim.

Rica ederim.
Kodun çalışma mantığını açıklayayım yinede.Belki gereksiz yerleri kullanmayabilirsiniz.

X değişkini atadım çünkü soldan il karakter ( varmı diye varsa metinin 2.karakterinden ( yoksa ilk karakterinden başlasın parçaalmak için(mid)

Y olayıda en sağdan baksın ) varmı diye varsa ensondakinin bir önce karakterden yoksa enson karaktere kadar alsın.

Mantık böyle.
Cevapla
#16
Dosyayı ekledim.
.rar test.rar (Dosya Boyutu: 20,15 KB | İndirme Sayısı: 1)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da