Page 2 of 5

Re: HMG Forum "Codebox" Reader

Posted: Sun Aug 14, 2022 9:22 am
by serge_girard
Jimmy,

Write own date conversion, I think

Serge

Re: HMG Forum "Codebox" Reader

Posted: Sun Aug 14, 2022 11:15 am
by 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

Re: HMG Forum "Codebox" Reader

Posted: Sun Aug 14, 2022 7:28 pm
by 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

Re: HMG Forum "Codebox" Reader

Posted: Mon Aug 15, 2022 8:19 pm
by 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

Re: HMG Forum "Codebox" Reader

Posted: Wed Aug 24, 2022 3:33 pm
by 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 :idea:

Re: HMG Forum "Codebox" Reader

Posted: Thu Aug 25, 2022 10:38 am
by Rathinagiri
An interesting project! Useful to understand and get data from internet websites!

Re: HMG Forum "Codebox" Reader

Posted: Thu Aug 25, 2022 4:27 pm
by 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 :roll:

Re: HMG Forum "Codebox" Reader

Posted: Fri Aug 26, 2022 6:34 am
by serge_girard
Nothing wrong with 'quick and dirty'!

Re: HMG Forum "Codebox" Reader

Posted: Wed Aug 31, 2022 12:10 am
by 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
FORUMH37.png (69.18 KiB) Viewed 19558 times
i will clean up Source Code and than release it here in Forum.
here new EXE
FORUMHMG_40.zip
(1.71 MiB) Downloaded 360 times
p.s. most of last Work was for FiveWin Forum. for HMG Forum "old" Concept does not make those Problem

Re: HMG Forum "Codebox" Reader

Posted: Thu Sep 01, 2022 12:17 am
by 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