Beispiel-Programm 2022
Der Inhalt von Internetseiten erfährt einen ständigen Wandel. Insbesondere JavaScript sorgt dafür, dass vieles aus früheren Tagen nicht mehr funktioniert. Wegen der Einfachheit in RFO-BASIC Internetseiten zu untersuchen entstand das Kapitel 11 Daten aus dem Internet. Schon damals war klar, dass einige Beispiele bald nicht mehr funktionieren, da sich der Seitenquelltext ändert. Das Prinzip ist jedoch unverändert geblieben.
Als Beispiel soll die Position des hier aufgeführten eBook aus 2013 in der Liste der Bestseller im Bereich Messtechnik gefunden werden. Ein Screenshot im September 2022 zeigt Rang 5 an.
Das Verfahren zum Erhalt der aktuellen Position ist in diesem BASIC trotz https-Adresse sehr unkompliziert möglich. Anstatt die Seite Bestseller zu untersuchen, ist es einfacher die Position auf der Buch-Seite zu erfragen. Die ASIN führt zur richtigen Seite. In diesem Fall ist das
https://amazon.de/dp/B00CO5TGEK
Der Quelltext der Seite liefert hier vier Fundstellen der Zeichenkette "Nr. ", wobei die zweite Fundstelle die gesuchte Position darstellt. Das Programm besteht also aus den folgenden Schritten:
- GRABURL mit angegebener Adresse aufrufen und Quelltext in A$ speichern
- Position der Zeichenkette "Nr. " in A$ mit IS_IN suchen
- Zweite Position der Zeichenkette "Nr. " in A$ suchen
- Position der Zeichenkette " in " in A$ finden
In diesem Fall sollte "Nr. 5" als Zeichenfolge isoliert worden sein.
!Bestseller ASIN
ASIN$ = "B00CO5TGEK"
GRABURL a$,"https://www.amazon.de/dp/"+ASIN$
x=IS_IN("Nr. ",a$)
a$=MID$(a$,x+1)
x=IS_IN("Nr. ",a$)
a$=MID$(a$,x)
x=IS_IN(" in ",a$)
IF x<1 THEN PRINT "fail"
PRINT MID$(a$,1,x)
_______
Nr. 5