String translation

[al jones]

I'm reading data from several font file files (designer / copyright / etc)

Several of the strings begin with a chr(63) <might be chr(65) I don't have
one open at the moment> and appear to be unicode (2 bytes per char).
Several begin with chr(255) and appear to be charW <??> (four bytes per
char)

Most of these appear to be just ascii srings (in presumably different
encoding) as I can read them if I open the font in font browser, the
designer name for example.

I've tried:

Dim unicodeBytes As Byte() = [unicode].GetBytes(strIn)
Dim asciiBytes As Byte() = Encoding.Convert([unicode], ascii, unicodeBytes)
Dim asciiChars(ascii.GetCharCount(asciiBytes, 0, asciiBytes.Length)) As Char
ascii.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)
Return asciiString

I'm getting nothing sensible back. Is the initial character (63 / 255) I'm
seeing part of the string? Any suggestions on how to make this conversion
work as I'd like it to?

Thanks //al

 

[Michel Posseth [MCP]]

The stream reader can detect the byte order mark by itself use this option
when reading files where you do not know for sure what the encoding is


regards

Michel Posseth [MCP]

I'm reading data from several font file files (designer / copyright / etc)

Several of the strings begin with a chr(63) <might be chr(65) I don't have
one open at the moment> and appear to be unicode (2 bytes per char).
Several begin with chr(255) and appear to be charW <??> (four bytes per
char)

Most of these appear to be just ascii srings (in presumably different
encoding) as I can read them if I open the font in font browser, the
designer name for example.

I've tried:

Dim unicodeBytes As Byte() = [unicode].GetBytes(strIn)
Dim asciiBytes As Byte() = Encoding.Convert([unicode], ascii,
unicodeBytes)
Dim asciiChars(ascii.GetCharCount(asciiBytes, 0,
asciiBytes.Length)) As Char
ascii.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)
Return asciiString

I'm getting nothing sensible back. Is the initial character (63 / 255)
I'm
seeing part of the string? Any suggestions on how to make this conversion
work as I'd like it to?

Thanks //al

 

[al jones]

Wish I could, these are random access reads within the file. Thanks for
the thought. //al

The stream reader can detect the byte order mark by itself use this option
when reading files where you do not know for sure what the encoding is

regards

Michel Posseth [MCP]

I'm reading data from several font file files (designer / copyright / etc)

Several of the strings begin with a chr(63) <might be chr(65) I don't have
one open at the moment> and appear to be unicode (2 bytes per char).
Several begin with chr(255) and appear to be charW <??> (four bytes per
char)

Most of these appear to be just ascii srings (in presumably different
encoding) as I can read them if I open the font in font browser, the
designer name for example.

I've tried:

Dim unicodeBytes As Byte() = [unicode].GetBytes(strIn)
Dim asciiBytes As Byte() = Encoding.Convert([unicode], ascii,
unicodeBytes)
Dim asciiChars(ascii.GetCharCount(asciiBytes, 0,
asciiBytes.Length)) As Char
ascii.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)
Return asciiString

I'm getting nothing sensible back. Is the initial character (63 / 255)
I'm
seeing part of the string? Any suggestions on how to make this conversion
work as I'd like it to?

Thanks //al