Leer un XML CFD con VB6 o C#

[smartstore]

Hola buenas tardes,

alguien tiene un ejemplo del codigo en visual basic 6 para leer un XML (Factura timbrada) que genero el CFDLib.dll

Muchas gracias.

[Edcoram]

Espero te sirva esto.

http://www.validacfd.com/phpbb3/viewtop ... =10#p18234

[smartstore]

Gracias. Aporto este codigo por si les sirve en C#

Hice este codigo en C# y si sirve

myfile es la ruta donde esta el xml a leer.

Código: Seleccionar todo

void uuid_get(string myfile)
        {
            string uuid = "";
            string folio = "";
            string rfc = "";
            string rfc_cliente = "";
            XmlReader reader = XmlReader.Create(myfile)  ;
            {
                while (reader.Read())
                {
                    if (reader.IsStartElement())   // checa si hay algo que leer.
                    {
                        // obtiene el nombre de cada elemento
                        switch (reader.Name)
                        {

                            case "cfdi:Comprobante":
                                folio = reader["folio"];                                
                                break;

                                
                            case "cfdi:Emisor":
                                rfc = reader["rfc"];
                                break;

                            case "cfdi:Receptor":
                                rfc_cliente = reader["rfc"];
                                break;

                            case "tfd:TimbreFiscalDigital":
                                // Detect this element.
                                uuid = reader["UUID"];
                                break;
                            
                        }

                    }
                }
                db_grabar(folio,uuid,rfc,rfc_cliente,reader.Depth.ToString()); //Esta rutina depende de cada quien es para implementarla para grabar a la base de datos
            }
        }

[cie67]

El codigo en C# esta genial, muchas gracias. lo converti a Vb. net 2015 por si a alguien le sirve.
funciona al 100.

muchas gracias!!!

Código: Seleccionar todo

    Private Sub uuid_get(myfile As String)
        Dim uuid As String = ""
        Dim folio As String = ""
        Dim rfc As String = ""
        Dim rfc_cliente As String = ""
        Dim reader As XmlReader = XmlReader.Create(myfile)
        If True Then
            While reader.Read()
                If reader.IsStartElement() Then
                    ' checa si hay algo que leer. 
                    ' obtiene el nombre de cada elemento 
                    Select Case reader.Name

                        Case "cfdi:Comprobante"
                            folio = reader("folio")
                            Exit Select


                        Case "cfdi:Emisor"
                            rfc = reader("rfc")
                            Exit Select

                        Case "cfdi:Receptor"
                            rfc_cliente = reader("rfc")
                            Exit Select

                        Case "tfd:TimbreFiscalDigital"
                            ' Detect this element. 
                            uuid = reader("UUID")
                            Exit Select


                    End Select
                End If
            End While
            '    db_grabar(folio, uuid, rfc, rfc_cliente, reader.Depth.ToString())
            'Esta rutina depende de cada quien es para implementarla para grabar a la base de datos 
        End If
    End Sub