Visual FoxPro.NET - Agregar mas registros a un archivo

   
Vista:

Agregar mas registros a un archivo

Publicado por Jessi (2 intervenciones) el 22/01/2008 23:04:06
Buenas tardes,

Estoy desarrollando una aplicación y necesito abrir un archivo existente en formato txt y al final del mismo agregar mas información, como puedo hacer esto con visual foxpro, he utilizado las funciones FEOF, FOPEN, y definitivamente no son esas.

Agradezco la ayuda que puedan darme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar mas registros a un archivo

Publicado por Gabriel (20 intervenciones) el 06/02/2008 14:51:19
Amiga Jessi :
1) Te dire que la forma mas simple de abrir desde VFP un archivo de texto es mediante el MODI FILE
Ejemplo :

MODIFY FILE 'archivo.txt'

2) Para correr un programa externo puedes usar Windows Script Host (WSH):

#define SINCRONICO .T.
#define ASINCRONICO .F.
#define SW_SHOW_NORMAL 1
#define SW_SHOW_MINIMIZED 2
#define SW_SHOW_MAXIMIZED 3
oShell = createobject("WScript.Shell")
oShell.Run("notepad.exe miarchivo.txt",SW_SHOW_NORMAL,SINCRONICO)

O usando WinAPI:

3) Aqui te muestro la forma para abrir un archivo de texto desde VFP con el notepad ?

DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
ShellExecute(0, "Open", "notepad.exe", "myfile.txt", "c: emp", 1)

4) Prueba con el comando RUN. Si deseas abrir con WordPad el archivo de texto aqui te indico la forma...

RUN /N "C:Archivos de programaWindows NTAccesorioswordpad.exe"
"C:Documents and SettingsUSUARIOMis documentosarchivo.txt"

Aqui te muestro un link con un ejemplo que talvez ye pueda servir...
http://www.portalfox.com/index.php?name=News&file=article&sid=877&mode=nested&order=0&thold=0

Espero que con estos detallados ejemplos de posibles soluciones a tu problema
logres solucionar tu problema.

Saludos.

Gabriel
(Lima-Perú)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar mas registros a un archivo

Publicado por Claudio escalada (1 intervención) el 14/01/2009 17:10:27
FOPEN(&ArchNomb) && Open file
FSEEK(&ArchNomb,0,2) && Determine file size, assign to pnSize
FWRITE(&ArchNomb,&Registro,1)
FCLOSE(&ArchNomb) && Close file
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar