topic-41651

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Download from televideo
Posted: Thu Apr 14, 2022 09:43 AM

I have this link from Televideo ( Televideo is the name of the teletext service started by Italian Rai Television since 1984)

http://www.televideo.rai.it/televideo/p ... pagina=786

I wish take this area

and converte it on array automatically

how could this be done?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Download from televideo
Posted: Thu Apr 14, 2022 10:15 PM

I tried with

Code (fw): Select all Collapse

Function TestUrl(cUrl)
   local  cRet := WebPageContents( cUrl )
   local cFile:="test.txt"
    if Empty( cRet )
      ? "Invalid URL"
     else
       ? cRet
      endif
      memoedit( cRet )
return nil

How I canto save that part of cRet ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

ADutheil

Posts: 368

Joined: Sun May 31, 2009 06:25 PM

Re: Download from televideo
Posted: Fri Apr 15, 2022 03:44 PM

Code (fw): Select all Collapse

Function TestUrl( cUrl )
   local  cRet := WebPageContents( cUrl )
   local cFile := "test.txt"
   LOCAL cBuff
   LOCAL nHndl
   LOCAL aShow
   LOCAL nI
   
    if Empty( cRet )
      ? "Invalid URL"
    else
        cRet := subStr( cRet, at( "BARI", cRet ) )
        cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) )
    
        nHndl := fCreate( cFile )
        fWrite( nHndl, cRet )
        fClose( nHndl )
        IF ( nHndl := fOpen( cFile ) ) < 1
            msgStop( "UNABLE TO OPEN: " + cFile  )
        ELSE
            aShow := {}
            WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0
                cBuff := allTrim( cBuff )
                IF ! empty( cBuff )
                    aAdd( aShow, {} )
                    aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) )
                    FOR nI := 12 TO 28 STEP 4
                        aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) )
                    NEXT
                ENDIF
            ENDDO
            xBrowse( aShow )
        ENDIF   
    endif
return nil

Regards,

André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Download from televideo
Posted: Fri Apr 15, 2022 04:33 PM

ADutheil wrote:

Code (fw): Select all Collapse

Function TestUrl( cUrl )
   local  cRet := WebPageContents( cUrl )
   local cFile := "test.txt"
   LOCAL cBuff
   LOCAL nHndl
   LOCAL aShow
   LOCAL nI
   
    if Empty( cRet )
      ? "Invalid URL"
    else
        cRet := subStr( cRet, at( "BARI", cRet ) )
        cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) )
    
        nHndl := fCreate( cFile )
        fWrite( nHndl, cRet )
        fClose( nHndl )
        IF ( nHndl := fOpen( cFile ) ) < 1
            msgStop( "UNABLE TO OPEN: " + cFile  )
        ELSE
            aShow := {}
            WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0
                cBuff := allTrim( cBuff )
                IF ! empty( cBuff )
                    aAdd( aShow, {} )
                    aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) )
                    FOR nI := 12 TO 28 STEP 4
                        aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) )
                    NEXT
                ENDIF
            ENDDO
            xBrowse( aShow )
        ENDIF   
    endif
return nil

thanks very good

I need also the date and I made
local cData := WebPageContents( cUrl )

cData := subStr( cData, at( "ALMANACCO", cData )+9 )
cData := allTrim( subStr( cData, 1, at("BARI", cData ) -1 ) )

XBROWSER aShow title "Estrazione del "+ cdata

Run ok but I not Know if it 's Right!!!

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion