Mandar texto a otra aplicacion

[Mike Serra]

Buenos días foro,

tendreis por ahí (si se puede) algún ejemplo donde desde un programa en FWH pueda activar el NotePad (por ejemplo) y decirle que escriba algún texto automaticamente. Sería como activar una ventana y mandarle una cadena . . .

Muchas gracias.

[Willi Quintana]

Usa estos comando, te permitem crear archivos a bajo nivel...

cFile := "TMP\prueba.txt"
aCadena := "esta es una prueba" + CRLF
acadena += "para crear archivos en bajo nivel, de cualquier tipo"
aCadena += "en esta caso un archivo tipo TXT"

oHand := FCreate( cFile ) // creamos el archivo con un handle
FWRITE(oHand, aCadena) // escribimos el contenido en el archivo
FCLose(oHand) /7 cerramos el handle

zas... es archivo txt esta listo..

Salu2

[FranciscoA]

Buenos días foro,

tendreis por ahí (si se puede) algún ejemplo donde desde un programa en FWH pueda activar el NotePad (por ejemplo) y decirle que escriba algún texto automaticamente. Sería como activar una ventana y mandarle una cadena . . .

Muchas gracias.

Mike: Aqui tienes un ejemplo funcional.

//---------------------------Escribir en un fichero txt
Function CrlProceso(cCadena)
local cFile := ".\proceso.txt", nHand
local cCad:=Dtoc(date())+" "+time()+": "+cCadena
local FO_READWRITE:=2, FO_SHARED:=64 , FS_END:=2 //Fileio.ch

if !file(cFile)
nHand := FCreate( cFile ) // creamos el archivo
FWrite(nHand, cCad + CRLF+"") // escribimos en el archivo
FClose(nHand) // cerramos el fichero
else
nHand := FOpen( cFile, FO_READWRITE + FO_SHARED ) // abrimos el fichero lect-escrit-compartido
FSeek(nHand, 0, FS_END) // nos colocamos al final del fichero
FWrite(nHand, cCad + CRLF+"") // escribimos en el fichero
FClose(nHand) // cerramos el fichero
endif

//Si deseas abrirlo:
//WinExec("NotePad.exe "+cFile) //u otra funcion para el caso.

SysRefresh()

Return nil

Saludos.