Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#7641
.NET (C#, VB.NET, ASP) / Re: Moodle y C#
3 Diciembre 2013, 20:27 PM
Para el manejo de documentos Json puedes utilizar la librería Json.NET -> http://json.codeplex.com/

EDITO:
Y quizás esto también te ayude:
-> http://stackoverflow.com/questions/11845857/get-json-object-in-c-sharp-from-a-web-request

Saludos
#7642
EDITO:
primero de nada, elimina esta linea:
On Error Resume Next

No uses esa instrucción jamás, usa un try/catch ordinario para que, si hubiese error, puedas ser informado del detalle del error.

Aparte de eso, desconozco lo que hace tu método Datos, si el parámetro que recibe la función es ByRef entonces ¿has comprobado si después de llamar a la función el contenido del string "content" es el mismo?,
quiero decir, ¿has comprobado que "content" es string válido antes de parsearlo?,
¿has comprobado también si las mayúsculas/minúsculas de los nodos son correctas? (.<friendslist>.<friends>.<friend> {_friend.<Dato>)).

EDITO 2:
Esto no tiene tanta relevancia, pero la función "Amigos" no devuelve ningún valor ni tampoco le has asignado un datatype de retorno, tu función en realidad es un sub, deberías modifícarlo corréctamente.

EDITO3:

Prueba a hacerlo de esta manera:
Código (vbnet) [Seleccionar]

   Private Sub Amigos()

       Dim reader As IO.StreamReader = Nothing
       Dim content As String = Nothing
       Dim friends = Nothing

       Try

           reader = New IO.StreamReader(Net.HttpWebRequest.Create("http:\\urlxml").
                                        GetResponse().GetResponseStream())

           content = reader.ReadToEnd()

           Datos(content)

           friends = From _friend As XElement
                      In XDocument.Parse(content).<friendslist>.<friends>.<friend>
                      Select New With {_friend.<Dato>.Value}

           ListBox1.Items.AddRange(friends.Select(Function(f) f.Dato).ToArray)

       Catch ex As Exception
           MsgBox(ex.Message & ex.StackTrace)

       Finally
           reader.Close()

       End Try

   End Sub


Saludos!
#7643
Cita de: TMarmol en  3 Diciembre 2013, 19:37 PM
No es exactamente lo que busco, en tu código esta incluido el código xml, mi programa lo obtiene leyéndolo de una web mediante Openread, obtengo una string.

El código que mostré es un ejemplo, puedes adaptarlo para leer diréctamente el string:

Código (vbnet) [Seleccionar]

Dim datos = From _friend As System.Xml.Linq.XElement
           In XDocument.Parse(xml).<friendslist>.<friends>.<friend>
           Select New With {_friend.<Dato>.Value}


EDITO:
En el código que has mostrado estás usando/cargando un XmlDocument y un XDocument, elige uno de los dos, elimina estas lineas de tú código:
Citar
Código (vbnet) [Seleccionar]
Dim MyDoc As New System.Xml.XmlDocument
MyDoc.LoadXml(content)

PD: también puedes hacerlo todo de una:

Código (vbnet) [Seleccionar]
ListBox1.Items.AddRange(
   (From _friend As XElement
    In XDocument.Parse(xml).<friendslist>.<friends>.<friend>
    Select New With {_friend.<Dato>.Value}
   ).Select(Function(element) element.Dato).ToArray
)


saludos
#7644
Código (vbnet) [Seleccionar]
Public Class Form1

   ' Genero el documento XML.
   ReadOnly xml As System.Xml.Linq.XDocument =
   <?xml version="1.0" encoding="Windows-1252"?>
   <friendslist>
       <friends>
           <friend><Dato>Valor1</Dato></friend>
           <friend><Dato>Valor2</Dato></friend>
           <friend><Dato>Valor3</Dato></friend>
           <friend><Dato>Valor4</Dato></friend>
           <friend><Dato>Valor5</Dato></friend>
       </friends>
   </friendslist>

   Shadows Sub Load() Handles MyBase.Load

       ' Proyecto los elementos deseados en un type anónimo.
       Dim datos = From _friend As System.Xml.Linq.XElement
                   In xml.<friendslist>.<friends>.<friend>
                   Select New With {_friend.<Dato>.Value}

       ' Añado el miembro "Dato" al Listbox.
       ListBox1.Items.AddRange(datos.Select(Function(element) element.Dato).ToArray)

   End Sub

End Class


Saludos
#7645
Software / Re: rar 3.80 consola AES128
3 Diciembre 2013, 18:28 PM
Cita de: beatriz92 en  1 Diciembre 2013, 13:14 PMMi duda es si solo con -p cifrar los archivos en AES-128, o solo cifrar en el modo -hp, o en ambos. Vaya lio.

Eso depende de la seguridad que prefieras y/o requieras, como ya has leido en la explicación el modo -hp es más seguro, al intentar listar el contenido del archivo comprimido nisiquiera se podrán listar los archivos sin haber proporcionado préviamente la contraseña, es decir, no se puede saber que hay dentro sin especificar la contraseña,
por lo contrario, usando el parámetro "-p", puedes ver los archivos y la contraseña se pide al momento de intentar extraerlos, no antes.

La decisión es tuya.

Saludos!
#7646
Admirable insistencia,
no se cuantas veces se habrá hablado sobre el tema de los textboxes, se te dieron varias soluciones distintas por parte de varios usuarios (si no recuerdo mal).
Veo que estás usando un código que te mostré, con pequeñas variaciones.

Podrías hacer algo así, desde la linea del Array.Sort, esto reemplazaría a los 3 búcles que usas.
Código (vbnet) [Seleccionar]
       Array.Sort...' Ordeno los Arrays

       ' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
       Dim Results As IEnumerable(Of Integer) =
           Result1.Concat(Result2).Concat(Result3)

       For X As Integer = 0 To Results.Count - 1

           TextBoxCount += 1

           Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

               Case False ' El número no está repetido en ninguna "linea"
                   ' Así que colocamos el número en el Textbox
                   TextBox(TextBoxCount).Text = Convert.ToString(Results(X))

               Case True ' El número está repetido en alguna de las "lineas"
                   ' Así que haces lo que quieras con el Número/Textbox
                   MsgBox(Results(X))
                   TextBox(TextBoxCount).Text = -1.ToString

           End Select

       Next X


PD: Fíjate bien, el código comprueba si hay duplicados en el array "unido", es decir, en lo que serian todas las lineas de textboxes a la vez, no linea por linea, no se como lo quieres asi que eso he preferido dejarlo a tu elección... de todas formas para eso solo tendrías que hacer el mismo procedimiento 3 veces, quiero decir con cada array por separado, no con un array unido, vamos, lo mismo que haces en el código que has mostrado con los 3 búcles, tampoco lo voy a dar todo regalado xD, tu puedes hacer esa modificación.

Saludos!
#7647
Cita de: acentouruguay en  2 Diciembre 2013, 20:55 PM(por error) en disco c:, botón derecho, propiedades, seguridad, avanzadas, seleccione todos los permisos y les di quitar :S

ya veo, en un principio diste a entender que lo hiciste diréctamente desde la consola (o yo entendí eso xD).

Entonces la solución es más sencilla,
En la mismia pestaña donde elimnaste los usuarios, crea uno nuevo (añades un grupo de usuarios global) y le asignas Control total.

Sigue estas indicaciones que hice:
 



El error que has tenido lo he reproducido en Windows XP,
en Windows 8 el procedimiento es el mismo aunque las opciones no están en el mismo lugar:



Con eso fue suficiente para solucionar la denegación de acceso al disco C:\ en mi caso, ¿te funcionó a ti también?.

Saludos
#7648
Sugerencias y dudas sobre el Foro / Re: foros
3 Diciembre 2013, 00:51 AM
Debes consultar las normas de dicho foro o dirigirte a algún miembro del Staff, para así saber si toleran el uso de múltiples cuentas/registros (misma ip, cuentas distintas).

Saludos
#7649
.NET (C#, VB.NET, ASP) / Re: Telerik en .NET C#
3 Diciembre 2013, 00:01 AM
Creo que deberías exponer mejor tu pregunta en función a la caracteristica específica de todas las que ofrece Telerik...

-> http://www.telerik.com/support/documentation-and-tutorials.aspx
#7650
@heckar13

Tampoco está permitido hacer DOBLE POST.