Parantez İçerisindeki Yazıyı Almak

Parantez İçerisindeki Yazıyı Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Parantez İçerisindeki Yazıyı Almak (/konu-parantez-icerisindeki-yaziyi-almak.html)

Sayfalar: 1 2 3

Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020

(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 Img-grin

Txt1.value= mid(2,txt1.value,len(txt1.value)-1)

Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020

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)

Cvp: Parantez İçerisindeki Yazıyı Almak - xoseng - 16/02/2020

(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

Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020

Bir dakika pc elime geçti bir deneyeyim Img-grin

Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020

Ö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

Cvp: Parantez İçerisindeki Yazıyı Almak - xoseng - 16/02/2020

(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.