reverse & inverse text: pot ot mottob morf...esrever ot detr

[techsuccess]

A colleague has started sending mail to me in this format and I would like to be able to return the favor without asking his secret. How do I reverse & invert text as shown below:

pot ot mottob morf...esrever ot detrevnoc uoy woh tuo erugif t'nac I

[Mark O'Brien]

Something like this would do it:

Public Sub InvertText()



  Dim sText As String

  Dim sInvertedText As String

  

  sInvertedText = "pot ot mottob morf...esrever ot detrevnoc uoy woh tuo erugif t'nac I"

  sText = StrReverse(sInvertedText)

  

  MsgBox sText



End Sub

HTH

[smozgur]

This is the function which would do that:

Function Reversed(originaltext As String) As String
Dim i As Integer
For i = Len(originaltext) To 1 Step -1
Reversed = Reversed & Mid(originaltext, i, 1)
Next i
End Function


If you want to use this function in excel (we are in MrExcel )) then you can apply it as below:

Open VBE and insert a module in related VBA project. Paste the code above.
Goto excel sheet and write something reversed A1 and put this function into A2.

=REVERSED(A1)

you will see the re-reversed text in A2.

Regards

[Mark W.]

Download (and add-in) morefunc.zip at http://perso.wanadoo.fr/longre/excel/downloads/, and use the following array formula...

{=MCONCAT(MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1))}

Note: Array formulas must be entered using the Control+Shift+Enter key combination. The outermost braces, { }, are not entered by you -- they're supplied by Excel in recognition of a properly entered array formula.

[Al Chara]

How about the following code:

Sub ReverseWords()

    Dim WorkingText as string, ReversedText As String

    Dim PrevSpace as integer, NextSpace As Integer

    OriginalText = InputBox("Enter text to be reversed word by word")

    WorkingText = " " & Replace(OriginalText, "  ", " ") & " "

    Do

        PrevSpace = Application.WorksheetFunction.Search(" ", WorkingText, PrevSpace + 1)

        NextSpace = Application.WorksheetFunction.Search(" ", WorkingText, PrevSpace + 1)

        ReversedText = ReversedText + StrReverse(Mid(WorkingText, PrevSpace + 1, NextSpace - PrevSpace))

    Loop Until NextSpace = Len(WorkingText)

    MsgBox ReversedText

End Sub

It will reverse the text word by word.

_________________
Kind regards,

^AL_CHARA
[ This Message was edited by: Al Chara on 2002-07-31 08:51 ]

[ This Message was edited by: Al Chara on 2002-07-31 08:54 ]