Visual Basic'de String Elemanlarını Diziye Atma
Son güncelleme:
-
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