Skip to main content

AccessTr.neT


Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak

Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak

#13
YMtn=Split(Replace(metin, "]","[" ) ,"[")
eğer ubound(ymtn)=tek then xUst=(ubound(YMtn)+1)/2 else
xUst=ubound(YMtn)/2
For x=0 to xUst
Sondger=Sondger & " " & YMtn(2*x)
next x
Cevapla
#14
evet güzel çalışıyor ellerinize sağlık
Cevapla
#15
Çözülmüşlere taşıyalım mı?
Bu arada
https://accesstr.net/konu-ogrenci-sayisi...#pid167962 konusu da çözüldü mü?
Cevapla
#16
evet denemelerimde doğru sonuç verdi 
muhtemelen metin ne kadar uzun olsa da içinde kaç tane köşeli parantez olsa da doğru sonuç verir diye düşünüyorum
Cevapla
#17
Mantıksal olarak evet, ama unutulmuş açma yada kapama parantezleri yada doğal olarak bulunması gereken durumlar sorun cikarabilir
Cevapla
#18
Function xBol(Mtn As String) As String
Dim DiziMtn() As String
Mtn = Replace(Mtn, "]", "[")
DiziMtn = Split(Mtn, "[")
xUst = UBound(DiziMtn)
If xUst = 0 Then
xBol = ""
Exit Function
End If
For x = 0 To 7 Step 2
xBol = xBol & DiziMtn(x)
Next x

End Function
modüle ekleyeceğiniz yukardaki fonksiyon işe yarayabilir, tabi isterseniz argüman kısmına opsiyonel olarak "[","]" parantezlerini de ekleyebilirsiniz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task