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

H=HTML Table from Tab Delimited File

Expand Messages
  • Jody
    Hi All, I was bored and getting of doing a lot of support eMail so I took a break and made a few Clips. :) The following Clips will make a table from a tab
    Message 1 of 1 , Aug 12, 2005
      Hi All,

      I was bored and getting of doing a lot of support eMail so I took
      a break and made a few Clips. :) The following Clips will make a
      table from a tab delimited file and uses CSS for enhancement.

      <--- Copy below this line --->
      H=HTML Table from Tab Delimited File
      ; eMailed on 06-01-2005, ntb-clips@yahoogroups.com, Jody
      ; notetab.net, clean-funnies.com, sojourner.us, purewords.org
      ; http://www.fookes.us http://www.sojourner.us/software
      ; Run this Clip 1st and read ;comments before using.

      ^!Jump 1
      ^!InsertText <table>
      ^!InsertText ^p <tr>^p <td>^p
      ; If CSS wrapper Clip is used (below), then comment line above
      ; and un-comment line below.
      ; ^!InsertText ^p <tr>^p <td class="border">^p
      ^!Goto td

      :tr
      ^!Jump Line_End
      ^!InsertText ^p </td>^p </tr>^p <tr>^p <td>
      ; If CSS wrapper Clip is used (below), then comment line above
      ; and uncomment line below.
      ; ^!InsertText ^p </td>^p </tr>^p <tr>^p <td class="border">
      ^!Set %EndRow%=0
      :td
      ^!Find "^t" S
      ^!IfError EndTable
      ^!Set %Calc%=^$Calc(^%CurrentRow%+1)$
      ^!IfTrue ^$StrCount("^%Tab%";"^$GetTextEol$";0;0)$ Next else Skip
      ^!Set %EndRow%=1
      ^!InsertText ^p </td>^p <td>^p
      ; If CSS wrapper Clip is used (below), then comment line above
      ; and uncomment line below.
      ; ^!InsertText ^p </td>^p <td class="border">^p
      ^!IfTrue ^%EndRow% tr
      ^!Goto td

      :EndTable
      ^!Replace " <tr>^P <td>" >> "</table>" SB
      ^!Replace " <tr>^P <td class="border">" >> "</table>" SB


      H=HTML Table - Wrap for CSS - Tab Delimited, Do a Ctrl+A to Select All
      ; Do a Ctrl+A to Select all, or use the Select all icon or menu item, etc.
      ; Wraps the HTML code in the Clip above. The /*...*/ means it is
      ; commented out, not used. I put a few different choices of color
      ; to use. Just add and remove then as desired.
      <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
      <html>
      <head>
      <title>

      </title>
      <style type="text/css">
      body
      {
      margin-top: 0px;
      /*margin-bottom: 0px;*/
      /*margin-left: 0px;*/
      /*margin-right: 0px;*/
      }
      table
      {
      margin-top: 5px;
      margin-bottom: 5px;
      margin-left: 200px;
      /*margin-right: 200px;*/
      }
      td.border
      {
      font-family: Tahoma, "MS Sans Serif";
      font-style: normal;
      font-size: 14px;
      color: #000000;
      border: 1px solid #e1e1e1;
      /*border: 1px solid #ff9966;*/
      /*border: 1px solid #d5eaff;*/
      padding: 2px;
      text-align: left;
      }
      </style>
      </head>

      <body>

      ^$GetSelection$

      <p><br></p>
      </body>
      </html>


      H=_GetTextEol
      ; Last updated on 12-02-2003 by Jody
      ; Custom function used in H=HTML Table from Tab Delimited File
      ^!Result ^$StrCopy("^$GetLine$";^$GetCol$;^$GetLineSize$)$

      <--- Copy above this line --->
      <--- Right click over a Library --->
      <--- Choose: Add from Clipboard --->


      Happy Clip'n!
      Jody

      All Lists: http://www.fookes.us/maillist.htm
      Convert your eMail programs... Aid4Mail: http://www.fookes/aid4mail
      Freeware and Shareware; seamleesly integrates with NoteTab:
      http://www.sojourner.us/software
      See ya in the funnies!-) http://www.clean-funnies.com


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