Parantez İçerisindeki Yazıyı Almak

1 2 3
16/02/2020, 16:16

berduş

Cevaplanmışlara taşınan konulara dosya eklenemiyor.
Tekrar sorulara taşıdım dosya ekleyebilirsiniz
16/02/2020, 16:17

xoseng

(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.
16/02/2020, 17:43

feraz

(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.
16/02/2020, 19:34

feraz

Dosyayı ekledim.
1 2 3