if your showing it in HTML, consider replacing with "<br />" instead of just ""
-----Original Message----- From: Sam Thompson [mailto:[EMAIL PROTECTED]] Sent: Tuesday, June 18, 2002 7:31 AM To: ActiveServerPages Subject: Re: Off Topic (kind of): VB help with carriage returns a carriage return is VbCrLf, so: Replace(string, VbCrLf, "") HTH Sam Thompson ---------------------------------------------- 2cs Communications Ltd http://www.2cs.com [EMAIL PROTECTED] T: 01473 622263 F: 01473 622515 ----------------------------------------------- ----- Original Message ----- From: "Carlos" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Tuesday, June 18, 2002 3:26 PM Subject: Off Topic (kind of): VB help with carriage returns > I'm trying to read a text file and write to a new text file line by > line. One of the lines that I have has a carriage return that I need to > take out. How can I do this? Here's the code I'm using. Thanks for > the help. > > Do While objReadFile.AtEndOfStream <> True > > ' Retrieve data. > strData = objReadFile.ReadLine > > ' This gets rid of completely empty lines. > If Len(strData) <> 0 Then > > ' If the right 5 is ",,," (quotes inclusive) then include these. > If Right(strData, 5) = """,,,""" Then > > ' Append the previous line with the new line. > ' This is where I'm trying to get rid of the carriage return > between these lines. > ' But it is reading in the carriage return anyway. > strData = strData & objReadFile.ReadLine > > End If > > ' Write the line out. > objWriteFile.WriteLine strData > End If > Loop > > > -Carlos > > > > --- > You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] > To unsubscribe send a blank email to %%email.unsub%% > --- You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] To unsubscribe send a blank email to %%email.unsub%% --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
