Tersine Çevir - 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ığı: Tersine Çevir (/konu-tersine-cevir.html) Sayfalar:
1
2
|
RE: Tersine Çevir - berduş - 17/01/2023 Önerilerimle ilgili araştırma yaptınız mı? RE: Tersine Çevir - Yandemir - 17/01/2023 o zaman split ve dizi başka yolu yok RE: Tersine Çevir - husem - 18/01/2023 (17/01/2023, 23:48)berduş yazdı: Önerilerimle ilgili araştırma yaptınız mı? split ile ilgili örnek birşeyler bulamadım, olmazsa da başka bir çözüm bulacağım, gerekirse el ile yazarım, ilgilendiğiniz için teşekkür ederim, RE: Tersine Çevir - Yandemir - 18/01/2023 Dim myString As String Dim myStringSonuc As String Dim Dizim() As String myString = "1-2-3-4-5-6-7-8-9-10-11-12-13-14-15" Dizim() = Split(myString, "-") For i = UBound(Dizim) To LBound(Dizim) Step -1 myStringSonuc = myStringSonuc & Dizim(i) & "-" Next i MsgBox Mid(myStringSonuc, len(myStringSonuc)-1) RE: Tersine Çevir - husem - 18/01/2023 teşekkür ederim, kolay gelsin, uygulamadım, çalışıyor, |