TopXML XML DOM library : Get Search terms collection from an entered query string

Home Page

Add/Edit your code items

Search the code library

Browse for the code library

XML DOM
XML DOM
XML DOM Contents
MXSML based class module to perform Base64 encoding and decoding
Chilkat XML
Import and Export Microsoft Outlook items to XML using MSXML
A MsXML Wrapper class for VC++
Processing Large XML Documents
CSV to XML using the DOM
XML DOM: Inserting, Modifying and Deleting elements using VBScript
XML DOM: Adding an Child Element and an attribute using VBScript
Combining XML Documents using XSLT - a collection of 5 approaches
How to use InsertAfter() with XmlDocument?
How to remove xml elements using RemoveChild() with XmlDocument?
How to select specific nodes in XmlDocument() when having a namespace ?
How to Load a XML From a String with XmlDocument?
How to remove an attribute with XmlDocument and RemoveAll?
How to create a navigator with XmlDocument and CreateNavigator?
Whats the 'push model'?
Hybrid Model Part Two: Choosing between SAX and DOM

<< XHTML XmlSerializer >>

By	Michael
First Posted	10/24/2001
Times viewed	762

Get Search terms collection from an entered query string

Summary Takes a query string and breaks it down into a collection of search terms. Supports quoted search terms.

This is a simple function to break apart an entered query string into a collection of search terms. I am pumping these search terms into a Sax Search engine but you can do what u like with them :)

The code supports quoted items in the query string, adding them to the collection with all terms and spacing intact.

Additional information
Public Function getSearchTerms(aSearchString As String) As Collection Dim theQuotedTermsArray() As String Dim theSpacedTermsArray() As String Dim x As Integer Dim y As Integer Dim theSearchTerms As Collection Set theSearchTerms = New Collection Dim theSearchTerm As Variant Dim theChunk As String Dim theOtherChunk As String On Error GoTo Handler 'Now find any quoted items by splitting the string with the quote character 'the resulting array will contain quoted search terms at array index 1, 3, 5, 7..etc 'the items at 0, 2, 4, 6...etc will hold the unquoted search terms (split by spaces) theQuotedTermsArray = Split(aSearchString, """") For x = 0 To UBound(theQuotedTermsArray) theChunk = Trim(theQuotedTermsArray(x)) If x / 2 <> CInt(x / 2) Then 'quoted search term - add to search terms whole (with spaces) If Len(theChunk) > 0 Then theSearchTerms.Add theChunk, theChunk End If Else 'unquoted search terms, split by space If Len(theChunk) > 0 Then theSpacedTermsArray = Split(theChunk, " ") For y = 0 To UBound(theSpacedTermsArray) theOtherChunk = Trim(theSpacedTermsArray(y)) If Len(theOtherChunk) > 0 Then theSearchTerms.Add theOtherChunk, theOtherChunk End If Next End If End If Next If theSearchTerms.Count <> 0 Then Set getSearchTerms = theSearchTerms Else Set getSearchTerms = Nothing End If Exit Function Handler: 'duplicate search terms may be added to the collection If Err.Number = 457 Then Resume Next End Function

Further additional information
<?xml version="1.0"?> <data> <row>1</row> <row>2</row> <row>3</row> <row>4</row> <row>5</row> <row>6</row> <row>7</row> <row>8</row> <row>9</row> <row>10</row> <row>11</row> <row>12</row> <row>13</row> <row>14</row> <row>15</row> <row>16</row> <row>17</row> <row>18</row> <row>19</row> <row>20</row> <row>21</row> <row>22</row> <row>23</row> <row>24</row> <row>25</row> <row>26</row> <row>27</row> <row>28</row> <row>29</row> <row>30</row> <row>31</row> <row>32</row> <row>33</row> <row>34</row> <row>35</row> <row>36</row> <row>37</row> <row>38</row> <row>39</row> <row>40</row> <row>41</row> <row>42</row> <row>43</row> <row>44</row> <row>45</row> <row>46</row> <row>47</row> <row>48</row> <row>49</row> <row>50</row> </data>

Rate this article on a scale of 1 to 10 (0 votes, average 0)

Your vote :

<< XHTML XmlSerializer >>


Leave a comment for this article
Your name
Your email (optional)
Your comment
Optional: Upload an attachment
Enter the code shown:



	Recent Jobs Integration Specialist Needed - Work Fro Virtualization Server Infrastructure Arc A great opportunity to Digital Video Eng here is a greate opportunity as a SMS En A great opportunity as a Network Enginee View all Jobs (Add yours) View all CV (Add yours)

	Chicago Web Site Design silicone masks conference calls Gucci sunglasses air freshener odor remover

	Partners Dream.In.Code dotNet Slackers dotNet Spider Your HTML Source VisualBuilder.com DevGuru Planet Source Code ZVON.ORG Web Design ASPAlliance XML Pitstop Scripts The Spot 4 SAP Bitshop Web Hosting

Email TopXML