Reverse this string

[raskew]

Reverse this string:

"boB -- sehsiw tseB .eman ym esrever neve naC ?look I t'niA .sdrawkcab ffuts lleps nac I .em ta kool ,woW"

 

[ajetrumpet]

"Wow, look at me. I can spell stuff backwards. Ain't I kool? Can even reverse my name. Best wishes -- Bob"

 

[odin1701]

Private Sub RevString()

Dim intLen As Integer
Dim strBuild As String
Dim txtString As String
Dim i As Integer
Dim x As Integer

txtString = "This is a string."

intLen = Len(txtString)
x = intLen

For i = 1 To intLen

strBuild = strBuild & Mid(txtString, x, 1)
x = x - 1

Next i

Debug.Print strBuild

End Sub

 

[ajetrumpet]

Not bad, Odin...

http://www.access-programmers.co.uk/forums/showthread.php?t=135710

And, according to the above, shall this suffice..??

Private Sub RevString()

Dim strBuild As String
Dim txtString As String

txtString = "This is a string."

strBuild = strReverse(txtString)

Debug.Print strBuild

End Sub

 

[odin1701]

haha...yeah I should have counted backwards there eh?

Just wanted to quickly put in a smartass reply here though

 

[ajetrumpet]

Smartass reply? yes. Redundant? yes. Funny? maybe.

 

[raskew]

?noitcnuf )(esreveRrts on -- 79A tuob' woH

 

[ajetrumpet]

?noitcnuf )(esreveRrts on -- 79A tuob' woH

!oga emit gnol a saw tahT .neht ti od ot woh erus toN

 

[raskew]

?sdrawkcab eman ruoy lleps ot look s'ti yhw su ot nialpxe ebyam dna ereh ni-emihc ot tnaw ,namliaM

 

[Mike375]

Using Bob's function in attached