SetPageHTMLText, SetPageTitle

Share your advanced knowledge/code with the community.
User avatar
eddy
Posts: 124
Joined: Thu Mar 27, 2014 8:34 am

SetPageHTMLText, SetPageTitle

Post by eddy »

:arrow: there's a new version with BASE64 encoding : http://forums.spiderbasic.com/viewtopic ... p=826#p826

- set page title
- set page HTML text (using DATA Uri "text/html")

Remark:
It's lame to type a multiline string but it works :mrgreen:
Later, it could be replaced by EnableJS/DisableJS block when these commands will be fixed

Code: Select all

Procedure SetPageHTMLText(ContentText.s)
  Protected encodedText.s = URLEncoder(ContentText)
  !document.location.replace("data:text/html,"+v_encodedText);
EndProcedure
  
Import ""
  SetPageTitle(Title.s) As "document.title="
EndImport 

CompilerIf   #PB_Compiler_IsMainFile
  ; ***********************************
  ; EXAMPLE - change page title
  ; ***********************************
  SetPageTitle("My page title")
  !alert('Page title has been changed!\nPage content will change...')
  
  ; ***********************************
  ; EXAMPLE - replace page html code
  ; ***********************************
  ;// BOOTSTRAP Page template : http://getbootstrap.com/getting-started/
  
  MenuBar.s="<div class='collapse navbar-collapse' id='bs-example-navbar-collapse-1'>"+
      "<ul class='nav navbar-nav'>"+
        "<li class='active'><a href='#'>Link</a></li>"+
        "<li><a href='#'>Link</a></li>"+
        "<li class='dropdown'>"+
          "<a href='#' class='dropdown-toggle' Data-toggle='dropdown'>Dropdown <b class='caret'></b></a>"+
          "<ul class='dropdown-menu'>"+
            "<li><a href='#'>Action</a></li>"+
            "<li><a href='#'>Another action</a></li>"+
            "<li><a href='#'>Something Else here</a></li>"+
            "<li class='divider'></li>"+
            "<li><a href='#'>Separated link</a></li>"+
            "<li class='divider'></li>"+
            "<li><a href='#'>One more separated link</a></li>"+
          "</ul>"+
        "</li>"+
      "</ul>"
  
  NavBar.s="<nav class='navbar navbar-inverse' role='navigation'>"+
           "<div class='container-fluid'>"+
           "<!-- Brand And toggle get grouped For better mobile display -->"+
           "<div class='navbar-header'>"+
           "<button type='button' class='navbar-toggle' Data-toggle='collapse' Data-target='#bs-example-navbar-collapse-1'>"+
           "<span class='sr-only'>Toggle navigation</span>"+
           "<span class='icon-bar'></span>"+
           "<span class='icon-bar'></span>"+
           "<span class='icon-bar'></span>"+
           "</button>"+
           "<a class='navbar-brand' href='#'>Brand</a>"+
           "</div>"+
           MenuBar+
           "</nav>"
           
  HTMLCode.s="<!DOCTYPE html>"+
             "<html lang='en'>"+
             "  <head>"+
             "    <meta charset='utf-8'>"+
             "    <meta http-equiv='X-UA-Compatible' content='IE=edge'>"+
             "    <meta name='viewport' content='width=device-width, initial-scale=1'>"+
             "    <title>Bootstrap 101 Template</title>"+  
             "    <!-- Bootstrap -->"+
             "    <link href='http://netdna.bootstrapcdn.com/bootstrap/3.1.1/css/bootstrap.min.css' rel='stylesheet'>"+  
             "    <!-- HTML5 Shim And Respond.js IE8 support of HTML5 elements And media queries -->"+
             "    <!-- WARNING: Respond.js doesn''t work If you view the page via file:// -->"+
             "    <!--[If lt IE 9]>"+
             "      <script src='https://oss.maxcdn.com/libs/html5shiv/3.7.0/html5shiv.js'></script>"+
             "      <script src='https://oss.maxcdn.com/libs/respond.js/1.4.2/respond.min.js'></script>"+
             "    <![EndIf]-->"+
             "  </head>"+
             "  <body>"+
             NavBar+
             "    <!-- jQuery (necessary For Bootstrap''s JavaScript plugins) -->"+
             "    <script src='https://ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js'></script>"+
             "    <!-- Include all compiled plugins (below), Or include individual files As needed -->"+
             "    <script src='http://netdna.bootstrapcdn.com/bootstrap/3.1.1/js/bootstrap.min.js'></script>"+
             "  </body>"+
             "</html>"
      
  SetPageHTMLText(HTMLCode)
CompilerEndIf 
Last edited by eddy on Wed Apr 01, 2015 3:30 am, edited 12 times in total.
User avatar
Peter
Posts: 1086
Joined: Mon Feb 24, 2014 10:17 pm
Location: 127.0.0.1:9080
Contact:

Re: SetPageText

Post by Peter »

8-) Thanks!

Greetings ... Peter
User avatar
eddy
Posts: 124
Joined: Thu Mar 27, 2014 8:34 am

Re: SetPageHTMLText, SetPageTitle

Post by eddy »

Updated
- added : SetPageTitle
Post Reply