APPEND MEMO (Comando)
Copia a un campo memo el contenido de un archivo de texto.
APPEND MEMO MemoFieldName FROM FileName[OVERWRITE] [AS nCodePage]
Parámetros
MemoFieldName
Especifica el nombre de un campo memo al que se anexa el archivo.FROM FileName
Especifica el archivo de texto cuyo contenido se copia al campo memo. Debe incluir el nombre completo del archivo de texto, incluida la extensión.OVERWRITE
Reemplaza el contenido actual del campo memo por el contenido del archivo.AS nCodePage
Especifica la página de códigos del archivo de texto que se copia al campo memo. Microsoft Visual FoxPro copia el contenido del archivo de texto y, a medida que copia los datos al campo memo, los convierte automáticamente de la página de códigos especificada a la página de códigos de la tabla que contiene el campo memo. Si la tabla que contiene el campo memo no está marcada con una página de códigos, Visual FoxPro convertirá automáticamente los datos de la página de códigos especificada a la página de códigos actual de Visual FoxPro.Si especifica un valor no admitido para nCodePage, Visual FoxPro generará un mensaje de error. Puede utilizar GETCP( ) para que nCodePage muestre el cuadro de diálogo Página de códigos, lo que permite especificar una página de códigos para la tabla o el archivo anexado.
Si omite la cláusula AS nCodePage o si especifica 0 para nCodePage, no se realizará ninguna conversión de página de códigos para el archivo de texto.
Observaciones
Todo el contenido del archivo de texto se anexa al contenido del campo memo especificado en el registro actual si se omite OVERWRITE.
Ejemplo
En el ejemplo siguiente, el contenido del campo memo notes se copiará a un archivo llamado Test.txt. Luego, el contenido de Test.txt se anexa al contenido del campo memo. Finalmente, el contenido de Test.txt reemplaza el contenido actual del campo memo.
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