Stringin içinde yer alan herhangi bir karakter topluluğunu sondan başa ya da baştan sona doğru diziye atma

Sondan Basa Dogru sıralama
Dim gecici As String
Dim karakter_sayisi,atama_kontrol As Byte
Public Sub Click()

gecici = UCase(Trim(text1.text))
karakter_sayisi = Len(gecici)

For i = 0 To karakter_sayisi
sira(i) = ""
atama_kontrol = karakter_sayisi - i
If atama_kontrol <> 0 Then
sira(i) = Mid$(gecici,atama_kontrol,1)
Else
Exit For
End If
Next i
End Sub



Basdan Sona Dogru sıralama
Dim gecici As String
Dim karakter_sayisi,atama_kontrol As Byte
Public Sub Click()

gecici = UCase(Trim(text1.text))
karakter_sayisi = Len(gecici)

For i = 0 To karakter_sayisi
sira(i) = ""
atama_kontrol = i + 1
If atama_kontrol > karakter_sayisi Then
sira(i) = Mid$(gecici,atama_kontrol,1)
Else
Exit For
End If
Next i
End Sub

Beğeniler: 0
Favoriler: 0
İzlenmeler: 842
favori
like
share