Visual Basic StrRev Alternatif Kod [VB6] [SRC]

Visual Basic StrRev Alternatif Kod [VB6] [SRC]

Visual basic 6 ögren,visual basic ögren,strreverse alternatif,strrev alternativo,harmmy

Visual Basic StrRev Alternatif Kod [VB6] [SRC]

Visual basic progrmalama yapan herkesin aklına kodların alternatifini yazmak gelmiştir ya da ileride gelecektir diye düşünüyorum..

StrReverse komutunun alternatifini sizlere vereceğim isteyenler kullanabilirler..

Kod:

1. Public Function StrRev_Alter_7913(Expression As String) As String
2.         Dim b() As Byte: b = Expression
3.         If UBound(b) < 1 Then Exit Function
4.         For x = UBound(b) - 1 To 0 Step -2
5.             StrRev_Alter_7913 = StrRev_Alter_7913 & ChrW$(b(x))
6.         Next
7.     End Function

Blogu takip etmeye devam ediniz..

Tweet