電子書籍用プログラム　◆RSS情報取得用外部関数（demo-sub1.bas)

fn.def fdget1$(fdn1$,fdu1$)

outhtmlk$="\n"
outhtml$=outhtml$+"<html>"+outhtmlk$
outhtml$=outhtml$+"  <head>"+outhtmlk$
outhtml$=outhtml$+""+outhtmlk$
outhtml$=outhtml$+"  <meta http-equiv=\"content-type\" content=\"text/html;charset=UTF-8\"/>"+outhtmlk$
outhtml$=outhtml$+""+outhtmlk$
outhtml$=outhtml$+"    <script type=\"text/javascript\" src=\"https://www.google.com/jsapi\"></script>"+outhtmlk$
outhtml$=outhtml$+"    <script type=\"text/javascript\">"+outhtmlk$
outhtml$=outhtml$+" "+outhtmlk$
outhtml$=outhtml$+"    google.load(\"feeds\", \"1\");"+outhtmlk$
outhtml$=outhtml$+" "+outhtmlk$
outhtml$=outhtml$+"    function initialize() {"+outhtmlk$
outhtml$=outhtml$+"      var rssadr = \"@feedurl@\";"+outhtmlk$
outhtml$=outhtml$+"      var feed = new google.feeds.Feed(rssadr);"+outhtmlk$
outhtml$=outhtml$+"      feed.setNumEntries(10);"+outhtmlk$
outhtml$=outhtml$+"      feed.load(function(result) {"+outhtmlk$
outhtml$=outhtml$+"        if (!result.error) {"+outhtmlk$
outhtml$=outhtml$+"          var container = document.getElementById(\"feed\");"+outhtmlk$
outhtml$=outhtml$+"          var aaa = \"\";"+outhtmlk$
outhtml$=outhtml$+"          for (var i = 0; i < result.feed.entries.length; i++) {"+outhtmlk$
outhtml$=outhtml$+"            var entry = result.feed.entries[i];"+outhtmlk$
outhtml$=outhtml$+"            var div = document.createElement(\"div\");"+outhtmlk$
outhtml$=outhtml$+"            div.appendChild(document.createTextNode(entry.title));"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + entry.title;"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + \"@x@\";"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + entry.link;"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + \"@x@\";"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + \"【@feedname@】\";"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + entry.contentSnippet;"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + \"@x@\";"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + entry. publishedDate;"+outhtmlk$
outhtml$=outhtml$+"            aaa = aaa + \"@y@\";"+outhtmlk$
outhtml$=outhtml$+"            container.appendChild(div);"+outhtmlk$
outhtml$=outhtml$+"          }"+outhtmlk$
outhtml$=outhtml$+"         Android.dataLink(aaa); "+outhtmlk$
outhtml$=outhtml$+"        }"+outhtmlk$
outhtml$=outhtml$+"      });"+outhtmlk$
outhtml$=outhtml$+"    }"+outhtmlk$
outhtml$=outhtml$+"    google.setOnLoadCallback(initialize);"+outhtmlk$
outhtml$=outhtml$+"    </script>"+outhtmlk$
outhtml$=outhtml$+"  </head>"+outhtmlk$
outhtml$=outhtml$+"</script>"+outhtmlk$
outhtml$=outhtml$+"  <body>"+outhtmlk$
outhtml$=outhtml$+""+outhtmlk$
outhtml$=outhtml$+"RSSフィード @feedname@ 抽出中<br>"+outhtmlk$
outhtml$=outhtml$+"    <div id=\"feed\"></div>"+outhtmlk$
outhtml$=outhtml$+"  </body>"+outhtmlk$
outhtml$=outhtml$+"</html>"+outhtmlk$


outhtml$=replace$(outhtml$,"@feedurl@",fdu1$)
outhtml$=replace$(outhtml$,"@feedname@",fdn1$)


HTML.OPEN

HTML.LOAD.string outhtml$


! loop until data$ is not ""

DO
 HTML.GET.DATALINK data$
UNTIL data$ <> ""

type$ = LEFT$(data$, 4)

data$ = MID$(data$,5)

! Act on the data type
! Shown are all the current data types

SW.BEGIN type$

 ! Back Key hit.
 ! if we can go back then do it
 SW.CASE "BAK:"
  PRINT "BACK key: " + data$
  popup "強制終了します",0,0,0
  html.close
  pause 2000
  exit
  SW.BREAK

 ! A hyperlink was clicked on
 SW.CASE "LNK:"
  PRINT "Hyperlink selected: "+ data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 5000
  html.close
  exit

  SW.BREAK

 ! An error occured
 SW.CASE "ERR:"
  PRINT "Error: " + data$
  popup "エラーが発生しました 終了します",0,0,0
  pause 2000
  html.close
  exit
  SW.BREAK

 ! User data returned
 SW.CASE "DAT:"
!  PRINT "User data: " + data$

  ! Check for Exit
  IF data$ = "Exit"
   PRINT "User ended demo."
   HTML.CLOSE
   popup "想定外のデータ受信 強制終了します",0,0,0
   pause 5000
   exit
  else
   msx$=data$+" が選択されました"
   popup msx$,0,0,0
   html.close
   pause 2000
  ENDIF
  SW.BREAK

 ! Form data returned.
 ! Note: Form data returning
 ! always exits the html.

 SW.CASE "FOR:"
  PRINT "Form data: "+data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 2000
  HTML.CLOSE
  exit
  SW.BREAK


 SW.DEFAULT
  PRINT "Unexpected data type:", type$ + data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 2000
  HTML.CLOSE
  exit

SW.END

fn.rtn data$

fn.end