In this article I would like to share with you a simple program that will ask the user to give a string and then our program will check if the given string is a palindrome or not a palindrome.
My mobile number here in the Philippines is 09173084360.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Private Sub Command1_Click()
display1 = "The given string " & Trim(UCase(Text1.Text)) & " is a Palindrome."
display2 = "The given string " & Trim(UCase(Text1.Text)) & " is Not a Palindrome."
If IsPalindromeStrict(Text1.Text) = True Then
MsgBox (display1)
Else
MsgBox (display2)
End If
End Sub
Public Function IsPalindromeStrict(pstrText As String) As Boolean
Dim i As Long
Dim iMin As Long
Dim iMax As Long
iMin = 1
iMax = Len(pstrText)
For i = 0 To (iMax - iMin) \ 2
If Mid$(pstrText, iMin + i, 1) <> Mid$(pstrText, iMax - i, 1) Then Exit Function
Next
IsPalindromeStrict = True
End Function
Public Function IsPalindrome(ByVal pstrText As String) As Boolean
Dim i As Long
Dim iMin As Long
Dim iMax As Long
pstrText = LCase$(pstrText)
i = 1
Do
Select Case Mid$(pstrText, i, 1)
Case "a" To "z", "0" To "9": i = i + 1
Case Else: pstrText = Replace(pstrText, Mid$(pstrText, i, 1), vbNullString)
End Select
Loop While i <= Len(pstrText)
iMin = 1
iMax = Len(pstrText)
For i = 0 To (iMax - iMin) \ 2
If Mid$(pstrText, iMin + i, 1) <> Mid$(pstrText, iMax - i, 1) Then Exit Function
Next
IsPalindrome = True
End Function
Private Sub Command2_Click()
End
End Sub
