Byte Array to String

[AG]

I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128) and
chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[Nick Chan]

i use this to read file contents

Public Function GetFileContents (ByVal FullPath As String, _
Optional ByRef ErrInfo As String = "") As String

Dim strContents As String
Dim objReader As StreamReader
Try

objReader = New StreamReader(Fu llPath)
strContents = objReader.ReadT oEnd()
objReader.Close ()
Return strContents
Catch Ex As Exception
ErrInfo = Ex.Message
Return Nothing
End Try
End Function

On Nov 22, 11:56 am, "AG" <NOSPAMa-g...@newsgroups .nospamwrote:

I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128) and
chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[Cowboy \(Gregory A. Beamer\)]

Look at the Encoding object, as it is the quickest. THe other method is some
form of loop, as suggested by Nick.

--
Gregory A. Beamer
MVP, MCP: +I, SE, SD, DBA

*************** *************** *************** ****
| Think outside the box!
|
*************** *************** *************** ****
"AG" <NO**********@n ewsgroups.nospa mwrote in message
news:eM******** ******@TK2MSFTN GP02.phx.gbl...

>I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128)
and chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[AG]

Thanks Nick.
That is one of the methods that I tried which does not produce the desired
results.

--

AG
Email: discussATadhdat aDOTcom
"Nick Chan" <zz*******@yaho o.comwrote in message
news:fb******** *************** ***********@e23 g2000prf.google groups.com...

>i use this to read file contents

Public Function GetFileContents (ByVal FullPath As String, _
Optional ByRef ErrInfo As String = "") As String

Dim strContents As String
Dim objReader As StreamReader
Try

objReader = New StreamReader(Fu llPath)
strContents = objReader.ReadT oEnd()
objReader.Close ()
Return strContents
Catch Ex As Exception
ErrInfo = Ex.Message
Return Nothing
End Try
End Function

On Nov 22, 11:56 am, "AG" <NOSPAMa-g...@newsgroups .nospamwrote:

>I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128)
and
chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[AG]

Thanks Gregory.
I have looked at it and tried several different methods. I guess I don't
understand it well enough.

--

AG
Email: discussATadhdat aDOTcom
"Cowboy (Gregory A. Beamer)" <No************ @comcast.netNoS pamMwrote in
message news:%2******** **********@TK2M SFTNGP02.phx.gb l...

Look at the Encoding object, as it is the quickest. THe other method is
some form of loop, as suggested by Nick.

--
Gregory A. Beamer
MVP, MCP: +I, SE, SD, DBA

*************** *************** *************** ****
| Think outside the box! |
*************** *************** *************** ****
"AG" <NO**********@n ewsgroups.nospa mwrote in message
news:eM******** ******@TK2MSFTN GP02.phx.gbl...

>>I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128)
and chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[Henk Kelder]

You probably need the figure out what the codepage of the ASCII file is.

It is probably 437 or 850 (if you are american of westeuropian), but other
are also possible.
Most likely it depends where you are located.

GetEncoding("cp 437") of something like that should give you the encoding.

Henk
"AG" <NO**********@n ewsgroups.nospa mwrote in message
news:eM******** ******@TK2MSFTN GP02.phx.gbl...

>I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128)
and chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom

[AG]

Thanks Henk.

Neither 437 or 850 worked, but you put me on the right track.
1252 did work!

--

AG
Email: discussATadhdat aDOTcom
"Henk Kelder" <hk*****@versat el.nlwrote in message
news:47******** **************@ news.tele2.nl.. .

You probably need the figure out what the codepage of the ASCII file is.

It is probably 437 or 850 (if you are american of westeuropian), but other
are also possible.
Most likely it depends where you are located.

GetEncoding("cp 437") of something like that should give you the encoding.

Henk
"AG" <NO**********@n ewsgroups.nospa mwrote in message
news:eM******** ******@TK2MSFTN GP02.phx.gbl...

>>I have a file that contains ASCII and Extended ASCII characters.
I need to get the file contents into a string, but the Extended ASCII
characters (dec 128 and 129) are being changed to dec 63.

I have tried several methods, but here is the one I thought would have
worked.

Dim strReturn As String
Dim arBytes() As Byte
arBytes = System.IO.File. ReadAllBytes(<m yfile>)
strReturn = System.Text.Enc oding.UTF8.GetS tring(arBytes)

When I examine strReturn, I find that the chars that should be chr(128)
and chr(129) are all chr(63).

The only thing I could get to work is

Dim strReturn As String = String.Empty
Dim arBytes() As Byte
Dim sB As New StringBuilder
Dim byT As Byte

arBytes = System.IO.File. ReadAllBytes(st rPathFile)
For Each byT In arBytes
sB.Append(Chr(b yT))
Next
strReturn = sB.ToString

Can anyone offer an explanation, and/or a better method?

--

AG
Email: discussATadhdat aDOTcom