27.10.2013 Aufrufe

F - Epson

F - Epson

F - Epson

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

SPEL+ Sprachreferenz<br />

WOpen Anweisung<br />

Öffnet eine Datei zum Schreiben.<br />

Syntax<br />

WOpen fileName As #fileNumber<br />

Parameter<br />

fileName Ein Zeichenkettenausdruck, der den Namen der Datei enthält, aus der gelesen<br />

werden soll. Laufwerk und Pfad können ebenfalls enthalten sein.<br />

fileNumber Integer zwischen 30 und 63, welche als Bezeichner für die Datei verwendet wird.<br />

Beschreibung<br />

Öffnet den spezifizierten Dateinamen zum Schreiben und identifiziert ihn durch die spezifizierte<br />

fileNumber. Diese Anweisung wird verwendet, um eine spezifizierte Datei zu öffnen und Daten in diese<br />

Datei zu schreiben. Der Befehl Close schließt die Datei und gibt die Dateinummer aus. (Um Daten<br />

anzuhängen, lesen Sie bitte die Erklärung zu Aopen.)<br />

Wenn der spezifizierte Dateiname nicht auf dem aktuellen Verzeichnis der Diskette existiert, erstellt<br />

die Anweisung WOpen die Datei und beschreibt sie. Wenn der spezifizierte Dateiname existiert,<br />

löscht Wopen alle Daten in dieser Datei und beschreibt sie neu.<br />

Die fileNumber identifiziert die Datei so lange, wie die Datei geöffnet ist. Die Datei wird von der Input#-<br />

Anweisung zum Lesen, von der Print#-Anweisung zum Drucken und zum Schließen (Close#)<br />

verwendet. Entsprechend kann die Dateinummer nicht zur Spezifikation einer anderen Datei<br />

verwendet werden, bis die aktuelle Datei geschlossen ist.<br />

Verwandte Befehle<br />

AOpen, Close, Input #, ROpen<br />

WOpen-Beispiel<br />

Das unten gezeigte, einfache Beispiel öffnet eine Datei, schreibt einige Daten hinein, öffnet dieselbe<br />

Datei später wieder und liest deren Daten in eine Feldvariable.<br />

Real data(100)<br />

For I = 0 To 100<br />

data(i) = i<br />

Next I<br />

WOpen "TEST.VAL" As #30<br />

For I = 0 To 100<br />

Print #30, data(i)<br />

Next I<br />

Close #30<br />

ROpen "TEST.VAL" As #30<br />

For I = 0 to 100<br />

Input #30, data(I)<br />

Next I<br />

Close #30<br />

454 SPEL+ Language Reference Rev 3.5<br />

S

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!