home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texed133.zip / Deutsch.zip / DelBlanks.cmd < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  2KB  |  33 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*  DelBlanks.cmd                                                          */
  4. /*  ═════════════                                                          */
  5. /*                                                                         */
  6. /*  Beispielmakro, daß das Potential der Rexx-Schnittstelle erkennen       */
  7. /*  läßt.                                                                  */
  8. /*                                                                         */
  9. /*  Es sucht Leerzeichen zwischen '\begin' bzw. '\end' und '{' und be-     */
  10. /*  seitigt diese. (Anscheinend hat eine der früheren TeX-Versionen        */
  11. /*  diese Art der Eingabe geschuckt)                                       */
  12. /*                                                                         */
  13. /*  (Dieses Makro entstand auf Anregung von Joachim Eichhorn)              */
  14. /*                                                                         */
  15. /***************************************************************************/
  16.  
  17. Text = VRGet( 'MLE_1', 'Value')
  18. pos  = Pos( '\begin {', Text)
  19. do while pos > 0
  20.     Text = DelStr( Text, pos, 8)
  21.     Text = Insert( '\begin{', Text, pos - 1)
  22.     pos  = Pos( '\begin {', Text, pos)
  23. end
  24.  
  25. pos  = Pos( '\end {', Text)
  26. do while pos > 0
  27.     Text = DelStr( Text, pos, 6)
  28.     Text = Insert( '\end{', Text, pos - 1)
  29.     pos  = Pos( '\end {', Text, pos)
  30. end
  31.  
  32. call VRSet 'MLE_1', 'Value', Text
  33.