View Complete Thread | FoxWeb Forum Home
Search:
Date:    Msg ID:   
From:    Thread:   
Subject:   
The Windows script engine is normally included in the default installation of Windows XP.  You can also download it from the following URL (get the latest version of Microsoft Windows Script for your operating system):
 
 
The following URL is only for Windows XP and 2000:

FoxWeb Support Team
support@foxweb.com email

Sent by Tom on 05/18/2006 02:41:18 PM:
What was the result of this. I am running XP SP 2 and I am also geting this error when running the example form in VFP 7 SP1
RegEx = CREATEOBJECT("VBSCRIPT.RegExp") generates error vfp error 1733 "Class definition VBSCRIPT.RegExp is not found.
Sent by FoxWeb Support on 02/19/2006 01:27:11 PM:
The VBScript scripting library required by the full-text object has been part of Internet Explorer since version 5.5.  It should be available on all computers running Windows XP (which ships with IE 6.0), and previous versions of Windows if the user upgraded to IE 5.5 or later.
 
I don't understand how you could be getting this error on a computer running XP.  Try running the following command in VFP and let us know what you get:
 
RegEx = CREATEOBJECT("VBSCRIPT.RegExp")

FoxWeb Support Team
support@foxweb.com email

Sent by David Younger on 02/09/2006 06:58:15 PM:
When calling the CreateIndex function, I am getting the following error:

Class definition VBSCRIPT.REGEXP is not found. 

A few of our clients also have this error but there are also many machines running this fine.

I have Win XP with SP.


Following is my VFP9 function to create the index.

Cheers

David

 



 FUNCTION FTSINDEX
LPARAMETERS mftt,mtable,mKeyField,mIndFields
* Create Full Text Search
IF (mauto AND ! FILE(mftt)) OR (! mauto AND FrmIndex.CkFTS.Value = 1 )
    LOCAL mStatusText
    DO CASE
        CASE ! mAuto
            mStatusText = FrmIndex.TEXT1
        CASE TYPE("about.TSMAbout.Page1.Status.Caption")= "C"
            mStatusText = about.TSMAbout.Page1.Status
        OTHERWISE
            mStatusText = ""
    ENDCASE
        
    IF TYPE("About.LockScreen") # "U"        
        About.LOCKSCREEN = .F.
    ENDIF
    LOCAL nKey
    oFullText = NEWOBJECT('classMyFullText', 'FTWrapper.PRG','',mStatusText)
    oFullText.Table = mTable
    oFullText.ExclusiveIndexing = .T.
    RetValue = oFullText.CreateIndex(mKeyField,mIndFields,.T., FILETOSTR('FullTextNoise.txt'), 4)
    RELEASE oFullText
    CLEAR CLASS fulltext
ENDIF