Başlangıç > Kodlar > Visual Basic 6 ile olmayan işe yarar stringsel fonksiyonlar

Visual Basic 6 ile olmayan işe yarar stringsel fonksiyonlar


Aşağda bazı stringsel fonksiyonları göstereceğim. Bunlar VB'nin kendi stringsel fonksiyonları değilde daha fazla işlem için üretilmiş fonksiyonlardır.


Trim fonksiyonun bilmeyen arkadaslar vb ders notlarindan incelesinler.
Trim fonksiyonu bilindigi gibi bir yazisal ifadenin bosluklari silen bir fonksiyondur.
Peki ben eger bir yazisal ifadenin basinda ve sonundaki belli bir karakteri silmek istiyorsam.
Iste o zaman bu fonksiyonu kullanirim

Bu fonksiyon


a=trimforch("eeeeEDIRNEeeeeeeeeeeeeeeeeeeeeeeeeeee","e")


Şeklinde kullanilir.
Sonuç olarak a'nin degeri "EDIRNE" olur.


Public Function TrimForCh(Txt As String, Ch As String) As String
Dim i As Integer
if Len(Ch) > 1 then exit function

'Basindaki Karakterler
For i = 1 To Len(Txt)
If Mid(Txt, 1, 1) = Ch Then
Txt = Mid(Txt, 2, Len(Txt))
Else
Exit For
End If
Next i
'Sonundaki karakterler
For i = Len(Txt) To 1 Step -1
If Mid(Txt, Len(Txt), 1) = Ch Then
Txt = Mid(Txt, 1, Len(Txt) - 1)
Else
Exit For
End If
Next i
TrimForCh = Txt
End Function

Bu fonksiyon ise bir degisken arrayini stringsel olarak birlestirmeye yarar.

Yani
dim a(0 to 3) as string
a(0) = "Pop"
a(1) = "Techno"
a(2) = "Metal"
a(3) = "Rock"

gibi bir array listemiz bulunmakta veya daha cok sayida eleman iceren bir array

Simdi biz bunlari yan yana yazmak istiyoruz ama belirli bir isaretlede bunlari ayirmak istiyoruz
(Aslinda VB de bununla ilgili bir komut zaten vardi sanirim. Fakat o biraz karisik geldi bana)

O zaman

c=CombineStringArrays(a,",")

Tırnak içindeki virgül bize elementlerin arasinda konacak sembolu gosterir sonuç olarak a'nin degeri "Pop, Techno, Metal, Rock" olur.


Public Function CombineStringArrays(SA() As String, Optional Ch As String = ",") As String
Dim i As Integer
Dim Txt As String

For i = LBound(SA) To UBound(SA)
Txt = Txt & SA(i) & Ch
Next i
CombineStringArrays = Txt
End Function

 


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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: