Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Side by side comparison (strings & local data)
Message
De
27/12/2003 14:32:45
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
23/12/2003 11:18:45
Information générale
Forum:
Visual FoxPro
Catégorie:
Visual FoxPro et .NET
Divers
Thread ID:
00861648
Message ID:
00862267
Vues:
21
>Hi all
>
>Just did a quick side-by-side comparison with C# and VFP8, the test is aimed at string building from local-data using ADO.Net & Fox's local data-engine, can anyone tell me if I've messed up in away or if there is a quicker way of doing this:
>
>Here's the VFP program:

Here's the VFP program the way I'd write it:
LOCAL lcBigXML
Close Databases all
*Start time
SET DECIMALS TO 3

USE C:\DEV\CSHARP\DEMO\DEMOS\DATA\CLIENT IN 0

SELECT * FROM Client WHERE UPPER(Cl_Sname) = "LAWRENCE" INTO CURSOR TEST NOFILTER

=AFIELDS(laFields, "Test")

StartTime = SECONDS()
Set Textmerge to memvar lcText noshow
Set Textmerge delimiters to "{{","}}"
Set Textmerge on
\local lcXml
\	lcXML ="<CLIENT>"
	FOR f = 1 TO ALEN(laFields, 1) 
\		lcXML = lcXML + "<{{Alltrim(laFields(f, 1))}}>" + ;
\			TRANSFORM(Test.{{Alltrim(laFields(f, 1))}}) +;
\			"</{{Alltrim(laFields(f, 1))}}>"
	ENDFOR
\	lcXML = lcXML + "</CLIENT>"
\return lcXml
Set Textmerge to
StrToFile(lcText, "runner.prg")
Compile runner.prg
lcBigXml="<TEST>"
Scan
	lcBigXml=lcBigXml+runner()
ENDSCAN

lcBigXML = lcBigXML + "</TEST>"

*Show Time-Taken
?SECONDS() - StartTime
Now if you don't mind, compare this for speed.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform