home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
texed133.zip
/
Deutsch.zip
/
DelBlanks.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-07-10
|
2KB
|
33 lines
/***************************************************************************/
/* */
/* DelBlanks.cmd */
/* ═════════════ */
/* */
/* Beispielmakro, daß das Potential der Rexx-Schnittstelle erkennen */
/* läßt. */
/* */
/* Es sucht Leerzeichen zwischen '\begin' bzw. '\end' und '{' und be- */
/* seitigt diese. (Anscheinend hat eine der früheren TeX-Versionen */
/* diese Art der Eingabe geschuckt) */
/* */
/* (Dieses Makro entstand auf Anregung von Joachim Eichhorn) */
/* */
/***************************************************************************/
Text = VRGet( 'MLE_1', 'Value')
pos = Pos( '\begin {', Text)
do while pos > 0
Text = DelStr( Text, pos, 8)
Text = Insert( '\begin{', Text, pos - 1)
pos = Pos( '\begin {', Text, pos)
end
pos = Pos( '\end {', Text)
do while pos > 0
Text = DelStr( Text, pos, 6)
Text = Insert( '\end{', Text, pos - 1)
pos = Pos( '\end {', Text, pos)
end
call VRSet 'MLE_1', 'Value', Text