home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 December / MRR.BIN / data / prformat / prformat.txt < prev    next >
Text File  |  1997-06-15  |  5KB  |  110 lines
  1. Microsoft Word
  2. Programm-Listings formatieren
  3.  
  4.  
  5.  
  6. Viele Programmiersprachen sind deshalb oft so schwer zu verstehen, weil ihre Programm-Listings nicht formatiert sind und dadurch ihre Befehlswörter nicht auffallen. Viele Entwicklungsoberflächen arbeiten deshalb bereits schon jetzt mit einer farbigen Darstellung von Befehlswörtern. Beim Ausgeben der Listings und Quellcodes auf einem Drucken verwenden die meisten jedoch nur einfache Textdarstellungen. Auch Microsoft Word (bis Version 95) macht da bei WordBasic keine Ausnahme.
  7.  
  8.  
  9.  
  10.  
  11. Hier greifen die folgenden WordBasic Makros ein. Sie formatieren die Befehlswörter Ihres Programm-Listings nach Ihren Wünschen. Das besondere an den Makros ist, daß die Befehlswörter in einer Textdatei gespeichert und damit auf einfache Weise ausgetauscht werden können. Sie haben damit mit einem Makro ein Utility für alle Ihre Programm-Listings von Basic- bis SQL-Dialekten.
  12.  
  13. Beispiel: Sie möchten Ihre WordBasic Quelltexte formatieren. Erstellen Sie sich dazu die Datei BASIC.TXT mit folgendem Inhalt:
  14.  
  15. sub
  16. end
  17. function
  18. while
  19. wend
  20. for
  21. to
  22. next
  23.  
  24. ...
  25.  
  26. Wichtig ist nur, daß jedes Befehlswort in einer seperaten Zeile steht. Die zugehörigen Makros haben einen einfachen Aufbau. Die Bearbeitung erfolgt in nur zwei Schritten.
  27.  
  28. - Befehlswort aus Textdatei lesen
  29. - Befehlswort im Text mit Formatierung ersetzen
  30.  
  31.  
  32. Variante 1
  33.  
  34. Zuerst werden die Befehlswörter aus einer beliebigen Textdatei in den Speicher gelesen. Standardmäßig ist bei dieser Lösung Platz für 500 Befehlswörter. 
  35.  
  36. Sub MAIN
  37. Dim Befehl$(500)
  38. anz=0
  39. Open "BASIC.TXT" For Input As #1
  40.  
  41. Am günstigsten ist es, wenn Sie hier noch zusätzlich eine Pfadangabe zum Dateinamen machen: 
  42.  
  43. Open "C:\WORD\BASIC.TXT" For Input As #1
  44.  
  45. Andernfalls müssen Sie immer vorher das Verzeichnis setzen (Datei öffnen - Verzeichnis auswählen - Abbrechen), daß die Textdatei enthält.
  46.  
  47. While Not Eof(1)
  48.   anz=anz+1
  49.   Line Input #1, Befehl$(anz)
  50. Wend
  51. Close #1
  52.  
  53. Ab hier beginnt die Formatierung des Programm-Listings. Jedes Wort wird darauf geprüft, ob es ein Befehlswort ist.  Verantwortlich für das Auslesen jedes einzelnen Wortes sind die WordBasic-Funktionen WordRechs und Markierung$. Zeichen wie ".,:;" werden ausgeschlossen, um die Bearbeitungsgeschwindigkeit zu steigern.
  54.  
  55. BearbeitenAllesMarkieren
  56. BearbeitenTextmarke "Marke", .Hinzufügen
  57. MarkierungArt 1
  58. While TextmarkenVergleichen("\Sel", "Marke")=6 Or TextmarkenVergleichen("\Sel", "Marke")=8
  59.   MarkierungAktuellWort
  60.   a$=UCase$(Markierung$())
  61.   If Not(a$="." Or a$="," Or a$=":" Or a$=";") Then
  62.     For i=1 To anz
  63.       If a$=UCase$(Befehl$(i)) Then
  64.  
  65. In diesem Abschnitt können Sie das Format des Befehlswortes festlegen, in diesem Beispiel wird die Schriftart Courier New-fett verwendet.
  66.  
  67.         Fett 1
  68.         Schriftart "Courier New",10
  69.         Einfügen Befehl$(i)
  70.         i=anz
  71.  
  72.       EndIf
  73.     Next i
  74.   EndIf
  75.   WortRechts
  76. Wend
  77. BearbeitenGeheZu "Marke"
  78. BearbeitenTextmarke "Marke", .Löschen
  79. End Sub
  80.  
  81.  
  82. Variante 2
  83.  
  84. Die zweite Lösung hat einen noch einfacheren Aufbau. Anstatt den Text "manuell" per Makro nach Befehlswörtern zu durchsuchen, verwendet diese Variante die Suchen und Ersetzen Funktion von Word.
  85.  
  86. Sub MAIN
  87. Open "Basic.txt" For Input As #1
  88.   While Not Eof(1)
  89.     Line Input #1, st$
  90.     BearbeitenErsetzenZeichen .Punkt = "12", .Unterstrichen = - 1, .Farbe = - 1, .Durchstreichen = - 1, .Hochgestellt = - 1, .Tiefgestellt = - 1, .Verborgen = - 1, .Kapitälchen = - 1, .Großbuchstaben = - 1, .Laufweite = "", .Position = "", .Unterschneidung = - 1, .UnterschneidungMin = "", .Registerkarte = "0", .Schriftart = "Courier New", .Fett = 1, .Kursiv = - 1, .Gliederung = - 1, .schattiert = - 1
  91.     BearbeitenErsetzen .Suchen = st$, .Ersetzen = st$, .Richtung = 0, .GroßKleinschreibung = 0, .GanzesWort = 1, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textfluß = 1, .Reserviert31 = 0
  92.     Wend
  93.   Close #1
  94. End Sub
  95.  
  96.  
  97. Einsatzgebiete der beiden Varianten
  98.  
  99. In Punkto Geschwindigkeit ist die 2. Variante der ersten in nahezu jedem Einsatzfall überlegen. Die 1. Variante spielt Ihre Stärken dann aus, wenn besondere Formatierungen nötig sind. Wenn Ihnen also die normale Ersetzen-Funktion von Word ausreicht, sollten Sie die 2. Variante einsetzen. Möchten Sie hingegen außergewöhnliche Formatierungen, brauchen Sie die frei programmierbare Variante 1.
  100. Thomas Angielsky  Alpenweg 5a  89257 Illertissen  ( 0 73 03 / 58 24
  101. 16.06.1997
  102. Seite 1
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.