| |||||||||||||||
| |||||||||||||||
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:
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")
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 |