RE: [DQSD-Users] New Search: Wrap Clipboard

[Shawn K. Hall]

Hi Kim,

> I'd love it if you'd do the same for the vbs search, since
> I do a lot of searching on vbs syntax, etc...
> How's about vbsx?

Ok. Renamed/modified version attached. I've added another 'support
function' to the others to, so it's not 'only' a rename.

Switches now include shorthand notations to copy the result to the
clipboard (:), pop a messagebox with the result (!), return the result
to DQSD (?) and replace the text at DQSD (=) with the result.

It also includes new methods to replace VB's Debug.Print (DebugPrint)
and Debug.Clear (DebugClear). A Regular Expressions match tester (RX)
is also included.


> Very cool functions, all of them, by the way.

Thanks! :))

Regards,

Shawn K. Hall
http://ReliableAnswers.com/

'// ========================================================
    Schizophrenia beats being alone.

<search function="ups">
  <name>Track UPS Packages</name>
  <description>Track UPS packages by tracking number (up to 20):
  <div class="helpboxDescLabels">Example:</div> 
  <table class="helpboxDescTable">
    <tr>
      <td>ups [tracking#1], [tracking#2]</td>
    </tr>
  </table>
  </description>
  <category>Shipping</category>
  <link>http://www.ups.com/tracking/tracking.html</link>
  <contributor>Glenn Carr</contributor>
  <idea>stickyc's buddy</idea>
  <form name="upsf"
        action="http://wwwapps.ups.com/etracking/tracking.cgi";> 
    <input type="hidden" name="tracknums_displayed"/>
    <input type="hidden" name="TypeOfInquiryNumber" value="T"/>
    <input type="hidden" name="HTMLVersion" value="4.0"/>
    <input type="hidden" name="sort_by" value="status"/>
    <input type="hidden" name="InquiryNumber1"/>
    <input type="hidden" name="InquiryNumber2"/>
    <input type="hidden" name="InquiryNumber3"/>
    <input type="hidden" name="InquiryNumber4"/>
    <input type="hidden" name="InquiryNumber5"/>
    <input type="hidden" name="InquiryNumber6"/>
    <input type="hidden" name="InquiryNumber7"/>
    <input type="hidden" name="InquiryNumber8"/>
    <input type="hidden" name="InquiryNumber9"/>
    <input type="hidden" name="InquiryNumber10"/>
    <input type="hidden" name="InquiryNumber11"/>
    <input type="hidden" name="InquiryNumber12"/>
    <input type="hidden" name="InquiryNumber13"/>
    <input type="hidden" name="InquiryNumber14"/>
    <input type="hidden" name="InquiryNumber15"/>
    <input type="hidden" name="InquiryNumber16"/>
    <input type="hidden" name="InquiryNumber17"/>
    <input type="hidden" name="InquiryNumber18"/>
    <input type="hidden" name="InquiryNumber19"/>
    <input type="hidden" name="InquiryNumber20"/>
  </form>
  <script><![CDATA[
    function ups(q)
    {
      if( nullArgs("ups", q) )
        return false;

      if (q == "")
        openSearchWindow("http://www.ups.com/tracking/tracking.html";);
      else
      {
        if (result = q.split( /\s*,+\s*/ ) )
        {
          for ( var i = 1; i <= 20; i++ ) {
            if (i <= result.length) {
              track = result[i - 1];
            } else {
              track = "";
            }
            track = track.replace(/\W/g,"");
            eval( "document.upsf.InquiryNumber" + i + ".value='" + track + "';" );
          }
    
          document.upsf.tracknums_displayed.value = result.length;
          submitForm(upsf);
        }
      }
    }
  ]]></script>

  <copyright>
	Copyright (c) 2002 David Bau
	Distributed under the terms of the
	GNU Public License, Version 2 (http://www.gnu.org/copyleft/gpl.txt)
  </copyright>
</search>