Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
Solved
Replacing special XML characters in vb.net
Posted on 2011-09-07
I've got a website where a user needs to print details from a customer info screen onto an envelope to be mailed to said customer.
I have an xml template doc that is on the server and a function that pulls info from the customer form and makes strings (name and address strings) and places those into the template. When the button is clicked to generate it opens an instance of MS Word on their local machine and allows them to print the envelope with all the details entered for them.
The only issue now is when you have an address or company name with a "&" in it the function crashes out as the "&" is a special character in XML. What's the best way to compare the string and replace the "&"? I'll give the code example below:
Public Shared Function CreateEnvelopeForPrint(ByV
Dim Addr1 As String = ""
Dim Addr2 As String = ""
Dim Addr3 As String = ""
Dim Addr4 As String = ""
Dim Addr5 As String = ""
With LicenceFormParam
''Creating the strings to hold the customer's names and addresses
Dim PrimaryOwner As String = .PrimaryFirstName + " " + .PrimaryLastName
Dim SecondaryOwner As String = .SecondaryFirstName + " " + .SecondaryLastName
' Build line that contains place, province/state and postal code
Dim PlaceLineStr As String
If .ProvinceCode.Equals("99")
PlaceLineStr = .PlaceName + ", " + .CountryName
Else
PlaceLineStr = .PlaceName + " " + .ProvinceCode + " " + .PostalCode
End If
If (.EnterpriseName <> "") Then
Addr1 = .EnterpriseName
If (.PrimaryLastName <> "") Then
Addr2 = PrimaryOwner
If (.SecondaryLastName <> "") Then
Addr2 = Addr2 + " / " + SecondaryOwner
End If
Else
Addr2 = .AddressLine1
End If
Else
Addr1 = PrimaryOwner
If (.SecondaryLastName <> "") Then
Addr1 = Addr1 + " / " + SecondaryOwner
End If
Addr2 = .AddressLine1
End If
If Addr2 = .AddressLine1 Then
If .AddressLine2 <> "" Then
Addr3 = .AddressLine2
Addr4 = PlaceLineStr
Else
Addr3 = PlaceLineStr
End If
Else
Addr3 = .AddressLine1
If .AddressLine2 <> "" Then
Addr4 = .AddressLine2
Addr5 = PlaceLineStr
Else
Addr4 = PlaceLineStr
End If
End If
End With
'Replace lines $ADDRX$ place holders in template with the appropriate upper case line built above
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
Return TemplateStringParam
End Function
I have an xml template doc that is on the server and a function that pulls info from the customer form and makes strings (name and address strings) and places those into the template. When the button is clicked to generate it opens an instance of MS Word on their local machine and allows them to print the envelope with all the details entered for them.
The only issue now is when you have an address or company name with a "&" in it the function crashes out as the "&" is a special character in XML. What's the best way to compare the string and replace the "&"? I'll give the code example below:
Public Shared Function CreateEnvelopeForPrint(ByV
Dim Addr1 As String = ""
Dim Addr2 As String = ""
Dim Addr3 As String = ""
Dim Addr4 As String = ""
Dim Addr5 As String = ""
With LicenceFormParam
''Creating the strings to hold the customer's names and addresses
Dim PrimaryOwner As String = .PrimaryFirstName + " " + .PrimaryLastName
Dim SecondaryOwner As String = .SecondaryFirstName + " " + .SecondaryLastName
' Build line that contains place, province/state and postal code
Dim PlaceLineStr As String
If .ProvinceCode.Equals("99")
PlaceLineStr = .PlaceName + ", " + .CountryName
Else
PlaceLineStr = .PlaceName + " " + .ProvinceCode + " " + .PostalCode
End If
If (.EnterpriseName <> "") Then
Addr1 = .EnterpriseName
If (.PrimaryLastName <> "") Then
Addr2 = PrimaryOwner
If (.SecondaryLastName <> "") Then
Addr2 = Addr2 + " / " + SecondaryOwner
End If
Else
Addr2 = .AddressLine1
End If
Else
Addr1 = PrimaryOwner
If (.SecondaryLastName <> "") Then
Addr1 = Addr1 + " / " + SecondaryOwner
End If
Addr2 = .AddressLine1
End If
If Addr2 = .AddressLine1 Then
If .AddressLine2 <> "" Then
Addr3 = .AddressLine2
Addr4 = PlaceLineStr
Else
Addr3 = PlaceLineStr
End If
Else
Addr3 = .AddressLine1
If .AddressLine2 <> "" Then
Addr4 = .AddressLine2
Addr5 = PlaceLineStr
Else
Addr4 = PlaceLineStr
End If
End If
End With
'Replace lines $ADDRX$ place holders in template with the appropriate upper case line built above
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
TemplateStringParam = TemplateStringParam.Replac
Return TemplateStringParam
End Function
-
7
5
13 Comments
Active 4 days ago
Replace & with &
Refer: http://support.microsoft.com/kb/316063
Refer: http://support.microsoft.com/kb/316063
It still crashes out using the replace string. I declared a new variable
Dim replaceChar1 As String = "&"
Then after I build the address string i use this:
Dim Addr1_replace As String = Addr1.Replace("&", replaceChar1)
Then
TemplateStringParam = TemplateStringParam.Replac
then I return the templatestring param to be written and when word opens I still get the error stating the file cant be opened as their is problems with the template
Dim replaceChar1 As String = "&"
Then after I build the address string i use this:
Dim Addr1_replace As String = Addr1.Replace("&", replaceChar1)
Then
TemplateStringParam = TemplateStringParam.Replac
then I return the templatestring param to be written and when word opens I still get the error stating the file cant be opened as their is problems with the template
Active 3 days ago
Can you get the entire encoded XML and paste it here? There may well be other issues in there
You mean this?
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<?mso-application progid="Word.Document"?>
<pkg:package xmlns:pkg="http://schemas.microsoft.com/office/2006/xmlPackage"><pkg:part pkg:name="/_rels/.rels" pkg:contentType="applicati
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<?mso-application progid="Word.Document"?>
<pkg:package xmlns:pkg="http://schemas.microsoft.com/office/2006/xmlPackage"><pkg:part pkg:name="/_rels/.rels" pkg:contentType="applicati
Active 3 days ago
That's it. When I paste that lot into a text file, save as XML then open in Visual Studio, I get this error:
File Load
Some bytes have been replaced with the Unicode substitution character while loading file C:\.....Test.XML with Unicode (UTF-8) encoding. Saving the file will not preserve the original file contents
This means you are writing unicode UTF8 characters in the XML file but not declaring it as a UTF8 encoded document, and perhaps not saving as one either.
File Load
Some bytes have been replaced with the Unicode substitution character while loading file C:\.....Test.XML with Unicode (UTF-8) encoding. Saving the file will not preserve the original file contents
This means you are writing unicode UTF8 characters in the XML file but not declaring it as a UTF8 encoded document, and perhaps not saving as one either.
Active 3 days ago
Further to that, if I press Save in Visual Studio, the file then opens perfectly in Word, so it must be an other unicode character that's causing the problem, or is your ASP.NET page not a unicode page itself?
Ok so when i actually call the function and write to the template I should specify a charset of utf-8?
Here is an example of where the function is called for a click even to print the envelope
Protected Sub btnPrintAddy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrintAddy.Click
Dim ResponseFileText As String
' Populate mLicenceForm for passing to utility method
GetDataFromControls()
' Fetch envelope template from cache
ResponseFileText = Context.Cache.Get("envelop
'Send Response
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader("conten
Response.Write(PclUtility.
Response.Flush()
Response.End()
End Sub
Should I have the response.charset set to utf-8?
Protected Sub btnPrintAddy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrintAddy.Click
Dim ResponseFileText As String
' Populate mLicenceForm for passing to utility method
GetDataFromControls()
' Fetch envelope template from cache
ResponseFileText = Context.Cache.Get("envelop
'Send Response
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader("conten
Response.Write(PclUtility.
Response.Flush()
Response.End()
End Sub
Should I have the response.charset set to utf-8?
Active 3 days ago
>> Should I have the response.charset set to utf-8?
Yes that would certainly help. Its because some of your characters used aren't part of the current character set, so the XML parse fails. So if you specific UTF8 and save as UTF8 then the characters will be perfectly readable.
Yes that would certainly help. Its because some of your characters used aren't part of the current character set, so the XML parse fails. So if you specific UTF8 and save as UTF8 then the characters will be perfectly readable.
I specified the charset to utf-8 and still no luck. The webform the function pulls its data from to build the strings is unicode, and .xml template i'm manipulating is automatically utf8 so I'm at a lost where it's going wrong
Featured Post
Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
User art_snob (http://www.experts-exchange.com/M_6114203.html) encountered strange behavior of Android Web browser on his Mobile Web site. It took a while to find the true cause. It happens so, that the Android Web browser (at least up to OS ver. 2.…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Free Data Recovery software is an advanced solution from Kernel Tools to recover data and files such as documents, emails, database, media and pictures, etc. It supports recovery from physical & logical drive after a hard disk crash, accidental/inte…
Through the video, you can check the migration process of Outlook PST file to PDF. Kernel for Outlook to PDF tool can convert Outlook emails with all attributes like Subject, To, From, Cc, Bcc and other folders such as Inbox, Outbox, Sent Items, Jun…
Suggested Courses
Course of the Month10 days, 15 hours left to enroll
607 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.