Parantez İçerisindeki Yazıyı Almak

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

feraz

(16/02/2020, 14:28)xoseng yazdı:
(16/02/2020, 13:40)feraz yazdı: Birde eğer parantezler başta ve sondakiler silinecekse sadece ona göre kod yazılmalı.
Önceki yazdığım kod tüm parantezleri siler sonradan sıkıntı olmasın yani.
desteğin için teşekkür ederim, evet isimlerde arada da parantezler var, sadece başta ve sonda olan parantez alınmayacak.
Tamam kodları ona göre hallederim.
Alttaki gibi kafadan kod yazdım deneyemedim.2.karakter ve enson karakterden bir öncesi kelimeleri alır.Tabii doğru yazdıysam kodu.Birde şart eklenebilir instr ile bakayım onada kafadan yazabilecekmiyim
Txt1.value= mid(2,txt1.value,len(txt1.value)-1)
16/02/2020, 14:49

feraz

Alttaki kodları kafadan yazdım deneyemedim.
Accesste right fonctionu varmı bilmiyorum lakin mantık böyle.
Deneyiniz sonucu yazın ona göre bakarız.Bilgisayar yanımda değil o yüzden deneyemedim.

Dim x as byte , y as byte

İf left(1,txt1.value) = "(" then
    x= 2
Else
     x=1
End if

İf right(1,txt1.value) = ")" then 
     y = len(txt1.value)-1
Else
     y = len(txt1.value)
End if

Txt1.value = mid(x,txt1.value,y)
16/02/2020, 15:44

xoseng

(16/02/2020, 14:49)feraz yazdı: Alttaki kodları kafadan yazdım deneyemedim.
Accesste right fonctionu varmı bilmiyorum lakin mantık böyle.
Deneyiniz sonucu yazın ona göre bakarız.Bilgisayar yanımda değil o yüzden deneyemedim.

Dim x as byte , y as byte

İf left(1,txt1.value) = "(" then
    x= 2
Else
     x=1
End if

İf right(1,txt1.value) = ")" then 
     y = len(txt1.value)-1
Else
     y = len(txt1.value)
End if

Txt1.value = mid(x,txt1.value,y)
şu hatayı alıyorum, sebebini bulmaya çalışıyorum.
"Run-Time error "13":
Type Mismatch
16/02/2020, 15:46

feraz

Bir dakika pc elime geçti bir deneyeyim
16/02/2020, 16:01

feraz

Ö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
16/02/2020, 16:11

xoseng

(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.
1 2 3