HMG Forum "Codebox" Reader

[serge_girard]

Jimmy,

Write own date conversion, I think

Serge

[mustafa]

Hi Jimmy:
possible date conversion?

https://vivaclipper.wordpress.com/2014/01/19/set-date/

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

Regards

Mustafa

[AUGE_OHR]

hi,

have forgot to say that CONFIG.INI was create

Code: Select all

[CONFIGURATIONS]
Row=0
Col=0
Width=1024
Height=800

MemoRow=0
MemoCol=0
MemoWidth=1024
MemoHeight=800
FontSize=16

1-4 belong to MAIN Window. other are CODE Window
when Row=0 and Col=0 Windows will be CENTER

p.s. minimum Width = 800 and Height = 500

[AUGE_OHR]

hi

this Version can "better" handle "other" PhpBB Forum like Xbase++ Forum or Fivewin Forum

FORUMHMG_23.zip

(1.55 MiB) Downloaded 396 times

! Note : delete CONFIG.INI as a new enhanced File will be create

[AUGE_OHR]

hi,

i found a Problem to get "new" Mail of "old" Thread ...

when press F7 it will get "next" 100 Thread but there can be a "New" Message of "old" Thread
so i have to start with "old" Number ... but which "old" Number(s) ...

the only Way seems to start from 1 (it will seek for Dupe Date/Time)
is there any other Way

[Rathinagiri]

An interesting project! Useful to understand and get data from internet websites!

[AUGE_OHR]

hi Rathinagiri,

I don't dare to publish the CODE which "analyze" a Website ... it is "quick and dirty" from an Internet Dummy

[serge_girard]

Nothing wrong with 'quick and dirty'!

[AUGE_OHR]

hi,

i "think" a have a Solution to "analyze" Message

Code: Select all

   aTopic := MarkerPos( '<h3 class="first">', cMemo )
   aAuthor := MarkerPos( '<p class="author">', cMemo )
   IF "fivetechsupport" $ LOWER( cWorkURL )
      aDateTime := MarkerPos( '&raquo;', 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 )

i do ADD all to aBody and sort Position

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 ] } )

now i do search for "Marker" and than "strip" HTML from Body / CODE

---

why that Way :

a Message begin with '<div class="content">' and End is '</div>' ... but there are more
you also can have '<blockquote>' and '</blockquote>' ... "<code>" and "</code>" ...

while it can be many "Quote" and "Code" i had Problem before when try to work with MEMOLINE()

now it seems to work "better" as i got "more than 1 x "Quote" oder "Code" and no "Code" in "Body" any more

---

Thx Edward for Code to "translate" Body of Message, it work PERFECT !

for this i have add it in CONFIG.INI so please delete "old" Version

[TRANSLATEWINDOW]
TranslateRow=0
TranslateCol=1024
TranslateCP=DE

Size and Font i use same as for "Code" Window
please change TranslateCP to your Codepage e.g. EN, ES, PL etc

---

as i have "new" Entry in HTMLSIGN.DBF please delete "old" DBF, it will be create new

have change Design with bigger "Body" Windows

FORUMH37.png (69.18 KiB) Viewed 19551 times

i will clean up Source Code and than release it here in Forum.
here new EXE

FORUMHMG_40.zip

(1.71 MiB) Downloaded 359 times

p.s. most of last Work was for FiveWin Forum. for HMG Forum "old" Concept does not make those Problem

[AUGE_OHR]

hi,

i last version i use "in" FILTER

Code: Select all

!DELETED()

which slow down BROWSE

please wait for next Version include Source Code which i have clean up