Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Foxpro_int
Message
De
28/03/2003 09:41:35
 
 
À
28/03/2003 02:55:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00770198
Message ID:
00771299
Vues:
12
This works fine for me.

Try this:
erase testxx.pj?
CREATE PROJECT testxx nowait
TEXT TO lcText NOSHOW
	set collate to 'hungary'
	MESSAGEBOX('test')
endtext
DELETE FILE testxx.prg
StrToFile('codepage = 1250','config.fpx')
?STRTOFILE(lcText,'testxx.prg',0)
_vfp.ActiveProject.files.add('testxx.prg')
?_vfp.ActiveProject.Build('testxx.exe',)
_vfp.ActiveProject.close
lcRuncmd ="! /n "+SET("Default")+CURDIR()+'testxx.exe -cconfig.fpx'
&lcRuncmd
return
If you change the StrToFile() line to
StrToFile('* codepage = 1250','config.fpx')
it gives the error you describe.

>I tried either way but it won't work.
>thanks anyway.
Jim Saunders
Microsoft
This posting is provided “AS IS”, with no warranties, and confers no rights.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform