Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
My file to string does nor have CR characters
Message
De
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:
01609990
Vues:
53
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 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
>>...
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform