Procedura: Individuare e sostituire caratteri speciali in un file XML con Visual Basic .NET

Descrizione della tecnica

• lt
• amp

• gt
• apos
• quot

Stabilire se è richiesta una sostituzione di caratteri speciali

Non è necessario: File XML in cui sono recuperare i dati da un database

Richiesto: Un file XML con caratteri speciali

Sostituire i caratteri speciali

1. Creazione del file XML.
2. Creare l'applicazione di Visual Basic .NET e quindi inserire il codice.

Creazione del file XML

<?xml version="1.0" standalone="yes"?>
<Customers>
<Customer>
<CustomerID>BLAUS</CustomerID>
<CompanyName>Blauer See Delikatessen</CompanyName>
<ContactName>Hanna Moos</ContactName>
<Region>test<ing</Region>
</Customer>
<Customer>
<CustomerID>SPLIR</CustomerID>
<CompanyName>Split Rail Beer & Ale</CompanyName>
<ContactName>Art raunschweiger</ContactName>
<Region>WY</Region>
</Customer>
</Customers>
				

Creazione progetto di Visual Basic .NET

1. Creare una nuova Applicazione Windows in Visual Basic .NET.
2. Utilizzare un'operazione di trascinamento e rilascio per spostare un controllo TextBox , due controlli Button e un DataGrid .
3. Impostare la proprietà di MultiLine del controllo TextBox su true .
4. Importare gli spazi dei nomi seguente:

   Imports System.Xml
   Imports System.IO
   Imports System.Data.SqlClient
   					

5. Dopo la sezione seguente

   Inherits System.Windows.Forms.Form

   copiare e incollare il seguente codice di esempio:

    Dim filepath As String = "C:\customers.xml"
   Private Sub ReplaceSpecialChars(ByVal linenumber As Long)
           Dim strm As StreamReader
           Dim strline As String
           Dim strreplace As String
   
           Dim tempfile As String = "C:\temp.xml"
           Try
               FileCopy(filepath, tempfile)
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
   
           Dim strmwriter As New StreamWriter(filepath)
           strmwriter.AutoFlush = True
   
           strm = New StreamReader(tempfile)
   
   
           Dim i As Long = 0
           While i < linenumber - 1
               strline = strm.ReadLine
               strmwriter.WriteLine(strline)
               i = i + 1
           End While
   
           strline = strm.ReadLine
           Dim lineposition As Int32
           lineposition = InStr(strline, "&")
           If lineposition > 0 Then
               strreplace = "&amp;"
           Else
               lineposition = InStr(2, strline, "<")
               If lineposition > 0 Then
                   strreplace = "<"
               End If
           End If
           strline = Mid(strline, 1, lineposition - 1) + strreplace + Mid(strline, lineposition + 1)
           strmwriter.WriteLine(strline)
   
           strline = strm.ReadToEnd
           strmwriter.WriteLine(strline)
   
           strm.Close()
           strm = Nothing
   
           strmwriter.Flush()
           strmwriter.Close()
           strmwriter = Nothing
   
       End Sub
   
       Public Function LoadXMLDoc() As XmlDocument
           Dim xdoc As XmlDocument
           Dim lnum As Long
           Dim pos As Long
           Dim Newxml As String
           Try
               xdoc = New XmlDocument()
               xdoc.Load(filepath)
           Catch ex As XmlException
               MessageBox.Show(ex.Message)
               lnum = ex.LineNumber
               ReplaceSpecialChars(lnum)
   
               xdoc = LoadXMLDoc()
   
           End Try
           Return (xdoc)
       End Function
   					

6. Copiare e incollare il codice riportato di seguito nell'evento Click di Button1 :

   Dim xmldoc As New XmlDocument()
           xmldoc = LoadXMLDoc()
           Dim nextnode As XmlNode
           nextnode = xmldoc.FirstChild.NextSibling
           TextBox1.Text = nextnode.OuterXml
   					

7. Copiare e incollare il codice riportato di seguito nell'evento Click di Button2 :

   Dim ds As New DataSet()
           Dim xdoc As New XmlDocument()
           Dim cnNwind As New SqlConnection("Data source=myservername;user id=myuser;Password=mypassword;Initial catalog=Northwind;")
           Dim daCustomers As New SqlDataAdapter("Select customerid,companyname,contactname, region from customers where region='WY'", cnNwind)
           Dim filepath As String
           Try
               daCustomers.Fill(ds, "Customers")
               DataGrid1.DataSource = ds.Tables(0)
               ds.WriteXml("C:\Dataset.xml")
               xdoc.Load("C:\Dataset.xml")
               Dim nextnode As XmlNode
               nextnode = xdoc.FirstChild.NextSibling
               TextBox1.Text = nextnode.OuterXml.ToString
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
   					

8. Modificare il nome del server, il nome utente e la password per connettersi al server che esegue Microsoft SQL Server.
9. Generare il progetto ed eseguirla.
10. Fare clic su Button1 .
    
    Gli errori che viene visualizzato sono coerenti con la descrizione degli errori che sono descritti nella sezione "Richiesta: an XML file con caratteri speciali". I dati XML viene quindi visualizzati nella TextBox ; la e commerciale viene sostituita con
11. Fare clic su Button2.
    
    Nel DataGrid , companyname ha una e commerciale e TextBox Mostra i dati XML con

Torna all'inizio | Invia suggerimenti