Re: HMG Forum "Codebox" Reader
Posted: Sun Aug 14, 2022 9:22 am
Jimmy,
Write own date conversion, I think
Serge
Write own date conversion, I think
Serge
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Code: Select all
#include "HMG.CH"
PROCEDURE MAIN
SET DATE FORMAT TO 'dd/mm/yyyy'
SET DATE ANSI
fecha1 := DTOC( DATE())
hora := TIME()
fecha2 := SUBSTR( fecha1 , 1, 4)
fecha3 := SUBSTR( fecha1 , 6, 2)
fecha4 := SUBSTR( fecha1 , 9, 2)
msginfo( fecha1 + CRLF + CRLF + HORA )
msginfo( fecha2 + "-"+ fecha3 + "-" + fecha4 + CRLF + CRLF + hora )
Return Nil
Code: Select all
[CONFIGURATIONS]
Row=0
Col=0
Width=1024
Height=800
MemoRow=0
MemoCol=0
MemoWidth=1024
MemoHeight=800
FontSize=16
Code: Select all
aTopic := MarkerPos( '<h3 class="first">', cMemo )
aAuthor := MarkerPos( '<p class="author">', cMemo )
IF "fivetechsupport" $ LOWER( cWorkURL )
aDateTime := MarkerPos( '»', cMemo )
ELSE
aDateTime := MarkerPos( '<time datetime="', cMemo )
ENDIF
aContent := MarkerPos( '<div class="content">', cMemo )
aQouteIn := MarkerPos( '<blockquote>', cMemo )
aQouteOut := MarkerPos( '</blockquote>', cMemo )
aCodeIn := MarkerPos( '<code>', cMemo )
aCodeOut := MarkerPos( '</code>', cMemo )
aEndBody := MarkerPos( '<div id=', cMemo )
Code: Select all
AADD( aBody, { aContent[ ii ] , "StartBody" } )
AADD( aBody, { aQouteIn[ ii ] , "QouteIn" } )
AADD( aBody, { aQouteOut[ ii ], "QouteOut" } )
AADD( aBody, { aCodeIn[ ii ] , "aCodeIn" } )
AADD( aBody, { aCodeOut[ ii ] , "aCodeOut" } )
AADD( aBody, { aEndBody[ ii ] , "EndeBody" } )
aBody := ASORT( aBody,,, { | aX, aY | aX[ 1 ] < aY[ 1 ] } )
Size and Font i use same as for "Code" Window[TRANSLATEWINDOW]
TranslateRow=0
TranslateCol=1024
TranslateCP=DE
Code: Select all
!DELETED()