simcron-Befehle für den Datenimport

2. 4. 2. 2 Word

appCmd Documents

Erzeugt eine Referenz auf Word-Dokumente. Der Rückgabewert des Befehls ist das Objektkommando documentsCmd, das nachfolgend benötigt wird.

documentsCmd Open fileName

Öffnet ein existierendes Word-Dokument. Der Rückgabewert des Befehls ist das Objektkommando docCmd, das nachfolgend benötigt wird. Existiert die Datei nicht, erscheint eine Fehlermeldung

documentsCmd Add

Erzeugt ein neues Word-Dokument. Das Dokument ist zunächst leer. Der Rückgabewert des Befehls ist das Objektkommando docCmd, das nachfolgend benötigt wird.

docCmd SaveAs fileName

Speichert das Dokument unter dem angegebenen Dateinamen fileName. Der String fileName muss mit vollständigem Pfad und Dateierweiterung angegeben werden.

docCmd Words

Erzeugt eine Referenz auf die Wörter des Dokuments. Der Rückgabewert des Befehls ist das Objektkommando wordsCmd, das nachfolgend benötigt wird.

wordsCmd Count

Abfrage der Anzahl der Wörter des Dokuments, wobei alle Sonderzeichen (wie Leerzeichen, Enter und Tabulatoren) als separate Wörter aufgefasst werden.

wordsCmd Item integer

Erzeugt eine Referenz auf das Wort Nummer integer. Der Rückgabewert des Befehls ist das Objektkommando itemCmd, das nachfolgend benötigt wird.

itemCmd option ?value?

Abfrage oder Setzen von Eigenschaften von itemCmd. Optionen:

Text	Text (String)
Bold	Fett (Boolean)
Italic	Kursiv (Boolean)
Underline	Unterstrichen (Boolean)
weitere

BEISPIELE

1. Erstellen einer Word-Datei

package require tcom
set app [::tcom::ref createobject Word.Application]
set docs [$app Documents]
set doc [$docs Add]
set words [$doc Words]
set text "Titel 1;Titel 2 \t \t \t ; Titel 3; \n ;;;23 \n ;24    ;     25"
set item [$words Item [$words Count]]
set wordtext [$item Text]
for {set i 0} {$i < [string length $text]} {incr i} {
set char [string index $text $i]
if {$char == "\"} {
    append char [string index $text [expr $i + 1]]
    incr i
}
append wordtext [format $char %c]
}
$item Text $wordtext
$item Bold [expr 1]
$doc SaveAs "C:/test.doc"
$app Quit

Durch diesen Tcl-Quellcode wird die folgende Word-Datei erstellt:

2. Auslesen aus einer Word-Datei

package require tcom
set app [::tcom::ref createobject Word.Application]
set docs [$app Documents]
set doc [$docs Open "C:/test.doc"]
set words [$doc Words]
set result ""
for {set i 1} {$i <= [$words Count]} {incr i} {
    set item [$words Item $i]
    set text [$item Text]
    if {[scan $text %c] == 32} {
        append result " "
    } elseif {[scan $text %c] == 13} {
        append result \n
    } else {
        append result $text
    }
}
puts $result
$app Quit

Durch diesen Tcl-Quellcode wird die Variable result mit dem Inhalt der oben erstellten Word-Datei belegt:

Titel 1;Titel 2               ; Titel 3;
;;;23
;24    ;     25