Same here I don't think we'll get what you really want; What is it you want? Because stripping the LF from the end of lines wount really give you the results you are looking for
Chris Albert, Innovative Technologies. http://www.it.co.ke/beta -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Dave Sellers Sent: Wednesday, August 10, 2005 9:11 PM To: [email protected] Subject: Re: [delphi-en] Re: CSV File export character problem #0A is Decimal 10: an LF. At the end of your lines you will have a pair of characters either CR/LF or LF/CR (I can't remember which way round) so as I said before you need to adapt the code to only strip out the LFs if immediately followed (or preceded by) a CR. If you take out all the LFs regardless your end of line pairs will become just CRs which you may get away with but I doubt is what you're really after... Trevor wrote: >OK. I got a hex editor and opened the file. It is showing the >character as hex 0A > >BUt if I change the line to > >If Buf1.Datastring[i] <> #0A then > Buf2:=Buf2+Buf1.Datastring[i]; > >It does not compile. > >Thanks again > >--- In [email protected], Dave Sellers <[EMAIL PROTECTED]> >wrote: > > >>Further to my last post - if that doesn't fix it, examine the file >> >> >using > > >>a hex editor and find out what it really is you're trying to >> >> >filter > > >>out. Relying on Notepad's interpretation is probably not wise >> >> >(IMO) > > >>Dave >> >>Trevor wrote: >> >> >> >>>These strage characters are "CR" characters and show up as little >>>square boxes if put into a TMemo. >>>I have tested the routine below and it works if I put one of the >>>lines that has a one of these CR characters by iteself. >>> >>>I therfore need to know how to stream in one line at a time and >>>stram it back out to a new file after passing it through the >>>"If not (Buf1.Datastring[i] in [#13,#10]) then.." >>>routine >>> >>>Thaks >>> >>>--- In [email protected], "Chris @ IT" <[EMAIL PROTECTED]> wrote: >>> >>> >>> >>> >>>>You need to find out what these strange characters are; then put >>>> >>>> >>>> >>>> >>>them in the >>> >>> >>> >>> >>>>"in [xxx]" clause of the code - then it will take them out. >>>> >>>>Chris Albert, >>>>Innovative Technologies. >>>>http://www.it.co.ke/beta >>>> >>>> >>>>-----Original Message----- >>>>From: [email protected] [mailto:delphi- >>>> >>>> >[EMAIL PROTECTED] > > >>>> >>>> >>>> >>>> >>>On Behalf >>> >>> >>> >>> >>>>Of Trevor >>>>Sent: Wednesday, August 10, 2005 7:20 PM >>>>To: [email protected] >>>>Subject: [delphi-en] Re: CSV File export character problem >>>> >>>>I need the lines to remain as lines. I only want the strange >>>>Characters removed from the start of the line to the end; >>>> >>>>Thanks >>>> >>>>--- In [email protected], "Chris @ IT" <[EMAIL PROTECTED]> >>>> >>>> >wrote: > > >>>> >>>> >>>> >>>> >>>>>Simplest best way always works!! >>>>> >>>>>Use the procedure below: note that this will remove ALL CR/LF >>>>> >>>>> >in > > >>>>> >>>>> >>>>> >>>>> >>>>file >>>> >>>> >>>> >>>> >>>>>Which might not be exactly what you want; you'll end up will >>>>> >>>>> >all > > >>>>> >>>>> >>>>> >>>>> >>>>the data in >>>> >>>> >>>> >>>> >>>>>one row; if you are talking of CSV's >>>>> >>>>>Procedure remove_cr_lf(infile,outfile : string); >>>>>Var >>>>> Inf,outf : tfilestream; >>>>> Buf1 : TStringStream; >>>>> Buf2 : string; >>>>> i : integer; >>>>>Begin >>>>> Inf:=tfilestream.create(infile,fmopenread); >>>>> Outf:=tfilestream.create(outfile,fmcreate); >>>>> >>>>> Buf1:=TStringStream.Create(''); >>>>> Buf1.CopyFrom(Inf,0); >>>>> Inf.Free; >>>>> >>>>> Buf2:=''; >>>>> For i:=1 to length(Buf1.Datastring) do >>>>> If not (Buf1.Datastring[i] in [#13,#10]) then >>>>> Buf2:=Buf2+Buf1.Datastring[i]; >>>>> >>>>> Buf1.Free; >>>>> Buf1:=TStringStream.Create(Buf2); >>>>> Outf.CopyFrom(Buf1,0); >>>>> Buf1.Free; >>>>> Outf.Free; >>>>>End; >>>>> >>>>> >>>>>Ive just typed this directly in outlook; might have some bugs! >>>>> >>>>> >>>>> >>>>>Chris Albert, >>>>>Innovative Technologies. >>>>>http://www.it.co.ke/beta >>>>> >>>>> >>>>>-----Original Message----- >>>>>From: [email protected] [mailto:delphi- >>>>> >>>>> >>>>> >>>>> >>>[EMAIL PROTECTED] >>> >>> >>> >>> >>>>On Behalf >>>> >>>> >>>> >>>> >>>>>Of Trevor >>>>>Sent: Wednesday, August 10, 2005 6:45 PM >>>>>To: [email protected] >>>>>Subject: [delphi-en] CSV File export character problem >>>>> >>>>>Need help in stripping out unwanted characters in a text file. >>>>> >>>>>I exported a EXCEl spread sheet to a .csv file. I fI look at >>>>> >>>>> >the > > >>>>> >>>>> >>>>> >>>>> >>>>file >>>> >>>> >>>> >>>> >>>>>in notepad all entries show up on individual lines. But on >>>>> >>>>> >>>>> >>>>> >>>closer >>> >>> >>> >>> >>>>>inspection there are either "CR" or "LF" charcters on some >>>>> >>>>> >lines. > > >>>>>Therfore when I open the file into oa TMemo component it >>>>> >>>>> >>>>> >>>>> >>>seperates >>> >>> >>> >>> >>>>any >>>> >>>> >>>> >>>> >>>>>line that contains one of these characters into two lines. >>>>> >>>>>I tried reding it into a stringlist and then writing the >>>>> >>>>> >>>>> >>>>> >>>>individual >>>> >>>> >>>> >>>> >>>>>lines to a TMemo but that produced the same result. >>>>> >>>>>How can I remove these characters (ie CR & LF) charaters that >>>>> >>>>> >>>>> >>>>> >>>are >>> >>> >>> >>> >>>>in >>>> >>>> >>>> >>>> >>>>>the middle of some of the lines. >>>>> >>>>>Thanks >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>----------------------------------------------------- >>>>>Home page: http://groups.yahoo.com/group/delphi-en/ >>>>>To unsubscribe: [EMAIL PROTECTED] >>>>>Yahoo! Groups Links >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>>----------------------------------------------------- >>>>Home page: http://groups.yahoo.com/group/delphi-en/ >>>>To unsubscribe: [EMAIL PROTECTED] >>>>Yahoo! Groups Links >>>> >>>> >>>> >>>> >>> >>> >>> >>>----------------------------------------------------- >>>Home page: http://groups.yahoo.com/group/delphi-en/ >>>To unsubscribe: [EMAIL PROTECTED] >>>Yahoo! Groups Links >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> > > > > > >----------------------------------------------------- >Home page: http://groups.yahoo.com/group/delphi-en/ >To unsubscribe: [EMAIL PROTECTED] >Yahoo! Groups Links > > > > > > > > > > ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h9isoq8/M=362335.6886445.7839731.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1123704894/A=2894361/R=0/SIG=13jmebhbo/*http://www.networkforgood.org/topics/education/digitaldivide/?source=YAHOO&cmpgn=GRP&RTP=http://groups.yahoo.com/";>In low income neighborhoods, 84% do not own computers. At Network for Good, help bridge the Digital Divide!</a>.</font> --------------------------------------------------------------------~-> ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
