Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language:
Expertise: Beginner
Oct 10, 2001

Check if a Given String Is a Palindrome


This code checks if a given string is a palindrome.
 
Public Function IsPalindrome(strToCheck As String) 
As Boolean

Dim iForward As Integer
Dim iBack As Integer
Dim iMid As Integer
Dim bPalindrome As Boolean

IsPalindrome = False
bPalindrome = True
On Error GoTo ERR_IsPalindrome
 
    iBack = Len(strToCheck)
    iMid = iBack / 2
    iForward = 1
 
    If (iBack < 1) Then
       Exit Function
    End If

    Do While (iForward <> iBack And 
iForward <= iMid)
       If (Mid(strToCheck, iForward, 1) 
<> Mid(strToCheck, iBack, 1))
 Then
          bPalindrome = False
          Exit Do
       End If
       iBack = iBack - 1
       iForward = iForward + 1
    Loop
 
    IsPalindrome = bPalindrome
    Exit Function
 
 ERR_IsPalindrome:
 
    Debug.Print "Error: " & Err.Description
 
 End Function
Nico Montenegro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap