Change the # to $ :)
Chris Albert, Innovative Technologies. http://www.it.co.ke/beta -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Trevor Sent: Wednesday, August 10, 2005 9:01 PM To: [email protected] Subject: [delphi-en] Re: CSV File export character problem 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 ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h03apqa/M=362335.6886445.7839731.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1123704188/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/
