Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
My file to string does nor have CR characters
Message
 
À
27/10/2014 18:59:29
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:
01609739
Message ID:
01610081
Vues:
40
>Just out of curiosity... What is the result of the following:
>
>#DEFINE _CR_   CHR(13)
>#DEFINE _LF_    CHR(10)
>#DEFINE _NL_   _CR_+_LF_
>SELECT eit
>SCAN
>    narry=ALLTRIM(narry)
>    = strtofile(narry, 'c:\colineit.txt', 1)
>    = strtofile( _NL_+REPLICATE('-',20)+_NL_,'c:\colineit.txt',1)
>ENDSCAN
>
The result of the above is and beginning to look good - tahnks so far Naoto

"A","GOPT","COL123","10/13/2014","1028.01","HAYES","GBP","61.86","GB"
--------------------
"B","1234567","10/06/2014","19.80","7220717","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","CREDIT SUISSE","","1 CABOT SQUARE","CANARY WHARF","LONDON","","","GB","UKSTD 20.
--------------------
"B","2345678","10/06/2014","60.98","7220718","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","DEUTSCHE BANK","","3 AVENUE DE FRIEDLAND","PARIS 75008","PARIS","","","FR","UKST
--------------------
"B","3456789","10/06/2014","58.30","7220719","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","BNP PARIBAS","","787 7TH AVENUE","NEW YORK","NEW YORK","","","US",""
--------------------
"B","4567891","10/06/2014","187.44","7220720","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","JAGUAR CARS","","HALL 3.1 STAND A19","IAA FRANKFURT MESSEGELANDE","FRANKFURT","
--------------------
"B","5678912","10/06/2014","102.96","7220721","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","MORGAN STANLEY","","C / SERRANO 55","MADRID 28006","MADRID","","","ES","UKSTD 2
--------------------
"B","6789123","10/06/2014","61.91","7220722","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","POWER FINANCIAL DO BRASIL S.A.","","AV. MARECHAL CÂMARA,","271 / 1102 – 20020-08
--------------------
"B","7897897","10/06/2014","19.80","7220723","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","POWER PLATE MEXICO SA DE C.V","","PRD.PASEO DE LOS CAURELES","458 201B","MEXICO
--------------------
"B","4564567","10/06/2014","272.65","7220724","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","PT INDOKORES SAHABAT","","J L BUNI NO 61 RT 003 RW 05","CILAN GLAP","JAKARTA","
--------------------
"B","7897897","10/06/2014","135.82","7220725","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","JAGUAR & LAND ROVER CHINA","","NO 211 CENTURY AVENUE","FLOORS 21 31 32 33","CHI
--------------------
"B","4561234","10/06/2014","108.35","7220726","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","MAYER INTERNATIONAL LTD","","89 MILESKONE DELHI JAIPER HIGHWAY","SECTOR 35","IN
--------------------

If I try to run the second piece of code m.narry is not defined - what should I fo?

>
>the modified program should put a line with 20 dashes after each physical record being output. We can then check the output -- if there are missing newlines, then it's probably a case where you've got a number of logical records within each record. In that case we'll need to "massage" the data contained within the memo fields before output. For example we might do the following:
>
>
>#DEFINE _CR_   CHR(13)
>#DEFINE _LF_    CHR(10)
>#DEFINE _NL_   _CR_+_LF_
>SELECT eit
>SCAN
>    narry = CHRTRAN(ALLTRIM(narry),_LF_,_CR_)
>    DO WHILE _CR_+_CR_ $ m.narry
>        narry = STRTRAN(m.narry,_CR_+_CR_,_CR_)
>    ENDDO
>    narry = STRTRAN(m.narry_CR_,_NL_)
>    = strtofile(narry, 'c:\colineit.txt', 1)
>    = strtofile( _NL_+REPLICATE('-',20)+_NL_,'c:\colineit.txt',1)
>ENDSCAN
>
>
>>Still struggling with this problem
>>
>>each line terminates with replace narry WITH ALLTRIM(narrative)+chr(13) + chr(10) where narrative is a memo field in table Eit
>>
>>then the records are put to file as follows
>>
>>SELECT eit
>>SCAN
>>narry=ALLTRIM(narry)
>>strtofile(narry, 'c:\colineit.txt', 1)
>>ENDSCAN
>>
>>But when I open the file in notepad this is what i see - the lines should all start with A or B - or am I missing something
>>
>>"A","GOPT","011973","10/24/2014","1897.24","HAYES","GBP","227.20","GB"
>> "B","6349454","10/07/2014","103.96","7220744","MERRILL CORPORATION LIMITED","SAM","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","FOSTER WHEELER","","SHINFIELD PARK","","READING","","","GB","UKSTD 20.0"
>> "B","6349535","10/08/2014","19.80","7221582","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","AMEC PLC","","OLD CHANGE HOUSE","128 QUEEN VICTORIA STREET","LONDON","","","GB","B","6349536","10/08/2014","19.80","7221583","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","BANK OF AMERICA MERRILL LYNCH","","INVESTMENT BANKING","2 KING EDWARD STREET","L"B","6349537","10/08/2014","19.80","7221584","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LINKLATERS LLP","","ONE SILK STREET","","LONDON","","","GB","UKSTD 20.0"
>> "B","6349538","10/08/2014","19.80","7221585","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","MERRILL CORPORATION","","101 FINSBURY PAVEMENT","2ND FLOOR","LONDON","","","GB","B","6350128","10/10/2014","7.92","7224345","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KIRKLAND & ELLIS","","30 ST MARY AXE","LONDON EC3A 8AF","LONDON","","","GB","UKST"B","6350129","10/10/2014","7.92","7224346","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","SHEARMAN & STERLING LLP","","BROADGATE WEST","9 APPOLD STREET","LONDON","","","GB"B","6350131","10/10/2014","19.80","7224320","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","ROPES & GRAY","","5 NEW STREET SQUARE","5TH FLOOR","LONDON","","","GB","UKSTD 20"B","6350113","10/10/2014","28.64","7224314","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LATHAM & WATKINS","","99 BISHOPSGATE","","LONDON","","","GB","UKSTD 20.0"
>> "B","6350114","10/10/2014","19.80","7224315","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LIBERTY GLOBAL EUROPE LTD","","38 HANS CRESCENT","","LONDON","","","GB","UKSTD 2"B","6350119","10/10/2014","19.80","7224316","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","MERRILL CORPORATION","","101 FINSBURY PAVEMENT","MOORGATE","LONDON","","","GB",""B","6350117","10/10/2014","19.80","7224317","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","ROPES & GRAY","","5 NEW STREET SQUARE","","LONDON","","","GB","UKSTD 20.0"
>> "B","6350115","10/11/2014","142.45","7224318","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LIBERTY GLOBAL, INC.","","12300 LIBERTY BOULEVARD","","ENGLEWOOD","","","US","""B","6350118","10/10/2014","47.54","7224319","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","UNITYMEDIA KABELBW GMBH","","AACHENER STR. 746 750","","KOLN","","","DE","UKSTD "B","6351082","10/14/2014","117.82","7224466","MERRILL CORPORATION LIMITED","SAM FRIAR","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","FOSTER WHEELER AG","","EXECUTIVE VICE PRESIDENT, GENERAL C","SHINFIELD PARK","READING""B","6350837","10/14/2014","28.90","7224423","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","0BANCA ALETTI","","VIA RONCAGLIA, 12","","MILAN","","","IT","UKSTD 20.0"
>> "B","6350838","10/14/2014","76.87","7224424","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","BNP PARIBAS","","PIAZZA SAN FEDELE 1/3","","MILAN","","","IT","UKSTD 20.0"
>> "B","6350839","10/14/2014","28.90","7224425","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","CHIOMENTI STUDIO LEGALE","","VIA VERDI, 2","","MILAN","","","IT","UKSTD 20.0"
>> "B","6350840","10/14/2014","41.53","7224426","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","CLIFFORD CHANCE","","PIAZZETTA BOSSI 3","","MILAN","","","IT","UKSTD 20.0"
>> "B","6350841","10/14/2014","43.94","7224427","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","EXANE BNP PARIBAS","","16 AVENUE MATIGNON","","PARIS","","","FR","UKSTD 20.0"
>> "B","6350842","10/14/2014","86.50","7224428","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","FEDRIGONI S.P.A.","","VIALE PIAVE 3","","VERONA","","","IT","UKSTD 20.0"
>> "B","6350843","10/14/2014","59.25","7224429","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CAPITAL MARKETS INC.- NEW YO","","600 LEXINGTON AVENUE","","NEW YORK","","B","6350844","10/14/2014","30.10","7224430","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CAPITAL MARKETS, INC., BOSTO","","225 FRANKLIN STREET,","FLOOR 26","BOSTO"B","6350845","10/14/2014","27.59","7224431","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CAPITAL MARKETS, INC., SAN F","","50 CALIFORNIA STREET ;","SUITE 1500","S"B","6350846","10/14/2014","63.44","7224432","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX FRANCE","","112 AVENUE KLEBER","","PARIS","","","FR","UKSTD 20.0"B","6350847","10/14/2014","24.08","7224433","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX GENEVA","","ROUTE DE CRASSIER 11","","EYSINS","","","CH",""
>> "B","6350848","10/14/2014","25.88","7224434","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX GERMANY","","TAUNUSANLAGE 18","","FRANKFURT","","","DE","UKSTD 2"B","6350849","10/14/2014","28.90","7224435","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX SWEDEN","","REGERINGSGATAN 38","","SWEDEN","","","SE","UKSTD 20."B","6350850","10/14/2014","23.71","7224436","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX THE NETHERLANDS","","JOHANNES VERMEERSTRAAT 9","","AMSTERDAM","""B","6350851","10/14/2014","7.92","7224437","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX UNITED KINGDOM","","12TH FLOOR, MOOR HOUSE","120 LONDON WALL","LO"B","6350852","10/14/2014","28.90","7224438","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX VIENNA","","VIENNA STOCK EXCHANGE","SCHOTTENRING 16/2","VIENNA","B","6350853","10/14/2014","24.08","7224439","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","KEPLER CHEVREUX ZURICH","","STADELHOFERSTRASSE 22","POSTFACH","ZURICH","","","CH"B","6350854","10/14/2014","7.92","7224440","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","MERRILL CORPORATION","","101 FINSBURY PAVEMENT","2ND FLOOR","LONDON","","","GB",""B","6350855","10/14/2014","7.92","7224441","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","SULLIVAN & CROMWELL LLP","","1 NEW FETTER LANE","","LONDON","","","GB","UKSTD 20."B","6350856","10/14/2014","7.92","7224442","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","UNICREDIT BANK AG, LONDON BRANCH","","MOOR HOUSE","120 LONDON WALL","LONDON","",""B","6350857","10/14/2014","28.90","7224443","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","UNICREDIT BANK AG, MILAN BRANCH","","PIAZZA GAE AULENTI, 4","TOWER C 6TH FLOOR","B","6350832","10/14/2014","19.80","7224445","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","BROWNS HOTEL","","33 ALBERMARLE STREET","ROADSHOW: CLARENDON ROOM 15/10","LONDON"B","6350833","10/15/2014","66.58","7224446","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LA MAISON DES CHAMPS ELYSEE","","8 RUE JEAN GOUJON","PARIS 75008","PARIS","","","B","6350834","10/15/2014","88.85","7224447","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LE BRISTOL","","112 RUE DU FAUBORG SAINT HONORE","REF: FEDRIGONI ROADSHOE ELYSEE"B","6350835","10/14/2014","91.25","7224448","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","PHYLLIS COURT CLUB","","PHYLLIS COURT","MARLOW ROAD","HENLEY ON THAMES","","","G"B","6350836","10/14/2014","19.80","7224449","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","SHANGRI LA HOTEL","","THE SHARD","31 ST THOMAS STREET","LONDON","","","GB","UKST"B","6351403","10/16/2014","91.34","7224520","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","HUDSON HOTEL","","FEDRIGONI ROADSHOW","356 W 58TH ST","NEW YORK","","","US",""
>>"B","6351404","10/16/2014","67.97","7224521","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LANGHAM HOTEL","","FEDRIGONI ROADSHOW","250 FRANKLIN STREET","BOSTON","","","US""B","6351405","10/16/2014","67.27","7224522","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","LE RICHMOND","","FEDRIGONI ROADSHOW","RUE ADHEMAR FABRI 8","GENEVA","","","CH",""B","6351406","10/16/2014","66.58","7224523","MERRILL CORPORATION LIMITED","CUSTOMER SERVICE","101 FINSBURY PAVEMENT 2ND FLOOR","LONDON EC2A 1ER","","","EC2A 1ER","GB","VILLA KENNEDY","","FEDRIGONI ROADSHOW","KENNEDYALLEE 70","FRANKFURT","","","DE",
>>
>>>If you need to manually add a line break, in DOS and Windows this should be the combination:
>>>
>>>chr(13) + chr(10)
>>>
>>>known as carriage return + line feed
>>>
>>>>My file eit contains 10 memo records - I cant seem to convert the file to text with each line ending with a CR what am I doing wrong?
>>>>
>>>>My code is
>>>...
Specialist in Advertising, Marketing, especially Direct Marketing

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

Click here to load this message in the networking platform