dissecting a string

[metro]

looking for some help in doing this more eloquently, each day I select a cell's worth of data from here www.morningstar.com.au/Stocks/CorpCalendar

I'm looking to display the result in a more meaningful way and hoped to get some constructive criticism of my current approach.

struggling with a little brain fog ATM

so far I can only think of one approach I  will then insert each event into a database of selection criteria for stocks to watch

thanks in advance


mystring$ ="AGM: IFT, LCY, PYG Books Close: AGL, BFG, SGR, TAH Div Ex Date: ANZPD, DHG, HGH, JBH, KOV, NCM, QBE Div Pay Date: CGFPB, GCM Report (Annual): ADA*, AIA*, AIZ*, AMT*, APD*, APT*, BGT*, CAF*, CAN*, CVF*, CVW*, EBO*, ECL*, EVS*, FLT*, FSA*, GCM*, GDF*, GDG*"
mystring$ =mystring$ + ", HPI*, IDX*, IMF*, ISD*, JIN*, LAU*, MAM*, NCC*, NSC*, NST*, OZG*, PAF*, PSQ*, SGP*, WEB*, WIC*, WTP* Report (Interim): APO*, ARQ*, AWC*, BLY*, CYC*, HGO*, IBX*, IRE*, NZM*, STO*, TFL*, VPR*, VVR* Report (Prelim): ADA*, AIA*, AIZ*, AMT*, APD*, APT*, ARA*"
mystring$ =mystring$ + ", BGT*, CAF*, CAN*, CGR*, CLH*, CMW*, CVF*, CVW*, DDT*, EBO*, ECL*, EMB*, EPW*, EVS*, EVT*, FLT*, FSA*, GCM*, GDF*, GDG*, GLB*, HPI*, HZN*, IDX*, IEL*, IMF*, ISD*, KSC*, LAU*, MAM*, MCE*, NAC*, NCC*, NEC*, NSC*, NST*, NVO*, NWH*, OZG*, PAF*, PBP*, "
mystring$ =mystring$ + ",PPC*, PSQ*, PTM*, PWH*, QAN*, QUB*, RBL*, RMC*, S32*, SGP*, SPZ*, SSG*, SXL*, TGG*, VRL*, VVR*, WAT*, WEB*, WIC*, WTP*, ZER"


AGM$= upto$(mystring$,"Books Close:")
print AGM$

BooksClosed$=  after$(mystring$,AGM$)
BooksClosed$=  upto$(BooksClosed$," Div Ex Date:")
print BooksClosed$

DivExdate$=after$(mystring$,BooksClosed$)
DivExdate$=Upto$(DivExdate$,"Div Pay Date:")
print DivExdate$

DivPaydate$= after$(mystring$,DivExdate$)
DivPaydate$= upto$(DivPaydate$,"Report (Annual):")
print DivPaydate$

ReportAnnual$= after$(mystring$,DivPaydate$)
 ReportAnnual$= upto$(ReportAnnual$,"Report (Interim):")
 print ReportAnnual$



[Rod]

So it is a database. The data model is Event,CoName and Date. So yyyymmdd,event,name From that you can extract any query.

[metro]

Thanks Rod, EvDate , EvType, Ticker 
That way I can search by date or Ticker or even event.
It all helps when deciding what to buy.
No point buying the day before a stock goes ex dividend as historically the majority loose their Div value plus franking credits down here.
On the day they go exdiv
I appreciate you taking a look.
The brains a bit fried ATM dealing with the passing of my father

[meerkat]

Laurie how about something like this??
evDate$ = "2019-08-01"
mystring$ ="AGM: IFT, LCY, PYG Books Close: AGL, BFG, SGR, TAH Div Ex Date: ANZPD, DHG, HGH, JBH, KOV, NCM, QBE Div Pay Date: CGFPB, GCM Report (Annual): ADA*, AIA*, AIZ*, AMT*, APD*, APT*, BGT*, CAF*, CAN*, CVF*, CVW*, EBO*, ECL*, EVS*, FLT*, FSA*, GCM*, GDF*, GDG*"
et$ = word$(mystring$,1,":")
for i = 2 to len(mystring$)
a$ = word$(mystring$,i,":")
if a$ = "" then exit for
j1 = 0
for j = 1 to len(a$)
j = instr(a$,",",j+1)  
if j = 0 then exit for
j1 = j
next j
a1$ = left$(a$,j1)
a2$ = mid$(a$,j1 + 1)
print i;" ";i;" et:";et$;": ";a1$;"-->";a2$
for j = 1 to len(a1$)
tkr$ = trim$(word$(a1$,j,","))
if tkr$ = "" then exit for
sql$ = "INSERT INTO stocks VALUES('";evDate$;"','";et$;"','";tkr$;"')"
print sql$
next j
et$ = trim$(a2$)
next i
print "------------ Thats all folks -----------------------"


Good luck.. Hope it works..
Dan

[metro]

Crikey, I'm gobsmacked how quickly you can see a solution Dan.
Thanks yet again, reckon I owe you a Darwin stubbie for this one.
I know it's hot in California so the challenge maybe to beat Norman's record for downing one

Norman

Laurie

[meerkat]

G'day Laurie.
Wish I could down one. Actually one of those would put me down.
I know exactly what my limit is, unfortunately I always pass out before I get to it..
Ya.. hot again. and we have fires again.

Good luck with the code..
Dan..