Topic: Reverse a string of text

[Hangman]

Morn'n all,

I am just curious as I have a couple drawings with labels that are reversed and it got me thinking, is there a simple code to reverse a string of text?

For example, the current label is "A15", or "AC015", or for a worst case scenario, a label for a fuse "FUSE F12", or "F12 125MA 24VDC".  You want the label(s) to read "15A", or "015AC", and for the worst case scenario, the label would read "FUSE 12F", or "12F 125MA 24VDC".
Granted for the worst case scenario, it would be extensive code to search for the fuse label in a string such as this, so you are not reversing the voltage or amperage, but the label only.

But to quench the curiosity without losing a life, has anyone put a piece of code together to reverse a string of text?

Any thoughts, ... suggestions, ...  perhaps a challenge for the guru's?.     

[Lee Mac]

Code: [Select]

(vl-list->string (reverse (vl-string->list <string>)))

[deegeecees]

That would require some conditional boolean magic.

[Hangman]

Code: [Select]

(vl-list->string (reverse (vl-string->list <string>)))

LOL !!!
Fine ..., for you Lee, you have to do the worst case scenario.  
Reverse the label for the following strings:

"FUSE A7 2A 24VDC" to read "FUSE 7A 2A 24VDC".
"FUSE A12 1A 12VDC" to read "FUSE 12A 1A 12VDC".

I can't think, somebody engineer a nearly impossible string for Lee to decipher  

[Hangman]

That would require some conditional boolean magic.

Ooooh, Boooolean!  K, keep talk'n ...

[Lee Mac]

Code: [Select]

(vl-list->string (reverse (vl-string->list <string>)))

LOL !!!
Fine ..., for you Lee, you have to do the worst case scenario.  
Reverse the label for the following strings:

"FUSE A7 2A 24VDC" to read "FUSE 7A 2A 24VDC".
"FUSE A12 1A 12VDC" to read "FUSE 12A 1A 12VDC".

I can't think, somebody engineer a nearly impossible string for Lee to decipher  

   Will post something later, going out for now 

[deegeecees]

That would require some conditional boolean magic.

Ooooh, Boooolean!  K, keep talk'n ...

If you have predetermined conditions then you could run it through a COND wringer.Don't have time to write it out atm tho.

[Matt__W]

Code: [Select]

(vl-list->string (reverse (vl-string->list <string>)))

LOL !!!
Fine ..., for you Lee, you have to do the worst case scenario.  
Reverse the label for the following strings:

"FUSE A7 2A 24VDC" to read "FUSE 7A 2A 24VDC".
"FUSE A12 1A 12VDC" to read "FUSE 12A 1A 12VDC".

I can't think, somebody engineer a nearly impossible string for Lee to decipher  

What if you try to reverse the word RADAR?  Will the computer blow up?   

[CAB]

Simple enough.
Break the string using space char
If a component ends with a number char put the numbers in front.
Put the string back together

 

[Guitar_Jones]

What if you try to reverse the word RADAR?  Will the computer blow up?

a man a plan a canal panama   

[alanjt]

What if you try to reverse the word RADAR?  Will the computer blow up?

a man a plan a canal panama   

[Lee Mac]

Feeling lazy so just using CAB's proposed method with a couple of pre-written subs from my site...

Code: [Select]

(defun ReverseTag ( string )
  (LM:lst->str
    (mapcar
      (function
        (lambda ( x )
          (if (wcmatch x "*#")
            (vl-list->string (reverse (vl-string->list x)))
            x
          )
        )
      )
      (LM:str->lst string " ")
    )
    " "
  )
)

(defun LM:str->lst ( str del / pos ) (vl-load-com)
  ;; © Lee Mac 2010
  (if (setq pos (vl-string-search del str))
    (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
    (list str)
  )
)

(defun LM:lst->str ( lst del )
  ;; © Lee Mac 2010
  (if (cdr lst)
    (strcat (car lst) del (LM:lst->str (cdr lst) del))
    (car lst)
  )
)


[Lee Mac]

Just noticed, you don't want the string reversed, but the alpha/numerical parts switched... forget all my posts in this thread...  :ugly:

[alanjt]

I wrote this as a quick change up to Lee's, but I just noticed his realization and I too am posting crap.

Code: [Select]

(defun ReverseTag (string)
  (vl-list->string
    (cdr (apply (function append)
                (mapcar
                  (function
                    (lambda (x)
                      (cons 32
                            (if (wcmatch x "*#")
                              (reverse (vl-string->list x))
                              (vl-string->list x)
                            )
                      )
                    )
                  )
                  (LM:str->lst string " ")
                )
         )
    )
  )
)

[Lee Mac]

I think RegularExpressions are the way to go with this one:

Code: [Select]

(defun ReverseTag ( regex string )
  (mapcar
    (function
      (lambda ( x ) (vlax-put-property regex (car x) (cdr x)))
    )
    (list
      (cons 'global      acfalse)
      (cons 'ignorecase  actrue)
      (cons 'multiline   acfalse)
      (cons 'pattern     "([A-Z]+)(\\d+)\\b")
    )
  )
  (vlax-invoke regex 'replace string "$2$1")
)
Test function:

Code: [Select]

(defun c:test ( / RegEx string ) (vl-load-com)

  (setq string "FUSE A7 2A 24VDC")

  (setq RegEx  (vlax-get-or-create-object "VBScript.RegExp"))
  (setq string (ReverseTag RegEx string))
  (vlax-release-object RegEx)

  string
)