Post by ezmoney on Mar 2, 2013 6:34:27 GMT -5
I convert everything to lower case at the
ret$=lower$(httpget(git$))
the problem is when I change the git$ from 1 page to the page 2 I get the same return...
Thus for some reason url$ page 1 is returned regardless of the page number.. that is the issue..
Any operations below the Fetch httpget(git$) would not effect what was returned.
I search for the url link which is rather lenthy...as it contains the url address..
Generally the web site address is in the link.
And if there are non found.. I'm done... I'm out of that search.
Each record has a begning the "http://www.abcdefghijklmnopqrst....xyz"
and an ends generally "</a>"
somewhere in that record between "http" and "</a>" is a quote mark thus the link is
search$="http://www.thesearchsiteaddress"
v=0
[again]
ifr=instr(url,ドルsearch,ドルv)
if ifr<1 then [nxturl] ' if not found then i'm done search is over...
v=ifr+len(search$)+1 ' this moves the search to the next search point
ito=instr(url,ドル"</a>",v) ' find the end string from last point v
if ito<1 then [nxturl] 'there is no end to the record for some reason malformed or..
v=ito 'move the v pointer up to the last search found.
print " found end of record at=";ito
the return of the link and what comes after it is..
ret$= mid$(url,ドルifr,ito-ifr) 'assign to ret$
'find the quote mark..
iqt=instr(ret,ドルchr$(34),0) ' quoto mark position
if iqt<1 then [skipprt] ' no qoute market skip it must be a malformed link.
lnk$=left$(ret,ドル(iqt-1)) ' the web link is everything left$ of the quote mark
dis$=right$(ret,ドル(len(ad$)-iqt-1)) ' the text or discription is everything to the right.
dis$=ascii$(dis$) ' this function cleans up all the unprintables
print st$;" ";lnk$;space$(5);dis$ ' this forms the new record to save.
rc=rc+1 ' this counts the records for the input link page
trc=trc+1 ' this counts the total records found
print #4,st$;" ";lnk$;space$(5);dis$;" ";date$("yyyy/mm/dd") 'this saves output in file 4
[skipprt]
after development and all is working i make the extra prints comments and if anything
is funny looking later i can quickly bring them back into the printing and see more of what is happening.