Başlangıç > Kodlar > Visual Basic 6 ile string elemanlarını diziye atmak

Visual Basic 6 ile string elemanlarını diziye atmak


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

OĞUZHAN UTANGAN


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: