Loading ...
Sorry, an error occurred while loading the content.

Images to HTML clip

Expand Messages
  • Mike Breiding
    Greetings, Below is the Images to HTML clip I have modified to my liking. ( See: http://mbreiding.us/hosta_id/ ) When ever I run the clip I get a flash of the
    Message 1 of 3 , May 6, 2006
    • 0 Attachment
      Greetings,

      Below is the Images to HTML clip I have modified to my liking. ( See:
      http://mbreiding.us/hosta_id/ )
      When ever I run the clip I get a flash of the black DOS box and then the
      page is generated.
      Apparently without errors.
      Is this normal or have i introduced a error into the clip.

      I am running XP Pro SP2.

      Thanks,
      -Mike
      -------------------------------------
      ImagestoHTML

      ;This Clip will create a web page based on all the images that match the
      specified criteria. You can then easily preview all the images in your
      favorite browser

      ;Prompt user with Clip wizard to determine which image files should be
      listed and how the page should be built

      ^!Set %PageTitle%=^?{Page title=Images}; %FileName%=^?{Web page file name
      (no path or extension)=Images}; %Directory%=^?{(T=D)Directory to search};
      %Specs%=^?{File Specs=*.gif;*.png;*.jpg}; %Sorting%=^?{(T=C)File
      sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)Descending
      order==Yes^=Rev|_No^=}

      ;End procedure if the user canceled the Clip wizard
      ^!IfCancel Exit

      ^!SetPasteIndent Off
      ;Set variable for sorting parameter
      ^!Set %Sorting%=^%Reverse%^%Sorting%
      ;Close the output file if there is one open in NoteTab
      ^!Close "^%Directory%^%FileName%.htm"
      ;Create a new document with specified name for web page
      ^!Set %KeepNameFormat%=^$GetNameFormat$
      ^!SetNameFormat ^%Directory%^%FileName%.htm
      ^!ToolBar New Document
      ^!SetNameFormat ^%KeepNameFormat%
      ;Turn word wrap off
      ^!SetWordWrap OFF
      ;Insert web page header and title
      ^!InsertHtml <HTML>^P<HEAD>^P<TITLE>^%PageTitle%</TITLE>^P<style
      type="text/css">H1 {margin-bottom: 0px} H2 {margin-top: 0px}p {text align:
      left; margin-top: 0px; font: 100%/1.3 Georgia,'Times New
      Roman',Times,serif} #image img {padding:0px; border: solid #000 1px}#image
      {margin-bottom: 40px}div#footer
      {clear:both;color:#fff;background:#96A274;border:none;font:90% Georgia,
      "Times New Roman", Times, serif;margin:0 auto;padding:10px
      0;text-align:center;width:100%;}div#footer a:link, div#footer
      a:visited{color:#FFF;margin:0;padding: 0;padding-left: 3px; padding-right:
      6px}div#footer a:hover {color:#000;margin:0;padding: 0;padding-left: 3px;
      padding-right: 6px}</style></HEAD>^P<BODY>^P<CENTER>^P^p<div
      id="wrapper">^p^p<div
      id="title">^p<h1>Title</h1>^p<h2>SubTitle</h2>^p</div>^p<div id="main">
      ;Retrieve first image name that matches specified search criteria
      ^!Set %ImageFullName%=^$GetFileFirst(^%Directory%;"^%Specs%";^%Sorting%)$
      :StartLoop
      ;If the image name is empty (no more matching files), leave the loop
      ^!IfTrue ^$IsEmpty(^%ImageFullName%)$ ExitLoop
      ;Copy image name without path to variable
      ^!Set %ImageName%=^$GetFileName(^%ImageFullName%)$
      ;Copy image width and height information into variables
      ;^!Set %ImgWidth%=^$GetImgWidth(^%ImageFullName%)$;
      %ImgHeight%=^$GetImgHeight(^%ImageFullName%)$
      ;Insert image tag and information into document
      ^!InsertText ^p^p
      ^!InsertHtml <div id="image">
      ^!InsertHtml <IMG SRC="^$StrLower("^%ImageName%")$" >


      ^!InsertText ^p^p
      ^!InsertHtml <P>*****COMMENTS******</p>
      ^!InsertHtml </div>
      ;Get next matching image name and go back to start of loop
      ^!Set %ImageFullName%=^$GetFileNext$
      ^!GoTo StartLoop

      :ExitLoop
      ;Close the file-find variable to restore system resources
      ^!CloseFileFind
      ;Insert line break after last image tag
      ^!InsertText ^P
      ;close MAIN div
      ^!InsertHtml </div>^p ^p

      ;Insert footer
      ^!InsertHtml <div id="footer">

      ^!InsertHtml <p>Photo and text © <a
      href="mailto:%6d%69%6b%65%40%6d%62%72%65%69%64%69%6e%67%2e%75%73">Mike
      Breiding</a> ^$GetDate(mmmm dd, yyyy -- tt)$</p>

      ^!InsertHtml </div> ^p


      ;close WRAPPER div
      ^!InsertHtml </div> ^p
      ^!InsertHtml</BODY>^P</HTML>^P



      ;Place cursor back to top of page
      ^!Jump Text_Start


      [Non-text portions of this message have been removed]
    • Sheri
      Hi Mike, Seems you failed to have a space between one of your clip commands and its parameters, so your clip seems to be is trying to run a program by that
      Message 2 of 3 , May 7, 2006
      • 0 Attachment
        Hi Mike,

        Seems you failed to have a space between one of your clip commands
        and its parameters, so your clip seems to be is trying to run a
        program by that name.

        ^!InsertHtml</BODY>^P</HTML>^P

        Regards,
        Sheri


        --- In ntb-clips@yahoogroups.com, Mike Breiding <gwlist@...> wrote:
        >
        >
        > Greetings,
        >
        > Below is the Images to HTML clip I have modified to my liking. (
        See:
        > http://mbreiding.us/hosta_id/ )
        > When ever I run the clip I get a flash of the black DOS box and
        then the
        > page is generated.
        > Apparently without errors.
        > Is this normal or have i introduced a error into the clip.
        >
        > I am running XP Pro SP2.
        >
        > Thanks,
        > -Mike
        > -------------------------------------
        > ImagestoHTML
        >
        > ;This Clip will create a web page based on all the images that
        match the
        > specified criteria. You can then easily preview all the images in
        your
        > favorite browser
        >
        > ;Prompt user with Clip wizard to determine which image files should
        be
        > listed and how the page should be built
        >
        > ^!Set %PageTitle%=^?{Page title=Images}; %FileName%=^?{Web page
        file name
        > (no path or extension)=Images}; %Directory%=^?{(T=D)Directory to
        search};
        > %Specs%=^?{File Specs=*.gif;*.png;*.jpg}; %Sorting%=^?{(T=C)File
        > sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)
        Descending
        > order==Yes^=Rev|_No^=}
        >
        > ;End procedure if the user canceled the Clip wizard
        > ^!IfCancel Exit
        >
        > ^!SetPasteIndent Off
        > ;Set variable for sorting parameter
        > ^!Set %Sorting%=^%Reverse%^%Sorting%
        > ;Close the output file if there is one open in NoteTab
        > ^!Close "^%Directory%^%FileName%.htm"
        > ;Create a new document with specified name for web page
        > ^!Set %KeepNameFormat%=^$GetNameFormat$
        > ^!SetNameFormat ^%Directory%^%FileName%.htm
        > ^!ToolBar New Document
        > ^!SetNameFormat ^%KeepNameFormat%
        > ;Turn word wrap off
        > ^!SetWordWrap OFF
        > ;Insert web page header and title
        > ^!InsertHtml <HTML>^P<HEAD>^P<TITLE>^%PageTitle%</TITLE>^P<style
        > type="text/css">H1 {margin-bottom: 0px} H2 {margin-top: 0px}p {text
        align:
        > left; margin-top: 0px; font: 100%/1.3 Georgia,'Times New
        > Roman',Times,serif} #image img {padding:0px; border: solid #000 1px}
        #image
        > {margin-bottom: 40px}div#footer
        > {clear:both;color:#fff;background:#96A274;border:none;font:90%
        Georgia,
        > "Times New Roman", Times, serif;margin:0 auto;padding:10px
        > 0;text-align:center;width:100%;}div#footer a:link, div#footer
        > a:visited{color:#FFF;margin:0;padding: 0;padding-left: 3px; padding-
        right:
        > 6px}div#footer a:hover {color:#000;margin:0;padding: 0;padding-
        left: 3px;
        > padding-right: 6px}</style></HEAD>^P<BODY>^P<CENTER>^P^p<div
        > id="wrapper">^p^p<div
        > id="title">^p<h1>Title</h1>^p<h2>SubTitle</h2>^p</div>^p<div
        id="main">
        > ;Retrieve first image name that matches specified search criteria
        > ^!Set %ImageFullName%=^$GetFileFirst(^%Directory%;"^%Specs%";^%
        Sorting%)$
        > :StartLoop
        > ;If the image name is empty (no more matching files), leave the loop
        > ^!IfTrue ^$IsEmpty(^%ImageFullName%)$ ExitLoop
        > ;Copy image name without path to variable
        > ^!Set %ImageName%=^$GetFileName(^%ImageFullName%)$
        > ;Copy image width and height information into variables
        > ;^!Set %ImgWidth%=^$GetImgWidth(^%ImageFullName%)$;
        > %ImgHeight%=^$GetImgHeight(^%ImageFullName%)$
        > ;Insert image tag and information into document
        > ^!InsertText ^p^p
        > ^!InsertHtml <div id="image">
        > ^!InsertHtml <IMG SRC="^$StrLower("^%ImageName%")$" >
        >
        >
        > ^!InsertText ^p^p
        > ^!InsertHtml <P>*****COMMENTS******</p>
        > ^!InsertHtml </div>
        > ;Get next matching image name and go back to start of loop
        > ^!Set %ImageFullName%=^$GetFileNext$
        > ^!GoTo StartLoop
        >
        > :ExitLoop
        > ;Close the file-find variable to restore system resources
        > ^!CloseFileFind
        > ;Insert line break after last image tag
        > ^!InsertText ^P
        > ;close MAIN div
        > ^!InsertHtml </div>^p ^p
        >
        > ;Insert footer
        > ^!InsertHtml <div id="footer">
        >
        > ^!InsertHtml <p>Photo and text © <a
        > href="mailto:%6d%69%6b%65%40%6d%62%72%65%69%64%69%6e%67%2e%75%
        73">Mike
        > Breiding</a> ^$GetDate(mmmm dd, yyyy -- tt)$</p>
        >
        > ^!InsertHtml </div> ^p
        >
        >
        > ;close WRAPPER div
        > ^!InsertHtml </div> ^p
        > ^!InsertHtml</BODY>^P</HTML>^P
        >
        >
        >
        > ;Place cursor back to top of page
        > ^!Jump Text_Start
        >
        >
        > [Non-text portions of this message have been removed]
        >
      • Mike Breiding
        ... Yep - that was the culprit. Thanks! -Mike [Non-text portions of this message have been removed]
        Message 3 of 3 , May 7, 2006
        • 0 Attachment
          At 10:10 AM 5/7/2006 , Sheri wrote:
          >Hi Mike,
          >
          >Seems you failed to have a space between one of your clip commands
          >and its parameters, so your clip seems to be is trying to run a
          >program by that name.
          >
          >^!InsertHtml</BODY>^P</HTML>^P
          >
          >Regards,
          >Sheri


          ----------

          Yep - that was the culprit.

          Thanks!
          -Mike


          [Non-text portions of this message have been removed]
        Your message has been successfully submitted and would be delivered to recipients shortly.