removing Carriage Returns

[dagoose]

Hi All,

I have a problem, I have a text file with rows of data in the following format:

Name:
Bill

Name:
Bob

What I would like to do is strip out the CArriage return fromthe name: line to leave

Name:Bill

Name:Bob

Can I use the Trim() method to strip out carriage returns or is there another way.

Cheers

[<ABX]

I would do something like this:

'Requires Imports System.IO
 
'/
 
Dim sr as New StreamReader("filePath")
 
Dim strFile() as String = Split(sr.ReadToEnd, vbcrlf)
 
sr.close
 
'//now assuming that your file is formmated like this
'//:Name:[chr(13)]
'//:Bill[chr(13)]
'//:[chr(13)]
'//:Name:[chr(13)]
'//:Bob[chr(13)]
'//:[chr(13)]
'//ect....
 
Dim strNewFile as String
 
For I as Integer  = 0 to strFile.GetUpperbound(0)
 
Msgbox "Name: " & strFile(I)
 
strNewFile &= "Name: " & strFile(I) & chr(13) ' if you want to recreate the file...
 
Next
 
Dim sw as StreamWriter("filePath")
 
sw.Write(strNewFile)
 
sw.Close
 
'//Done

[dagoose]

Many Thanks, that has worked a treat.

Would it be possible to add something to this code to put in a different symbol if there was a specific word, for example:

Name:Bill
Name:Bob

is now:

Name:Bill,Name:Bob

but if I come across:

Name:Bill
Name:Bob
Number:2

I would like it to be:

Name:Bill,Name:Bob#Number:2
(where i could identify the word number and prefix it with a #)

Again, many thanks