Advertiser Disclosure

Create an array of individual words from a phrase entered in an HTML text box

Category:

ASP, HTML and XML

Type:

Difficulty:

Author:

Intelligent Solutions Inc.

Version Compatibility: ASP

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%
dim sQueryStrings()

'Search entry text box assumed to be name SearchText
sSearchString = Request("SearchText") & " "
iPos = 1
iCnt = 1
do While len(sSearchString)
  redim preserve sQueryStrings(iCnt)

'find position of " "
	iPos = instr(iPos, sSearchString, " ") + 1

'Add individual word to array
	sWord = Mid(sSearchString,1,iPos - 2)
	
	'Handle case where user enters more than 
        'one space between words

if trim(sWord) <> "" Then
	  sQueryStrings(iCnt) = Mid(sSearchString,1,iPos - 2)
	
          'truncate search string to  eliminate newly added word
	  iCnt = iCnt + 1
	end if
	
	sSearchString = Mid(sSearchString, iPos)

'reset
	iPos = 1
Loop

%>

<HTML>
<HEAD>

<meta name="WT.qs_dlk" content="XzPiv2PyQw79@u1kEHCBDwAAABI"/>

<meta name="WT.qs_shmv" content="hv20200211-chiron.sf.quinstreet.net"/>

<meta name="inject_params" content="WT.qs_dlk=XzPiv2PyQw79@u1kEHCBDwAAABI&"/>

<script>!function(){if(!window.BOOMR||!window.BOOMR.version){var e,t,n,o=document.createElement("iframe");o.src="javascript:false",o.title="",o.role="presentation",(o.frameElement||o).style.cssText="width:0;height:0;border:0;display:none;",(n=document.getElementsByTagName("script")[0]).parentNode.insertBefore(o,n);try{t=o.contentWindow.document}catch(n){e=document.domain,o.src="javascript:var d=document.open();d.domain='"+e+"';void(0);",t=o.contentWindow.document}t.open()._l=function(){var t=this.createElement("script");e&&(this.domain=e),t.id="boomr-if-as",t.src="/imageserver/common/sg/1.0/sg.min.js",BOOMR_lstart=(new Date).getTime(),this.body.appendChild(t)},t.write('<body onload="document._l();">'),t.close()}}();</script>
<script>
                document.cookie = 'inject_params=WT.qs_dlk=XzPiv2PyQw79@u1kEHCBDwAAABI&; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
                document.cookie = 'WMUUID=XzPiv2PyQw79@u1kEHCBDwAAABI; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
            </script>
<TITLE>Search Term Array Test</title>

<script>
    window.webtrendsAsyncInit=function(){
        var dcs=new Webtrends.dcs().init({
            dcsid:"dcszmx810000004jhhhvshyva_9q4y",
            domain:"www.qsstats.com",
            timezone:-8,
            i18n:true,
            onsitedoms:"freevbcode.com",
            fpcdom:".freevbcode.com",
            plugins:{
                //hm:{src:"//s.webtrends.com/js/webtrends.hm.js"}
            }
            }).track();
    };
    (function(){
        var s=document.createElement("script"); s.async=true; s.src="/imageserver/common/v10/webtrends.min.js";    
        var s2=document.getElementsByTagName("script")[0]; s2.parentNode.insertBefore(s,s2);
    }());
    </script>
    <noscript><img alt="dcsimg" id="dcsimg" width="1" height="1" src="//www.qsstats.com/dcszmx810000004jhhhvshyva_9q4y/njs.gif?dcsuri=/index.php/ShowCode.asp&WT.js=No&WT.tv=10.4.1&dcssip=www.freevbcode.com&WT.qs_dlk=XzPiv2PyQw79@u1kEHCBDwAAABI&"/></noscript>
</head>
<BODY>
   The search terms you entered were:<P>
	<%
	iCount = Ubound(sQueryStrings)
	  for iCtr = 1 to iCount
	    response.write sQueryStrings(ictr) & "<BR>"
          next
        %>
</body>
</html>