home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texed133.zip / Deutsch.zip / Makro.cmd < prev    next >
OS/2 REXX Batch file  |  1995-07-09  |  2KB  |  52 lines
  1. /* 
  2.  *   Die Makrosprache ist voll Rexx-Kompatibel
  3.  *   Besonderheiten, die das Lesen und Einfügen von
  4.  *   Text in den Editor beinhalten, werden in diesem
  5.  *   Makro und in 'MAKRO2.CMD' vorgestellt. 
  6.  */
  7.  
  8.    say 'Makro gestartet'
  9.  
  10. /***************************************************************************/
  11. /* Markierten Text in Variable schreiben                                   */
  12. /* a) über Zwischenablage: (Cut und Copy möglich)                          */
  13.  
  14.    ok = VRMethod( "MLE_1", "Copy")
  15.    MarkierterText = VRMethod( "Application", "GetClipboard")
  16.  
  17. /* b) direkt:                                                              
  18.  
  19.    MarkierterText = VRGet( "MLE_1", "SelectedText") */
  20.  
  21. /***************************************************************************/
  22. /* Interpretieren des Textes (hier als Beispiel: Länge bestimmen           */
  23.  
  24.    laenge = length(MarkierterText)
  25.  
  26. /***************************************************************************/
  27. /* Bestimmen der Positionen für MarkierungStart und MarkierungEnde         */    
  28.  
  29.    Markierung_Start = VRGet( "MLE_1", "SelectedStart")
  30.    Markierung_Ende  = VRGet( "MLE_1", "SelectedEnd")
  31.  
  32. /***************************************************************************/
  33. /* Setzen der Markierung im Text von MarkierungStart bis MarkierungEnde    */
  34.  
  35.    ok = VRSet( "MLE_1", "SelectedStart", Markierung_Ende)
  36.    ok = VRSet( "MLE_1", "SelectedEnd", Markierung_Ende)
  37.  
  38. /***************************************************************************/
  39. /* Einfügen von Text auf verschiedene Weisen                               */
  40.  
  41.    ok = VRMethod( "MLE_1", "Insert", " (Länge des Markierten Textes: " )
  42.  
  43.    ok = VRMethod( "Application", "PutClipboard", laenge)
  44.    ok = VRMethod( "MLE_1", "Paste" )
  45.  
  46.    ok = VRMethod( "MLE_1", "Insert", ")" )
  47.  
  48. /***************************************************************************/
  49. say "Testmakro ausgeführt"
  50. say D2C(13)||"Bitte schauen Sie sich doch einmal die Dateien"
  51. say "<makro.cmd> und <makro2.cmd> im Installationsverzeichnis an  "
  52.