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

Color coding cells

Expand Messages
  • Jeff Scism
    The Below clip used to work perfectly under 4.95 and windows 98SE, but with the upgrade to Vista and 5.2 (STD) it drops dead quickly. Any Ideas on making it
    Message 1 of 1 , Apr 11, 2007
    • 0 Attachment
      The Below clip used to work perfectly under 4.95 and windows 98SE, but
      with the upgrade to Vista and 5.2 (STD) it drops dead quickly.

      Any Ideas on making it functional again?

      CODE FOLLOWS:

      colorcode-dna-chart
      ; Run this Clip 1st and read ;comments before using.
      ; This code starts with a Tab deliminated table, converts it to a
      ;HTML Table, then runs HTMLTIDY.
      ;Then it searches for cells which need to be colored, and
      ; substitutes the coding needed.
      ^!Select ALL
      ^!Toolbar Copy
      ^!Open Document New
      ^!Toolbar Paste
      ^!Jump 1
      ^!InsertText <table Border="1">
      ^!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">^!If ^1 = 1 Exit
      ^!SaveValue efoHtmlAR=1
      ^!Clip "About this library"
      ^!If ^1 = 1 Exit
      ^!SaveValue efoHtmlAR=1
      ^!Clip "About this library"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
      ^!Continue

      ^!Jump DOC_END
      ^!REPLACE "<td></td>" >> "<td align="center"
      bgcolor="#00FFCC"> </td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>8</td>" >> "<td align="center" bgcolor="#33FF00">8</td>"
      BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>9</td>" >> "<td align="center" bgcolor="#FFFF00">9</td>"
      BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>10</td>" >> "<td align="center"
      bgcolor="#FF3300">10</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>11</td>" >> "<td align="center"
      bgcolor="#FFCC00">11</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>12</td>" >> "<td align="center"
      bgcolor="#FFFF00">12</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>13</td>" >> "<td align="center"
      bgcolor="#33CC33">13</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>14</td>" >> "<td align="center"
      bgcolor="#FF99CC">14</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>15</td>" >> "<td align="center"
      bgcolor="#FF9933">15</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>16</td>" >> "<td align="center"
      bgcolor="#FFCC00">16</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>17</td>" >> "<td align="center"
      bgcolor="#66FF66">17</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>18</td>" >> "<td align="center"
      bgcolor="#FFFF99">18</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>19</td>" >> "<td align="center"
      bgcolor="#66FFCC">19</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>20</td>" >> "<td align="center"
      bgcolor="#FF6666">20</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>21</td>" >> "<td align="center"
      bgcolor="#33CC99">21</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>22</td>" >> "<td align="center"
      bgcolor="#FF99CC">22</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>23</td>" >> "<td align="center"
      bgcolor="#33FFFF">23</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>24</td>" >> "<td align="center"
      bgcolor="#FF6699">24</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>25</td>" >> "<td align="center"
      bgcolor="#FFFF99">25</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>26</td>" >> "<td align="center"
      bgcolor="#33FF00">26</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>27</td>" >> "<td align="center"
      bgcolor="#66FFCC">27</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>28</td>" >> "<td align="center"
      bgcolor="#FF3300">28</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>29</td>" >> "<td align="center"
      bgcolor="#FFCCCC">29</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>30</td>" >> "<td align="center"
      bgcolor="#FFFF00">30</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>31</td>" >> "<td align="center"
      bgcolor="#33CC33">31</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>32</td>" >> "<td align="center"
      bgcolor="#FF0033">32</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>33</td>" >> "<td align="center"
      bgcolor="#FF9933">33</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>34</td>" >> "<td align="center"
      bgcolor="#FFCC00">34</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>35</td>" >> "<td align="center"
      bgcolor="#33FFFF">35</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>36</td>" >> "<td align="center"
      bgcolor="#FF6699">36</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>37</td>" >> "<td align="center"
      bgcolor="#FF0033">37</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>38</td>" >> "<td align="center"
      bgcolor="#FF9933">38</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>39</td>" >> "<td align="center"
      bgcolor="#FFCC00">39</td>" BHTSA
      ^!Jump DOC_END
      ^!REPLACE "<td>40</td>" >> "<td align="center"
      bgcolor="#33FFFF">40</td>" BHTSA
      ^!TIDYHTML
    Your message has been successfully submitted and would be delivered to recipients shortly.