View Complete Thread | FoxWeb Forum Home
Search:
Date:    Msg ID:   
From:    Thread:   
Subject:   
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