vb equivalent to window.find

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

vb equivalent to window.find

Logged in as: Guest

arrSession:exec spGetSession 2,2,586

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> vb equivalent to window.find
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

vb equivalent to window.find - 2/28/2002 6:49:39 PM

cjl

Posts: 1
Score: 0
Joined: 2/28/2002
From:
Status: offline

Please help. I have never used vbscript and I'm trying to find the equivalent to the javascript window.find method that will work in an ie browswer window. I need to allow the user to click a button that will bring up the browser find window. Is this possible with vbscript? Any input would be appreciated. Thanks.

Post #: 1

RE: vb equivalent to window.find - 11/11/2005 6:07:39 PM

TNO

Posts: 1247
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

I don't believe its possible in VBScript without using the SendKeys method (which would reguire an .HTA). IE doesn;t support window.find. JavaScript does support the Text Range object that could be used. But a vbscript equivalent is currently beyond me. (vbscript is my second language)

Here's the JavaScript solution:

http://www.javascripter.net/faq/searchin.htm

Hopefully my fellow Mods/Admins can assist in expanding on the subject.

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to cjl)

Post #: 2

RE: vb equivalent to window.find - 11/11/2005 8:50:27 PM

ehvbs

Posts: 2173
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi cjl,

as TNO pointed out, the TextRange object can be used to search the text of the page.
If you want to use this method - instead of trying to call the browser's find window -
this code

<html>
  <head>
   <hta:application id = "find"
   />
   <title>find</title>
   <meta http-equiv = "content-script-type" content = "text/vbscript"/>
   <script language = "VBScript"
           type     = "text/vbscript"
   >
 '<![CDATA[
 
 ''=
 ' ============================================================================
 Sub doFind()
   Dim sSearch
   Dim oTRange
 
   sSearch = Trim( document.GetElementById( "sleTEXT" ).value )
   If "" <> sSearch Then
      Set oTRange = document.body.createTextRange()
      If oTRange.findText( sSearch ) Then
         oTRange.select()
      End If
   End If
 End Sub
 
 ''= refreshes the HTA page, which includes re-running any Windows_Onload code
 ' ============================================================================
 Sub reloadHTA()
   location.reload( True )
 End Sub
 
 ']]>
   </script>
  </head>
  <body>
   <form>
    <input type = "TEXT"   name = "sleTEXT" id = "sleTEXT">
    <input type = "BUTTON" value = "find" onclick = "doFind()">
   </form >
   <hr />
   <input type = "BUTTON" value = "reload" onclick = "reloadHTA()">
   <hr />
   <p>
    Please help. I have never used vbscript and I'm trying to find the equivalent
    to the javascript window.find method that will work in an ie browswer window.
    I need to allow the user to click a button that will bring up the browser
    find window. Is this possible with vbscript? Any input would be appreciated.
    Thanks.
   </p>
  </body>
 </html>

will get you started.

(in reply to TNO)