home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 13 / reverse.bat < prev    next >
DOS Batch File  |  1992-01-16  |  546b  |  26 lines
  1. @ECHO OFF
  2. IF '%1'=='' GOTO Syntax
  3. IF NOT '%2'=='' GOTO Syntax
  4. SET WString=%1
  5. SET rev=
  6. :loop
  7. SET OldVal=%WString%
  8. FOR %%v IN (/%WString%) DO SET WString=%%v
  9. FOR %%v IN (/%OldVal%) DO IF '%%v%WString%'=='%OldVal%' SET first=%%v
  10. IF NOT '%OldVal%'=='%WString%' GOTO NotLast
  11. SET rev=%OldVal%%rev%
  12. GOTO Done
  13. :NotLast
  14. SET rev=%first%%rev%
  15. GOTO loop
  16. :Syntax
  17. ECHO Syntax: REVERSE string
  18. ECHO where string is a character string with no spaces.
  19. GOTO End
  20. :Done
  21. ECHO "%1" reversed is "%rev%"
  22. SET WString=
  23. SET OldVal=
  24. SET first=
  25. :END
  26.