+- 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ığı: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak (/konu-metinden-istedigimiz-bir-kismi-diger-metin-kutusuna-aktarmak.html)
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - berduş - 03/04/2020
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
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020
evet güzel çalışıyor ellerinize sağlık
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - berduş - 03/04/2020
Çözülmüşlere taşıyalım mı?
Bu arada
https://accesstr.net/konu-ogrenci-sayisi-ogrenci-turune-yemek-listesine-gore-malzeme-hesaplama.html?pid=167962#pid167962 konusu da çözüldü mü?
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020
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
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - berduş - 03/04/2020
Mantıksal olarak evet, ama unutulmuş açma yada kapama parantezleri yada doğal olarak bulunması gereken durumlar sorun cikarabilir
Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - berduş - 03/04/2020
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