Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dotnetpro database performance contest
Message
From
14/05/2007 17:21:09
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
14/05/2007 09:40:02
Markus Winhard
Lauton Software GmbH
Nürnberg, Germany
General information
Forum:
Visual FoxPro
Category:
VFP Compiler for .NET
Miscellaneous
Thread ID:
01224231
Message ID:
01225384
Views:
17
>Hi Cetin,
>
>I already tried this before instead of the final SCAN loop:
>
>SET FIELDS GLOBAL
>SET FIELDS TO f1 = ;
>  STUFF( RTRIM( Name ), AT( " ", Name ), 1, ", " ) +", "+ ;
>  STUFF( RTRIM( Strasse ), RAT( " ", RTRIM( Strasse ) ), 1, ", " ) +", "+ ;
>  LEFT( Ort , AT( " ", Ort ) - 1 ) +", "+ ALLTRIM(SUBSTR( Ort, AT( " ", Ort ) )) +", "+ ;
>  RTRIM( eMail )
>COPY TO _FOLDER_ + "Adressen2.txt" SDF
>
>
>Unfortunately there's no difference on my machine. Did you have something different in mind?
>
>Markus

I don't have something specific in my mind. I don't even know the input and desired output yet. But it's anyway would be something to remove unnecessary function calls, unnecessary concatenation etc. For example it looks like you might instead do (not exactly same result):

SET FIELDS TO ;
f1 = strtran( Name ," ", ", ",1,1), ;
f2 = strtran( Strasse, " ", ", ",occurs(" ",strasse),1 ), ;
f3 = LEFT( Ort , AT( " ", Ort ) - 1 ),;
f4 = SUBSTR( Ort, AT( " ", Ort ) + 1 ), ;
eMail
COPY TO _FOLDER_ + "Adressen2.txt" type delimited

Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform