home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 December / MRR.BIN / data / prformat / prformat.exe / MAKRO1.TXT < prev    next >
Text File  |  1997-05-24  |  800b  |  32 lines
  1. Sub MAIN
  2.   Dim Befehl$(500)
  3.   anz = 0
  4.   Open "Pascal.txt" For Input As #1
  5.   While Not Eof(1)
  6.     anz = anz + 1
  7.     Line Input #1, Befehl$(anz)
  8.   Wend
  9.   Close #1
  10.   BearbeitenAllesMarkieren
  11.   BearbeitenTextmarke "Marke", .Hinzufⁿgen
  12.   MarkierungArt 1
  13.   While TextmarkenVergleichen("\Sel", "Marke") = 6 \
  14.           Or TextmarkenVergleichen("\Sel", "Marke") = 8
  15.     MarkierungAktuellWort
  16.     a$ = UCase$(Markierung$())
  17.     If Not(a$ = "." Or a$ = "," Or a$ = ":" Or a$ = ";") Then
  18.       For i = 1 To anz
  19.         If a$ = UCase$(Befehl$(i)) Then
  20.           Fett 1
  21.           Schriftart "Courier New", 10
  22.           Einfⁿgen Befehl$(i)
  23.           i = anz
  24.         EndIf
  25.       Next i
  26.     EndIf
  27.     WortRechts
  28.   Wend
  29.   BearbeitenGeheZu "Marke"
  30.   BearbeitenTextmarke "Marke", .L÷schen
  31. End Sub
  32.