Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
File to str - I need a carriage return
Message
 
À
15/10/2014 04:30:53
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01609388
Message ID:
01609417
Vues:
35
>>There is only 1 field in each record - it's a memo field - I need the text file created by file to string to have a carriage return at the end of each line
>>
>>So a file containing 12 records would have 12 lines in the text file each terminating with a carriage return
>>
>>This is an example of the memo filed in the dbf
>>
>>"B","4561234","10/06/2014","98.50","7220726","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","MAYER INTERNATIONAL LTD","","1 CABOT SQUARE","CANARY WHARF","INDIA","LO","E14","IN",""
>
>o.k.
>off topic: You can altter a message in UT by the Update link below the message
>
>For your problem
>
>
>SELECT yourTable
>lcx = "" &&initial
>SCAN FOR [expression that filters out record b]
> lcx = lcx+YourMemofield+0h0D &&I prefer the literal to the function CHR(13)
>ENDSCAN
>STRTOFILE(lcx,YourFileName)
>
>
>This will create:
>a text file,
> one line per record,
> line ends with CR,
> empty records are empty lines,
> last line ends with CR
>
>Lutz


If I do it your way I just grt all records written as 1 string

If I use the following code I get the right answer without a carriage return at the end of each record - records start with an A or a B

SELECT eit
scan
strtofile(narry+ chr(13)+CHR(10), 'c:\colineit.txt', 1)
ENDSCAN
endif


"A","GOPT","TEST11","10/13/2014","966.15","HAYES","GBP","61.86","GB"
"B","1234567","10/06/2014","15.00","7220717","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","CREDIT SUISSE","","1 CABOT SQUARE","CANARY WHARF","LONDON","LO","E14","GB","UKSTD"

"B","2345678","10/06/2014","46.20","7220718","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","DEUTSCHE BANK","","1 CABOT SQUARE","CANARY WHARF","PARIS","LO","E14","FR","UKSTD"

"B","3456789","10/06/2014","53.00","7220719","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","BNP PARIBAS","","1 CABOT SQUARE","CANARY WHARF","NEW YORK","LO","E14","US",""

"B","4567891","10/06/2014","142.00","7220720","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","JAGUAR CARS","","1 CABOT SQUARE","CANARY WHARF","FRANKFURT","LO","E14","DE","UKSTD"

"B","5678912","10/06/2014","78.00","7220721","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","MORGAN STANLEY","","1 CABOT SQUARE","CANARY WHARF","MADRID","LO","E14","ES","UKSTD"

"B","6789123","10/06/2014","56.28","7220722","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","POWER FINANCIAL DO BRASIL S.A.","","1 CABOT SQUARE","CANARY WHARF","RIO DE JANEIRO","LO","E14","BR",""

"B","7897897","10/06/2014","18.00","7220723","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","POWER PLATE MEXICO SA DE C.V","","1 CABOT SQUARE","CANARY WHARF","MEXICO CITY","LO","E14","MX",""

"B","4564567","10/06/2014","247.86","7220724","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","PT INDOKORES SAHABAT","","1 CABOT SQUARE","CANARY WHARF","JAKARTA","LO","E14","ID",""

"B","7897897","10/06/2014","123.47","7220725","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","JAGUAR & LAND ROVER CHINA","","1 CABOT SQUARE","CANARY WHARF","CHINA","LO","E14","CN",""

"B","4561234","10/06/2014","98.50","7220726","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","LONDON","","EC2A 1ER","GB","MAYER INTERNATIONAL LTD","","1 CABOT SQUARE","CANARY WHARF","INDIA","LO","E14","IN",""
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform