Extraer el texto de una ventana de Chrome (contenido de la pagina web)

63 views
Skip to first unread message

osirisst...@gmail.com

unread,
Feb 24, 2022, 2:37:45 PM2/24/22
to Comunidad de Visual Foxpro en Español
Hola
Quisiera con vox, consultar si esta activa una ventana de un programa externo, como podria ser Chrome, y extraer el contenido de texto de esa ventana.

Habia visto GetWindowText() pero lo que logro extraer es solamente el titulo de la ventana, no el contenido interior.

Alguien tiene una idea al respecto?
Gracias

ArturoPC

unread,
Feb 24, 2022, 2:55:16 PM2/24/22
to Comunidad de Visual Foxpro en Español
Con Chrome no se puede, tienes que usar Internet Explorer.

Zarlu

unread,
Feb 24, 2022, 4:02:45 PM2/24/22
to Comunidad de Visual Foxpro en Español
Buenas tardes osirisstemprlatto!

Con un poco de suerte quizá con esto encuentres tu texto:

unload_file("https://groups.google.com/g/publicesvfoxpro/c/fOpsyBemRMA","c:\aver.htlm")
? FILETOSTR("c:\aver.htlm")
FUNCTION unload_file(pLink,pFile)
        *-api para descarga
        DECLARE INTEGER URLDownloadToFile IN urlmon.dll;
                INTEGER pCaller, STRING szURL, STRING szFileName,;
                INTEGER dwReserved, INTEGER lpfnCB
        LOCAL lcRemoteFile, lcLocalFile, lcResult
        lcRemoteFile = pLink
        lcLocalFile = pFile
        lcResult = URLDownloadToFile(0,lcRemoteFile,lcLocalFile,0,0)
        RETURN lcResult
ENDFUNC

Suerte
zarlu
Chetumal, Quintana Roo, México

Zarlu

unread,
Feb 24, 2022, 5:16:55 PM2/24/22
to Comunidad de Visual Foxpro en Español
Qué tal osirisstemprlatto!

Para que te des una idea de como podría limpiarse el texto:

unload_file("https://groups.google.com/g/publicesvfoxpro/c/fOpsyBemRMA","c:\aver.txt")
lcString=STRCONV(FILETOSTR("c:\aver.txt"),11)
lcIni=OCCURS([<div>],lcString)
lcString=STRTRAN(lcString,"<br>",CHR(13))
FOR a=2 TO lcini
        ? STREXTR(lcString,[<div>],[</div>],a)
Endfor        

FUNCTION unload_file(pLink,pFile)
        *-api para descarga
        DECLARE INTEGER URLDownloadToFile IN urlmon.dll;
                INTEGER pCaller, STRING szURL, STRING szFileName,;
                INTEGER dwReserved, INTEGER lpfnCB
        LOCAL lcRemoteFile, lcLocalFile, lcResult
        lcRemoteFile = pLink
        lcLocalFile = pFile
        lcResult = URLDownloadToFile(0,lcRemoteFile,lcLocalFile,0,0)
        RETURN lcResult
ENDFUNC

Suerte
zarlu
Chetumal, Quintana Roo, México
Reply all
Reply to author
Forward
0 new messages