| ID | Asunto | Fecha | Nick | |
| 40545 | Crear un xml que admita caracteres tipo ñ | 18/04/08 15:06 | jesus_yo | |  |
Hola. Yo creo un xml con el siguiente codigo hecho en VB 6:
Open "c:\Fichero.xml" For Output As #1
Print #1, "<?xml version='1.0' encoding='UTF-8'?>"
Print #1, "<datos>"
Print #1, " <registro>"
close #1
pero si tengo una 'ñ', al abrir el fichero en el explorador me da error. ¿Que tengo que cambiar en la creacion del fichero para que no me de error? Gracias Un saludo |
|
| ID | Asunto | Fecha | Nick | |
| 40860 | Re: Crear un xml que admita caracteres tipo ñ (Resp: 40545) | 27/04/08 02:03 | Jhonny Vargas P. | | |
Si mal no recuerdo debes cambiar el encabezado por el ISO-8859-1 y no UTF-8 Es decir: Print #1, "" Por otro lado veo que estás usando VB 6.0 para la generación de este XML vía Archivo de texto, te recomiendo que veas Microsoft XML 3.0 o superior y lo instales, para la creación de XML... puedes crear nodos, atributos, elementos, etc... Descargalo de aqui. http://www.microsoft.com/downloads/details.aspx?familyid=3144B72B-B4F2-46DA-B4B6-C5D7485F2B42&displaylang=en  Jhonny Vargas P. Santiago de Chile http://msmvps.com/jvargas
Si esta respuesta resuelve tu duda, por favor pulsa en la  de este mensaje. Gracias. |
|
| ID | Asunto | Fecha | Nick | |
| 40918 | Re: Crear un xml que admita caracteres tipo ñ (Resp: 40860) | 29/04/08 04:12 | jesus_yo | | |
hola y gracias por tu respuesta. ¿podrias mandarme un pequeño ejemplo de codigo (para vb6) utilizando el Microsoft XML 3.0, de como creo el fichero, añado nodo, etc?
Muchas gracias.
Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias. |
|
| ID | Asunto | Fecha | Nick | |
| 40954 | Re: Crear un xml que admita caracteres tipo ñ (Resp: 40918) | 29/04/08 19:59 | Jhonny Vargas P. | | |
Por supuesto, este ejemplo lo saque de este sitio: http://msdn2.microsoft.com/en-us/library/ms757901(VS.85).aspx Dim xmlDoc As New Msxml2.DOMDocument30
Dim MyNode As IXMLDOMNode
Dim namedNodeMap As IXMLDOMNamedNodeMap
xmlDoc.async = False
xmlDoc.loadXML "<root><child/></root>"
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox("You have error " & myErr.reason)
Else
Set MyNode = xmlDoc.createNode(NODE_ATTRIBUTE, "Sci-Fi", "")
Set namedNodeMap = xmlDoc.documentElement.childNodes.Item(0).Attributes
namedNodeMap.setNamedItem MyNode
MsgBox (xmlDoc.documentElement.xml)
End IfTe recomiendo mirar este link. http://msdn2.microsoft.com/en-us/library/ms766487(VS.85).aspx Jhonny Vargas P. Santiago de Chile http://msmvps.com/jvargas
Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias. |
