Then work down your string considering two characters at a time and copy into your other buffer accordingly. Chris has given you the code, it only needs tweeking slightly.
Trevor wrote: >Ok. It appears that I have these LF characters that randomly appear >in the middle of some lines. I want to strip these line feeds out >(the ones that are in the middle of the lines). > >Thanks > >--- In [email protected], "Chris @ IT" <[EMAIL PROTECTED]> wrote: > > >>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 >> >> > > > > > >----------------------------------------------------- >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=12hhubh29/M=362131.6882499.7825260.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1123705976/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org ">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</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/
