Okay, I need to clean up these files. They are coming out of this goofy
system with this header:

?xml version=?1.0? encoding=?UTF-8??

The quotes around things are not coming in as quotes. And it's not the
correct encoding anyway. It needs to be this:

?xml version="1.0" encoding="ISO-8859-1"?


So I guess I need to change the encoding of each file before I can open it
up as an XML doc and read it there. I have no idea what is the best way to
do this programmatically in vb.net. Do I need to open with StreamWriter or
is there an easier way? I can't find anything out there that explains this
clearly. If I need to do this with streamwriter could someone point me
somewhere that shows how to do this?

Thanks,

Keith

Okay, I need to clean up these files. They are coming out of this goofy
system with this header:

?xml version=?1.0? encoding=?UTF-8??

The quotes around things are not coming in as quotes. And it's not the
correct encoding anyway. It needs to be this:

?xml version="1.0" encoding="ISO-8859-1"?


So I guess I need to change the encoding of each file before I can open it
up as an XML doc and read it there. I have no idea what is the best way to
do this programmatically in vb.net. Do I need to open with StreamWriter or
is there an easier way? I can't find anything out there that explains this
clearly. If I need to do this with streamwriter could someone point me
somewhere that shows how to do this?

Thanks,

Keith

"Keith G Hicks" <krh at (no spam) comcast.net> wrote in message
news:uMeJV7lXKHA.4360 at (no spam) TK2MSFTNGP04.phx.gbl...
Okay, I need to clean up these files. They are coming out of this goofy
system with this header:

?xml version=?1.0? encoding=?UTF-8??

The quotes around things are not coming in as quotes. And it's not the
correct encoding anyway. It needs to be this:

?xml version="1.0" encoding="ISO-8859-1"?


So I guess I need to change the encoding of each file before I can open
it up as an XML doc and read it there. I have no idea what is the best
way to do this programmatically in vb.net. Do I need to open with
StreamWriter or is there an easier way? I can't find anything out there
that explains this clearly. If I need to do this with streamwriter could
someone point me somewhere that shows how to do this?

Thanks,

Keith

Well, if the XML files were "well-formed", you'd simply load them up into
a W3C compliant XML DOM Document, which Microsoft makes available in the
System.Xml namespace with the XmlDocument class. Now, with LINQ, we also
have the XDocument type, which I believe is much easier to work with and
can be declared with an inference, as in:

Dim someXML = "...xml goes here..."

The problem is that right now, you can't use either of these because your
XML isn't well-formed. Your first goal should be to try to get the XML
that you are initially receiving to be well-formed.

As for the encoding, you can read the original XML into a new XML DOM
Document or XDocument and set the encoding of that new document.

Where are these XML streams coming from in the first place?

Never mind. I figured it out:


Dim TheFileLines As New List(Of String)

TheFileLines.AddRange(System.IO.File.ReadAllLines(xmlFilesLocation & "\" &
sArticleToPost))

TheFileLines.RemoveAt(0)

TheFileLines.Insert(0, "<?xml version=""1.0"" encoding=""ISO-8859-1""?>")

System.IO.File.WriteAllLines(xmlFilesLocation & "\" & sArticleToPost,
TheFileLines.ToArray)





"Keith G Hicks" <krh at (no spam) comcast.net> wrote in message
news:uMeJV7lXKHA.4360 at (no spam) TK2MSFTNGP04.phx.gbl...
Okay, I need to clean up these files. They are coming out of this goofy
system with this header:

?xml version=?1.0? encoding=?UTF-8??

The quotes around things are not coming in as quotes. And it's not the
correct encoding anyway. It needs to be this:

?xml version="1.0" encoding="ISO-8859-1"?


So I guess I need to change the encoding of each file before I can open
it
up as an XML doc and read it there. I have no idea what is the best way
to
do this programmatically in vb.net. Do I need to open with StreamWriter
or
is there an easier way? I can't find anything out there that explains
this
clearly. If I need to do this with streamwriter could someone point me
somewhere that shows how to do this?

Thanks,

Keith

"Keith G Hicks" <krh at (no spam) comcast.net> wrote in message
news:%23$$5j2mXKHA.4808 at (no spam) TK2MSFTNGP06.phx.gbl...
Never mind. I figured it out:


Dim TheFileLines As New List(Of String)

TheFileLines.AddRange(System.IO.File.ReadAllLines(xmlFilesLocation & "\"
&
sArticleToPost))

TheFileLines.RemoveAt(0)

TheFileLines.Insert(0, "<?xml version=""1.0"" encoding=""ISO-8859-1""?>")

System.IO.File.WriteAllLines(xmlFilesLocation & "\" & sArticleToPost,
TheFileLines.ToArray)





"Keith G Hicks" <krh at (no spam) comcast.net> wrote in message
news:uMeJV7lXKHA.4360 at (no spam) TK2MSFTNGP04.phx.gbl...
Okay, I need to clean up these files. They are coming out of this goofy
system with this header:

?xml version=?1.0? encoding=?UTF-8??

The quotes around things are not coming in as quotes. And it's not the
correct encoding anyway. It needs to be this:

?xml version="1.0" encoding="ISO-8859-1"?


So I guess I need to change the encoding of each file before I can open
it
up as an XML doc and read it there. I have no idea what is the best way
to
do this programmatically in vb.net. Do I need to open with StreamWriter
or
is there an easier way? I can't find anything out there that explains
this
clearly. If I need to do this with streamwriter could someone point me
somewhere that shows how to do this?

Thanks,

Keith

You realize that just because you've said what you want the encoding to be
doesn't mean that the characters are actually encoded that way, right?

Yeah, I found that out. I'm kind of stabbing in the dark here. I'm asking
for help and trying to figure things out while waiting. I'm figuring a few
things out but not enough.

I have no way of getting these files in a better format than they already
are. I'm kind of stuck. I need to know how to take a file and change the
encoding to <?xml version="1.0" encoding="ISO-8859-1"?

If I open the file manually in a tool I have called EditPad Pro I can
paste the above into the header. Then when I save it EditPad asks if I
want to change to the new encoding or not. Works quite well. I also
discovered that if I chagne the header in Notepad the characters I'm
having toruble with actually come out fine after I save it and reopen in
XML editor. So that's why I thought that changing it in vb code would do
the same thing. Guess not. Not sure why it works in Notepad.

So anyone that can help me write code to encode these files properly would
get my sincerest thanks.

Thanks,

Keith

Specify the encoding when you read the lines, that way you will read the
rest of the file correctly:

Dim fileName As String = Path.Combine(xmlFilesLocation, sArticleToPost)
Dim iso = Encoding.GetEncoding("ISO-8859-1")
Dim lines As String() = System.IO.File.ReadAllLines(fileName, iso)

lines(0) = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
System.IO.File.WriteAllLines(fileName, lines, iso)
snip

Keith G Hicks wrote:
Never mind. I figured it out:


Dim TheFileLines As New List(Of String)

TheFileLines.AddRange(System.IO.File.ReadAllLines(xmlFilesLocation & "\"
&
sArticleToPost))

TheFileLines.RemoveAt(0)

TheFileLines.Insert(0, "<?xml version=""1.0"" encoding=""ISO-8859-1""?>")

System.IO.File.WriteAllLines(xmlFilesLocation & "\" & sArticleToPost,
TheFileLines.ToArray)


You are shuffling a lot of data around that you don't need to. You don't
have to turn the array to a list and back again. Just replace the first
item instead of removing it and inserting a new one.

Specify the encoding when you read the lines, that way you will read the
rest of the file correctly:

Dim fileName As String = Path.Combine(xmlFilesLocation, sArticleToPost)
Dim iso = Encoding.GetEncoding("ISO-8859-1")
Dim lines As String() = System.IO.File.ReadAllLines(fileName, iso)

lines(0) = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
System.IO.File.WriteAllLines(fileName, lines, iso)


You could also save the file as UTF-8 if you like. Once you have the text
as strings, it can be encoded using any encoding that has a character set
that supports the characters that you have. As strings in .NET are Uncide,
you can always encode a string using any Unicode encoding.

lines(0) = "<?xml version=""1.0"" encoding=""UTF-8""?>"
System.IO.File.WriteAllLines(fileName, lines)

--
Göran Andersson
_____
http://www.guffa.com

Yeah, I found that out too. I got that from a post somewhere and it
seemed
a bit clunky. I ended up with this instead (also a bit clunky)

Dim sr As New StreamReader(xmlFilesLocation & "\" & sArticleToPost,
Encoding.GetEncoding("ISO-8859-1"))

Dim text As String = sr.ReadToEnd

sr.Close()

sr = Nothing

Dim text2() As String

ReDim text2(1)

text2(0) = text.Replace("<?xml version=1.0 encoding=UTF-8?>", "<?xml
version=""1.0"" encoding=""ISO-8859-1""?>").Replace("&", "&")

System.IO.File.WriteAllLines(xmlFilesLocation & "\" & sArticleToPost,
text2, Encoding.GetEncoding("ISO-8859-1"))



But what you suggested below is cleaner and works just fine. Thanks for
the
input. Really appreciated.

"Göran Andersson" <guffa at (no spam) guffa.com> wrote in message
news:OzpGp0vXKHA.3720 at (no spam) TK2MSFTNGP02.phx.gbl...
Keith G Hicks wrote:
Never mind. I figured it out:


Dim TheFileLines As New List(Of String)

TheFileLines.AddRange(System.IO.File.ReadAllLines(xmlFilesLocation & "\"
&
sArticleToPost))

TheFileLines.RemoveAt(0)

TheFileLines.Insert(0, "<?xml version=""1.0""
encoding=""ISO-8859-1""?>")

System.IO.File.WriteAllLines(xmlFilesLocation & "\" & sArticleToPost,
TheFileLines.ToArray)


You are shuffling a lot of data around that you don't need to. You don't
have to turn the array to a list and back again. Just replace the first
item instead of removing it and inserting a new one.

Specify the encoding when you read the lines, that way you will read the
rest of the file correctly:

Dim fileName As String = Path.Combine(xmlFilesLocation, sArticleToPost)
Dim iso = Encoding.GetEncoding("ISO-8859-1")
Dim lines As String() = System.IO.File.ReadAllLines(fileName, iso)

lines(0) = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
System.IO.File.WriteAllLines(fileName, lines, iso)


You could also save the file as UTF-8 if you like. Once you have the text
as strings, it can be encoded using any encoding that has a character set
that supports the characters that you have. As strings in .NET are
Uncide,
you can always encode a string using any Unicode encoding.

lines(0) = "<?xml version=""1.0"" encoding=""UTF-8""?>"
System.IO.File.WriteAllLines(fileName, lines)

--
Göran Andersson
_____
http://www.guffa.com

Specify the encoding when you read the lines, that way you will read the
rest of the file correctly:

Dim fileName As String = Path.Combine(xmlFilesLocation, sArticleToPost)
Dim iso = Encoding.GetEncoding("ISO-8859-1")
Dim lines As String() = System.IO.File.ReadAllLines(fileName, iso)

lines(0) = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
System.IO.File.WriteAllLines(fileName, lines, iso)
snip