1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Public Shared Function CaracCodeTA(ByVal car As String)
Dim carcode As String = car
carcode = Replace(car, "&", "&")
carcode = Replace(car, "à", "à")
carcode = Replace(car, "â", "â")
carcode = Replace(car, "ä", "ä")
carcode = Replace(car, "é", "è")
carcode = Replace(car, "è", "é")
carcode = Replace(car, "ê", "ê")
carcode = Replace(car, "ë", "ë")
carcode = Replace(car, "ï", "ï")
carcode = Replace(car, "î", "î")
carcode = Replace(car, "ö", "ö")
carcode = Replace(car, "ô", "ô")
carcode = Replace(car, "ù", "ù")
carcode = Replace(car, "û", "û")
carcode = Replace(car, "ü", "ü")
carcode = Replace(car, "ç", "ç")
Return carcode
End Function
Public Shared Sub ecrire(ByVal message As String, ByVal fichier As String, ByVal codage As System.Text.Encoding)
Dim oWriter As New StreamWriter(fichier, True, codage)
oWriter.WriteLine(message)
oWriter.Close()
End Sub
ecrire("<?xml version='1.0' encoding='ISO-8859-1' ?>", ficXML, codage)
ecrire("<texte>" & CaracCodeTA(r.Item("TEXTE")) & "</texte><rubrique>" & r.Item("RUBRIQUE") & "</rubrique><pays>France</pays><ville>" & CaracCodeTA(r.Item("VILLE")) & "</ville><postal>" & r.Item("POSTAL") & "</postal><prix>" & r.Item("PRIX") & "</prix><tel_agence>" & r.Item("TEL_AGENCE") & "</tel_agence><complements><CH>" & r.Item("CH") & "</CH><B>" & r.Item("B") & "</B><AN>" & r.Item("AN") & "</AN></complements></annonce>", ficXML, codage) |
Partager