Mensajes

win xp sp2 es el s.o. del pc que quiero restringir el acceso.

jajajaja tiene luces y colores jajajaja no joe peor esta sin pantalla porke quiero que haga la funcion de servidor sin mas jajajaj

el ordenador que hará la funcion de servidor es el que trabaja bajo windows xp sp2.

como puedo hacer para que siempre que se vayan a conectar a el por red les pida una contraseña??

Un saludo

Hola buenas,
Llevo un tiempo mirando en internet y probando cosas pero no me termina de salir.

Tengo una red LAN de varios PCs. 1 PC no tiene ni pantalla ni nada, hace la funcion de servidor.
Quiero que solo 2 PCs tengan acceso a este pc(servidor). Y no se como hacerlo.

He intentado ponerle contraseña al acceso del pc pero no se como.. he intentado betar la carpeta con permisos pero no me sale....

se que es algo simple pero me estoy poniendo nervioso porke no me funciona...

¿podríais ayudarme por favor?

El sistema operativo es windows xp.

Un saludo,
PETETE;)

Hola buenas,
El mismo problema pero intento realizarlo de una manera. el codigo me da ERROR.

primero leo el xml, segundo, guardo lo que leo en un string y asigno el string a una posicion de un array.

Código [Seleccionar] Expandir


Dim bsalida(,) As String

Dim dato1 As String

Public Enum c0 As Integer
                aplicacion = 2
End Enum

For Each nodohijo In nodocabecera
            Select Case nodohijo.Name
                Case "Aplicacion"  ' NODO HIJO1 DE NODO CABECERA
                    dato1 = nodohijo.InnerText
Next

bsalida(fila, c0.aplicacion) = dato1

  Dim num_filas As Integer = bsalida.GetLength(0) - 1
        Dim num_colus As Integer = bsalida.GetLength(1) - 1

        Dim rango As Microsoft.Office.Interop.Excel.Range = xlhoja.Range(xlhoja.Cells(1, 1), xlhoja.Cells(num_filas + 1, num_colus)) ' seleccionamos el rango de celdas,
        With rango '   
            .NumberFormat = "@" ' formato texto, para que no quite ceros a izda
            .Value = bsalida                                               ' le añadimos la matriz completa,
            '.Cells.EntireColumn.AutoFit()                               ' ajustamos el ancho de las columnas,
            '.Interior.Color = Microsoft.Office.Interop.Excel.XlRgbColor.rgbAqua                  ' y le damos un color
            ' ALTO DE LA CELDA -----
            .RowHeight = 15    ' ALTURA DE LAS CELDAS FIJA, PARA QUE AUTOAJUSTE
        End With



        xlapp.ReferenceStyle = Microsoft.Office.Interop.Excel.XlReferenceStyle.xlR1C1 'xlR1C1


Este codigo es el mio pero acortado. Es lo mismo pero una enumeracion mas larga mas datos como string y demás..
La cosa es que al ejecutar este codigo me da error nada mas lee bsalida(fila, c0.aplicacion)=dato1.
El error es el siguiente: Referencia a objeto no establecida como instancia de un objeto.

Agradecería mucho una ayudita..

Un saludo de vuestro amigo y vecino,
PETETE;)

sisi cierto es.. lo siento ahora comparto el codigo, o parte del codigo.

Código [Seleccionar] Expandir


Imports Microsoft.Office.Interop.Excel
Module Module1
   Dim xlapp As Microsoft.Office.Interop.Excel.Application
   Dim xllibro As Microsoft.Office.Interop.Excel.Workbook
   Dim xlhoja As Microsoft.Office.Interop.Excel.Worksheet
   Dim numfila As Integer = 1
   Dim numcolumna As Integer = 0
   Dim bsalida(,)
   Dim reader As New System.Xml.XmlTextReader("C:\Users\PEPE\Desktop\PEPE\archivos XML\Imp-BD20170239.XML")
   Sub Main()

       Dim contents As String = ""
       xlapp = New Microsoft.Office.Interop.Excel.Application
       xllibro = xlapp.Workbooks.Add
       xlhoja = xllibro.Worksheets("Hoja1")
       xlapp.Visible = True
       While reader.Read()
           reader.MoveToContent()
           If reader.NodeType = Xml.XmlNodeType.Element Then
               contents &= reader.Name & ": "
               ' datos_array()

           End If
           If reader.NodeType = Xml.XmlNodeType.Text Then
               contents &= reader.Value & _
                   Microsoft.VisualBasic.ControlChars.CrLf

           End If



       End While

       escribir_excel()

       'Console.WriteLine(reader.Name & vbTab & contents)
       'Console.ReadLine()

   End Sub

   public enum c0 as integer  
           nombre=1  
           apellido=2
           sexo=3
   end sub
   sub array()
    bsalida(fila, c0.nombre)= ???
    bsalida(fila, c0.apellido)=???
    bsalida(fila, c0.sexo)=???
    end sub
   Sub escribir_excel()

       Dim num_filas As Integer = bsalida.GetLength(0) - 1
       Dim num_colus As Integer = bsalida.GetLength(1) - 1

       '

       Dim rango As Microsoft.Office.Interop.Excel.Range = xlhoja.Range(xlhoja.Cells(1, 1), xlhoja.Cells(num_filas + 1, num_colus)) ' seleccionamos el rango de celdas,
       With rango '  
           .NumberFormat = "@" ' formato texto, para que no quite ceros a izda
           .Value = bsalida                                               ' le añadimos la matriz completa,
           '.Cells.EntireColumn.AutoFit()                               ' ajustamos el ancho de las columnas,
           '.Interior.Color = Microsoft.Office.Interop.Excel.XlRgbColor.rgbAqua                  ' y le damos un color
           ' ALTO DE LA CELDA -----
           .RowHeight = 15    ' ALTURA DE LAS CELDAS FIJA, PARA QUE AUTOAJUSTE
       End With
   End Sub
End Module


Lo que no se es con que igualar los datos del bsalida para que se guarden en el array.

agradecería mucho vuestra ayuda....

En este codigo faltan cosas por poner, me he dado cuenta ahora, en los 2 if reader.nodetype= falta por poner codigo....

A ver, la cosa que tengo un codigo que lee el mismo xml y lo pasa a excel. Pero en vez hacer columnas lo escribe todo en una linea y es lo que tengo que corregir, por eso quiero meterlo en un array.
El segundo codigo del que hablo es este:

Código [Seleccionar] Expandir


Imports System.Xml
Imports Microsoft.Office.Interop.Excel
Module Module1

    Dim dato As String = ""
    Dim documentoXML As Xml.XmlDocument
    Dim nodoprincipal As Xml.XmlNode


    Dim xlapp As New Microsoft.Office.Interop.Excel.Application()
    Dim xllibro As Microsoft.Office.Interop.Excel.Workbook
    Dim xlhoja As Microsoft.Office.Interop.Excel.Worksheet

    Dim columna As Integer = 1
    Dim fila As Integer = 2

    Sub Main()

        '''''XML'''''
        documentoXML = New Xml.XmlDocument  'CREAMOS OBJETO XML
        documentoXML.Load("xml1.XML")           'CARGAMOS XML1 EN OBJETO XML

        'Linea1.Text = DocumentoXml.FirstChild.InnerText ' PRIMER NODO=CODIFICACION


        nodoprincipal = documentoXML.Item("EnvioEntrada") ' LE DECIMOS QUE ENVIOENTRADA ES EL NODO  PRINCIPAL

        '''''EXCEL'''''
        xllibro = xlapp.Workbooks.Add
        xlhoja = xllibro.Worksheets("Hoja1")
        xlapp.Visible = True

        nodo_cabecera(nodoprincipal)

    End Sub

    Sub nodo_cabecera(nodoprincipal As Xml.XmlNode)

        'ANALIZAMOS EL NODO CABECERA

        Dim nodocabecera As Xml.XmlNode
        Dim nodohijo As Xml.XmlNode
        Dim atributo As XmlAttribute

        nodocabecera = nodoprincipal.Item("Cabecera")   'CABECERA ES EL NODO SECUNDARIO

        For Each nodohijo In nodocabecera
            Select Case nodohijo.Name
                Case "Aplicacion"  ' NODO HIJO1 DE NODO CABECERA
                    dato = nodohijo.InnerText
                Case "NumeroEnvio" ' NODO HIJO2 DE NODO CABECERA
                    For Each atributo In nodohijo.Attributes 'ESPECIFICAMOS LOS 3 ATRIBUTOS DEL NODO NUMEROENVIO
                        If atributo.Name = "Universidad" Then dato = atributo.Value
                        If atributo.Name = "AñoGeneracionEnvio" Then dato = atributo.Value
                        If atributo.Name = "Contador" Then dato = atributo.Value
                    Next
                Case "FechaEnvio" ' NODO HIJO3 DE NODO CABECERA
                    dato = nodohijo.InnerText
            End Select
            datos_excel_cabecera(nodohijo, nodocabecera, atributo)

        Next
        nodo_expediente(nodoprincipal, dato, nodocabecera, atributo)
    End Sub
    Sub nodo_expediente(nodoprincipal As Xml.XmlNode, dato As String, nodocabecera As XmlNode, atributo As XmlAttribute)

        'ANALIZAMOS EL NODO EXPEDIENTE

        Dim nodoexpediente As Xml.XmlNode 'NODOEXPEDIENTE ES NODO SECUNDARIO
        Dim nodohijo As Xml.XmlNode
        Dim nombrecabecera As String

        For Each nodoexpediente In nodoprincipal 'LEEMOS TODOS LOS NODOS HIJOS DEL NODO EXPEDIENTE
            If nodoexpediente.Name <> "Cabecera" Then
                For Each nodohijo In nodoexpediente

                    nombrecabecera = nodoexpediente.Name

                    Select Case nodohijo.Name
                        Case "NumeroExpediente"
                            dato = nodohijo.InnerText   'NUMEROEXPEDIENTE.TEXT = NODOHIJO.INNERTEXT ???
                        Case "NumeroRegistroUniversitario"
                            dato = nodohijo.InnerText
                        Case "NumeroRegistroNacional"
                            dato = nodohijo.InnerText
                        Case "DatosPersonales"
                            If nodohijo.HasChildNodes Then
                                datospersonales_expediente(nodohijo, nodoexpediente)
                            End If

                        Case "TipoTitulo"
                            dato = nodohijo.InnerText
                        Case "TipoDocumento"
                            dato = nodohijo.InnerText
                        Case "ProgramaConjunto"
                            dato = nodohijo.InnerText
                        Case "Estudio"
                            dato = nodohijo.InnerText
                        Case "FechaConsejoMinis"
                            dato = nodohijo.InnerText
                        Case "FechaPublicacion"
                            dato = nodohijo.InnerText
                        Case "FechaFinEstudios"
                            dato = nodohijo.InnerText
                        Case "FechaExpedDocumento"
                            dato = nodohijo.InnerText
                        Case "CausaPropuesta"
                            dato = nodohijo.InnerText
                        Case "Lengua"
                            dato = nodohijo.InnerText
                        Case "MencionDoctor"
                            dato = nodohijo.InnerText
                        Case "ErasmusMundus"
                            dato = nodohijo.InnerText
                       ' bsalida(fila, c0.ErasmusMundus)=nodohijo.innertext
                        Case "CodCentro"
                            dato = nodohijo.InnerText
                    End Select

                    If nodohijo.Name = "DatosPersonales" Then
                        GoTo SALTAR
                    End If
                    datos_excel_expediente(nodohijo, nodoexpediente, nodocabecera, atributo)
SALTAR:

                Next
               
            End If
        Next

        'xlhoja.Range("F2:H2").Merge()                                      '4 LINEAS PARA:
        'xlhoja.Range("F2:H2").Value = "Prueba de combinación"              '    COMBINAR CELDAS
        'xlhoja.Range("F1:H1").Merge()                                      '    Y DARLES NUEVOS VALORES
        'xlhoja.Range("F1:H1").Value = "AAAAA"
    End Sub

    Sub datos_excel_cabecera(nodohijo, nodocabecera, atributo)

        'ESCRIBIMOS LOS DATOS DEL NODO CABECERA

        xlhoja.Rows(1).Font.Bold = True ' PRIMERA LINEA DEL EXCEL EN NEGRITA


        xlapp.Worksheets("Hoja1").cells(1, columna) = nodohijo.name
        xlapp.Worksheets("Hoja1").cells(2, columna) = nodohijo.innertext

        columna += 1

        For Each atributo In nodohijo.attributes
            xlapp.Worksheets("Hoja1").cells(1, columna) = atributo.name
            xlapp.Worksheets("Hoja1").cells(2, columna) = atributo.value
            columna += 1
        Next
       


    End Sub
    Sub datos_excel_expediente(nodohijo, nodoexpediente, nodocabecera, atributo)

        'ESCRIBIMOS LOS DATOS DEL NODO EXPEDIENTE (MENOS LOS HIJOS DEL NODO DATOS PERSONALES)
        'If nodohijo.name = "NumeroExpediente" Then

        '    fila += 1
        '    columna = 7

        'End If
        xlapp.Worksheets("Hoja1").cells(1, columna) = nodohijo.name
        'seguir1:

        xlapp.Worksheets("Hoja1").cells(fila, columna) = nodohijo.innertext

        columna += 1


    End Sub
    Sub datospersonales_expediente(nodohijo, nodocabecera)

        'ESCRIBIMOS LOS NODOS HIJO DEL NODO HIJO DATOS PERSONALES

        For Each nodohijo In nodohijo.childnodes
            xlapp.Worksheets("Hoja1").cells(1, columna) = nodohijo.Name

            xlapp.Worksheets("Hoja1").cells(fila, columna) = nodohijo.innertext

            columna += 1

        Next

    End Sub
   
End Module


HE intentado poner aqui la enumeración y definir el array bsalida(fila, enumeracion). En algun sitio tiene que estar comentado algun ejemplo de eso.
La cosa es que en el excel tienen que aparecer los nombres de los hijos de cada registro en la fila 1 y los datos en las filas 2 en adelante..
Algun registro tiene 1 dato que los otros no y esto modifica todo el excel porque no respeta el nodohijo.name del nodo hijo( hermano).
No se si me estoy explicando bien...

Yo comparto los dos codigos y en caso de duda preguntar que os contestare lo mas claro que pueda..

Un saludo y muchas gracias!!!!

Hola buenas,

estoy intentando guardar un archivo xml en una matriz peor no me sale..

e.j del xml:

envio
     cabecera
            aplicacion =12
     datos
             personales
                       nombre=pepe
              color= rojo

estoy intentando guardar los datos por filas y columnas apra luego apsar al excel, pero la matriz se me queda vacia, los datos no se guardan..

¿algún con sejo de como puedo hacerlo?

toda ayuda es bien agradecida.

Un saludo de vuestro amigo y vecino,
PETETE;)

Cierto es... mea culpa.

Utilizo la libreria itextsharp.

mi codigo es l siguiente.

Código (vb) [Seleccionar] Expandir


Imports iTextSharp.text ' ES OBLIGATORIO IMPORTAR ESTA CLASE PARA QUE EL VISUAL BASIC ENTIENDA EL IDIOMA UTILIZADO
Imports iTextSharp.text.pdf

Module Module1

   Sub Main()

       ' CREAR PDF Y ESCRIBIR

       Dim documentoPDF As New Document(PageSize.A4, 100, 100, 220, 150) ' SE LE PONE LAS CARACTERISTICAS DEL DOCUMENTO PDF (TAMAÑO ETC.)
       iTextSharp.text.pdf.PdfWriter.GetInstance(documentoPDF, New System.IO.FileStream("plantilla.PDF", System.IO.FileMode.Create))
       documentoPDF.Open()


       'AÑADIR TABLA

       Dim tabla
       Dim celda
       Dim celda1
       Dim celda2
       Dim celda3
       Dim celda4
       Dim celda5



       tabla = New pdf.PdfPTable(6) 'EL 4 ES EL NUMERO DE COLUMNAS


       celda = New pdf.PdfPCell(New Phrase("")) 'TITULO DE LA TABLA
       celda1 = New pdf.PdfPCell(New Phrase("CÓDIGO CLIENTE"))

       celda2 = New pdf.PdfPCell(New Phrase("SU PEDIDO Nº"))
       celda3 = New pdf.PdfPCell(New Phrase("REFERENCIA PROVEEDOR"))
       celda4 = New pdf.PdfPCell(New Phrase("FECHA"))
       celda5 = New pdf.PdfPCell(New Phrase("FACTURA Nº"))


       'celda.colspan = 1 ' CELDAS QUE OCUPA EL TITULO DE TABLA  |||  SI LLEGA A SER 3, COMO LA TABLA TIENE 4 COLUMNAS, 1 DE LAS CELDAS SUBIRIA Y SE COLOCARIA JUNTA A LA DEL TITULO
       ' celda.horizontalAlignment = 1 ' UBICACIÓN DEL TITULO DE LA TABLA: 0=IZQUIERDA 1=CENTRADO 2=DERECHA


       'celda.padding = 0.5 ' ALTURA DE LA CELDA DE TITULO
       celda.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

       celda1.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda1.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP
       celda2.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda2.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP
       celda3.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda3.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP
       celda4.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda4.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP
       celda5.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
       celda5.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

       celda.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY ' COLOR DE RELLENO DE LA CELDA DE TITULO
       celda1.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY
       celda2.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY
       celda3.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY
       celda4.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY
       celda5.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY


       tabla.addcell(celda)
       tabla.addcell(celda1)
       tabla.addcell(celda2)
       tabla.addcell(celda3)
       tabla.addcell(celda4)
       tabla.addcell(celda5)


       tabla.addcell(" 1 ")   'SE AÑADE LA CELDA 1
       tabla.addcell(" 2 ")
       tabla.addcell(" 3 ")
       tabla.addcell(" 4 ")
       tabla.addcell(" 5 ")
       tabla.addcell(" 6 ")
     

       ' TOTAL DE CELDAS: 12


       documentoPDF.Add(tabla)

       documentoPDF.Close()
       Process.Start("plantilla.PDF")



   End Sub

End Module





Quiero crear 3 tablas pero de momento con una me vale.. jajaja

Lo que pretendo es que la tabla que se genere tenga 6 columnas y 2 filas. y que la celdas de la fila 1 tenga un tamaño X. A parte de eso quiero mover la tabla a la parte superior izquierda.


pd, Muchas gracias por contestar siempre, siemrpe que posteo algo contestas y eso se agradece =)


Un saludo,
PETETE;)

Hola buenas,
os comento el problemilla que me ha surgido.

he creado una tabla en un pdf desde visual basic pero no se como hacer estas 2 cosas:
1- darle un tamaño especifico a las celdas
2- mover a la tabla a una ubicación especifica y que no salga centrada en el pdf....

¿podría ayudarme alguien?
estaría muy agradecido.

Un saludo de vuestro amigo y vecino,
PETETE;)

Hola buenas, tengo un problemilla con un excel y me gustaria comentarlo.

He hecho un codigo con vb.net, un archivo xml y un fichero excel.

Mi codigo lo que hace es pasar el xml al excel.

El xml tiene bastantes hijos y algunos hijos y algunos de estos hijos tienen mas hijos...

Me explicaré mejor con un ejemplo sencillo.

EJEMPLO XML

nodoproncipal : xml
nodohijo1: ejemplo1 : nombre- prueba
                                   numero1:1
                                   lugar- madrid
                                   

nodohijo2:ejemplo2 : nombre- prueba2
                                  numero1:2
                                  numero2:3
                                  lugar- sevilla

nodohijo3:ejemplo3 : nombre- prueba3
                                  numero1:4
                                  lugar- bilbao


Al pasar este xml a excel y al ponerle columnas y eso hay un problemilla, ya que el nodohijo2 tiene un numero mas y en vez de crear una columna mas con el nombre numero2 este valor se mete en la columna lugar.

RESULTADO EXCEL:

                 columna1         columna2         columna3
                 nombre             numero1          lugar
fila1:         prueba1               1                   madrid
fila2:         prueba2               2                   3                   sevilla
fila3:         prueba3               4                   bilbao


Alguien sabe como puedo arreglar esto?


toda ayuda sería agradecida.

Un saludo de vuestro amigo y vecino,
PETETE:)

Ya lo he hecho. la ip del mac es la misma pero no esta en red... no se por que puede ser.
He leido algo de que puede ser por que es viejillo y hay que deshabilitar la opcion de IPv6.

Lo voy a hacer y con lo que sea os comento.

Un saludo de vuestro amigo y vecino,
PETETE;)

PD, gracias por contestar y colaborar en mi problemilla

Hola buenas,

el otro dia me cambiaron el router y ahora tengo fibra de movistar.

La red LAN que tengo me funciona bien menos por los 2 MAC.. que no se conectan a la red.
¿ sabeis porque puede ser?

Toda ayuda y todo comentario es y será bien recibido y muy agradecido.

Un saludo de vuestro amigo y vecino,
PETETE;)