Preserve Whitespace - newbie question

[sbushway]

Bear with me- I'm sure this is a really easy question:

I'm reading a line from a fixed-width file that looks something like this:

JOHN DOE 123 MAIN ST NEW YORK

I want to preserve the whitespace when I read the file, but I don't know how to do that.

This is what I'm doing:
x = myStreamReader.ReadLine
label1.text = x.Substring(1,15)
label2.text = x.Substring(16,20)
label3.text = x.Substring(21,10)

label1 should be 'JOHN DOE ' (without the quotes of course)
label2 should be '123 MAIN ST '
label3 should be 'NEW YORK '

But what it's doing is setting label1 to 'JOHN DOE 123 MA'

Can anyone tell me how to preserve the whitespace?

Thanks!
Suzanne

 

[nomi2000]

Hi suzanne
it should not give if you use the Substring with Correct length & postionf of the field,as you said you have fixed lenght fields so you should know the length of the field and starting position
so if ur fields
label1.text=x.Substring(1,15) 'This field start at 0 and is of lenght of 15 chars
label2.text = x.Substring(16,20) 'This field start at 17 postion and is of lenght of 20 chars
label3.text = x.Substring(21,10) 'This field starts at 22 position and have 10 chars

Regards
Nouman


Nouman Zaheer
Software Engineer
MSR

 

[sbushway]

Sorry - the substring is working fine. I realized that my problem is when I'm reading the line from the textfile.

The textfile contains the whitespace, but when I read that file, it strips it off.

Here's a snippet of my code:

Dim sr as StreamReader
Dim sw as StreamWriter
sr = File.OpenText("myfile.txt")
sw = File.CreateText("myoutput.txt")
dim x as string
dim stringtowrite as string
while sr.peek <> -1
  x = sr.readline
  label1.text = x
end while
sr.close()
sw.close()

Any ideas on how to prevent the StreamWriter from stripping the whitespace when it reads my file?

 

[nomi2000]

Hi
I don't know where in the snippet you are writing to the file? you are just reading it?
You said
"The textfile contains the whitespace, but when I read that file, it strips it off."
i don't understand this either if you have white spaces then sr.readline will read the entire line with all spaces

Dim sr as StreamReader
Dim sw as StreamWriter
sr = File.OpenText("myfile.txt&quot
sw = File.CreateText("myoutput.txt&quot
dim x as string
dim stringtowrite as string
while sr.peek <> -1
x = sr.readline
sW.WriteLine(x)
end while
sr.close()
sw.close()

Regards
Nouman

Nouman Zaheer
Software Engineer
MSR