APPEND MEMO-Befehl
Kopiert den Inhalt einer Textdatei in ein Memofeld.
APPEND MEMO MemoFieldName FROM FileName[OVERWRITE] [AS nCodePage]
Parameter
MemoFieldName
Gibt den Namen des Memofeldes an, an das die Textdatei angehängt werden soll.FROM FileName
Gibt den Namen der Textdatei an, deren Inhalt in das Memofeld kopiert werden soll. Sie müssen den vollständigen Dateinamen angeben, also auch die Erweiterung.OVERWRITE
Ersetzt den aktuellen Inhalt des Memofeldes durch den Inhalt der Datei.AS nCodePage
Gibt die Codepage der Textdatei an, die in das Memofeld kopiert werden soll. Microsoft Visual FoxPro kopiert den Inhalt der Textdatei in das Memofeld und wandelt während des Kopiervorgangs automatisch die Daten mit der angegebenen Codepage entsprechend der Codepage der Tabelle um, die das Memofeld enthält. Ist die Tabelle, die das Memofeld enthält, nicht mit einer Codepage gekennzeichnet, wandelt Visual FoxPro automatisch die Daten mit der angegebenen Codepage entsprechend der aktuellen Visual FoxPro-Codepage um.Wird für nCodePage ein nicht unterstützter Wert angegeben, generiert Visual FoxPro eine Fehlermeldung. Sie können für nCodePage die Funktion GETCP( ) angeben, um das Dialogfeld Codepage aufzurufen, über das Sie eine Codepage für die anzufügende Tabelle bzw. Datei festlegen können.
Wenn Sie die Klausel AS nCodePage nicht angeben oder für nCodePage 0 festlegen, erfolgt keine Codepagekonvertierung für die Textdatei.
Hinweise
Wird das Argument OVERWRITE nicht angegeben, wird die gesamte Textdatei an den Inhalt des angegebenen Memofeldes im aktuellen Datensatz angehängt.
Beispiel
Im folgenden Beispiel wird der Inhalt des Memofeldes notes in die Datei Test.txt kopiert. Anschließend wird Test.txt an den Inhalt des Memofeldes angefügt. Abschließend wird der aktuelle Inhalt des Memofeldes durch den Inhalt von Test.TXT ersetzt.
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee && Open Employee table
WAIT WINDOW 'Employee notes memo field - press ESC' NOWAIT
MODIFY MEMO notes NOEDIT && Open the notes memo field
COPY MEMO notes TO test.txt && Create test file from memo field
WAIT WINDOW 'TEST.TXT text file - press ESC' NOWAIT
MODIFY FILE test.txt NOEDIT && Open the text file
WAIT WINDOW 'Employee notes now appended - press ESC' NOWAIT
APPEND MEMO notes FROM test.txt && Add contents of text file
MODIFY MEMO notes NOEDIT && Display memo field again
WAIT WINDOW 'Overwrite Employee notes- press ESC' NOWAIT
APPEND MEMO notes FROM test.txt OVERWRITE && Replace notes
MODIFY MEMO notes NOEDIT NOWAIT
DELETE FILE test.txt