Mensajes

Necesito que mi programa lea un archivo xml online ( hasta ahi no tengo problema) la cosa es que hay un archivo que tiene nodos (creo que se llaman así ) con el mismo nombre, necesito que se añadan los valores de esos nodos a un listbox

Xml:

Código (xml) [Seleccionar] Expandir


<friendslist>
   <friends>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
   </friends>
</friendslist>
     La longitud del archivo es variable.
     La palabra que sustituye a "Dato", es siempre la misma

Necesitaria que en un listbox aparecieran todos los valores, he probado con un bucle for, pero no he conseguido resultado
La forma en la que obtengo los datos del xml es la siguiente:

Código (vb) [Seleccionar] Expandir

Dim MyDoc As New System.Xml.XmlDocument
        MyDoc.LoadXml(XmlData)
        MyDoc.SelectSingleNode("//Nodo/Nodo2/Nodo3/Dato").InnerText

Estoy creando un programa que es capaz reconocer mi voz y de hablar.

La parte en la que el programa habla ya la tengo controlada con voces en español, el problemas lo tengo cuando me tiene que reconocer la voz

Lo hago mediante reglas

Código (vb) [Seleccionar] Expandir

Dim gram As New SrgsDocument
        Dim colorRule As New SrgsRule("Color")
        Dim colorsList As New SrgsOneOf("rojo", "verde", "azul")
        colorRule.Add(colorsList)
     
        gram.Rules.Add(textoRule)
        gram.Rules.Add(colorRule)

        gram.Root = colorRule
        reco.LoadGrammar(New Recognition.Grammar(gram))
Y despues con un Select Case, doy las distintas opciones.

Lo que quiero saber es como consigo hacer que mi programa lea todo lo que digo sin que este en la Regla, por ejemplo:
Si en la Regla esta la palabra "Label", cuando yo diga "Label Como estas", que en el label escriba "Como estas"

Dejo el codigo completo en este Link:
http://pastebin.com/U3rfBgKD

Para obtener la linea número 13 puedes usar este snippet de una función genérica que hice hace tiempo:

Código (vbnet) [Seleccionar] Expandir

#Region " Read TextFile Line Function "

   ' [ Read TextFile Line Function ]
   '
   ' Examples :
   '
   ' MsgBox(Read_TextFile_Line("C:\File.txt", 1))
   ' Dim str As String = Read_TextFile_Line("C:\File.txt", 3)

   Private Function Read_TextFile_Line(ByVal File As String, ByVal Line_Number As Long) As String

       Dim Lines() As String = {String.Empty}
       Dim Line_Length As Long = 0

       Try
           Lines = IO.File.ReadAllLines(File)
           Line_Length = Lines.LongLength - 1
           Return Lines(Line_Number - 1)

       Catch ex As IO.FileNotFoundException
           MessageBox.Show(String.Format("File not found: ""{0}""", _
                                         File), _
                           Nothing, _
                           MessageBoxButtons.OK, _
                           MessageBoxIcon.Error)

       Catch ex As IndexOutOfRangeException
           MessageBox.Show(String.Format("Attempted to read line {0}, but ""{1}"" has {2} lines.", _
                                         Line_Number, _
                                         File, _
                                         Line_Length + 1), _
                           Nothing, _
                           MessageBoxButtons.OK, _
                           MessageBoxIcon.Error)

       Catch ex As Exception
           Throw New Exception(String.Format("{0}: {1}", _
                                             ex.Message, _
                                             ex.StackTrace))

       Finally
           Lines = Nothing
           Line_Length = Nothing

       End Try

       Return Nothing

   End Function

#End Region

Saludos!

Perfecto!
era justo lo que necesitaba.
Muchas gracias

Yo no se mucho sobre la estructura xml, xmnls, y esas variantes que existen, pero si no me equivoco al fin y al cabo todos son XML y se pueden leer las propiedades/atributos/nodos de la misma manera, repito, en caso de que no me esté equivocando, y en ese caso te puedes servir de las Classes de .NET para leer archivos XML.

De todas formas, por si las moscas, te enseño el modo de obtener el valor usando expresiones regulares:

Código (vbnet) [Seleccionar] Expandir

   Sub Main()

       Dim str = <a><![CDATA[<param key="CATEGORY" fmt="utf8" max_len="4">SD</param>]]></a>.Value

       Dim Value As String = _
           System.Text.RegularExpressions.Regex.Match(str, "CATEGORY.+>(.*)<") _
           .Groups(1).Value

       Console.WriteLine(Value)

   End Sub

saludos!

No es exactamente lo que busco pero también me sirve, con eso solo extraigo el texto que hay entre los ">     <", que es una parte de lo que necesito.
La otra parte es extraer solo una linea, el archivo completo tiene 14 lineas, que no son siempre iguales y yo necesito extraer una linea sin saber su contenido completo, se que siempre es la linea nº 13 y que contiene "key='TITLE'", pero no conozco el resto de la linea.

Lo primero seria extraer solo esa linea y después mostrar en contenido gracias al código que has mostrado antes.
El programa debe abrir el archivo buscar en el la linea que contenga "key='TITLE'"  y mostrar su contenido
Gracias.

Tengo un problema, necesito que mi programa lea un fichero y muestre solo una linea

El fichero que necesito leer tiene una estructura parecida a un archivo xml, pero tiene una extension distinta, por ejemplo:

Código (xml) [Seleccionar] Expandir

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<paramsfo add_hidden="false">
  <param key="ACCOUNT_ID" fmt="utf8" max_len="16">e64a7aea5442c4a</param>
  <param key="ATTRIBUTE" fmt="int32" max_len="4">0</param>
  <param key="CATEGORY" fmt="utf8" max_len="4">SD</param>

Necesito que lea solo la linea "CATEGORY" y que me devuelva en este caso "SD"
Solo consigo que lea el fichero entero pero no una linea expecifica.

Se puede buscar esa linea por un string o por numero de linea, tengo comprobado que siempre es el mismo numero de linea.
Gracias de ante mano

Tengo un disco duro externo dañado.

Al conectarlo a mi Windows7 sale un mensaje diciendo que he de formatearlo par poder usarlo, esto ya me habia pasado antes, pero al conectarlo al MacBook Pro se reparaba el solo, pero esta vez no.

He probado con el comando CHKDSK, solo detecta que es NTFS y dice el siguiente mensaje:
"No se puede determinar la versión ni el estado del volumen. Se anuló CHKDSK."

También he probado con HDD Regenerator 2011, pero al analizarlo cuando lleva un 0.7% encuentra un Cluster Dañado y se queda pillado, de ahí no avanza y lo he dejado por mas de un día.

He probado con TestDisk 6.14 pero sin mucho resultado, al intentar reconstruir el MBR da error de lectura y no deja hacer mucho mas.

Probe con Partition Table Doctor 3.5, pero par hacer Fixboot, tenia que reconstruir la tabla de particiones y borrar la partición, con lo que perdería todos los datos, pero si se pueden recuperar después no me importa.
Aquí os dejo información del disco duro, por si es útil:

HDD WD Scorpio

160GB

Enhanced IDE Hard Drive

Parámetros de Disco: LBA 312581808



Tengo informacion importante, que me gustaria conservar.
Ya me paso con otro HDD y recupere los datos perdidos con un programa, pero todo los que encuentro son de pago.

Buenas, estoy haciendo un reto donde hay que encontrar informacion en una web, despues de un largo rato encontre una imagen en la que hay un archivo oculto, pero esta protegido con contraseña.

Despues de varias horas buscando pistas encontre un blog relacionado con el desafio y nada mas entrar se me ocurrio una posible contraseña.
Tube suerte y la acerte    pero.... yo y mi majestuosidad de raton pues no nos llevamos bien y le di al boton de cancelar en vez de el de guardar con lo cual me volvio a pedir la contraseña que ya no me acorbada.

Llevo casi un dia entero haciendo estoy y no consigo nada.

El reto acaba en un par de dias y todavía me quedan mas cosas por hacer

Necesito ayuda, el programa con el que extraigo los archivos es FileInyector

esta es la imagen que tiene la contraseña y el archivo dentro
http://www.programacreatica.es/archivos/securimatica/logos/organizan/Aconsa/ACS_iSecurity.jpg

Gracias.

tengo un pequeño programa, en el que se llama al cmd para hacer ping a una direccion ip, para que ese archivo se ejecutara de modo oculto, he creado un archivo con la extension vbs.

La cosa es que al ejecutar el archivo .vbs desde mi programa me sale un error del script diciendo que el archivo no existe, en cambio si lo ejecuto manualmente se abre perfectamente.

Gracias de antemano

[C:\Windows\SysWOW64\]

Lo he solucionado!!!

Despues de tanto probar al fin lo he conseguidom, dejo los pasos por si a alguien le pasa lo mismo.

1º-Re-Instala La ultima version de Flash player
2º-Descargate este archivo http://originaldll.com/file/flash32_11_3_300_270.ocx/7683.html
3º- Guarda el archivo en " C:\Windows\SysWOW64\" si tienes W7 64-bits
4º-Abre el cmd con permisos de administrador y escribe

Código (dos) [Seleccionar] Expandir

cd C:\Windows\SysWOW64\
regsvr32 flash32_11_3_300_270.ocx
5º-Reinicia el PC y listo!

Bueno, tengo vb.net 2010 y flashplayer 11, he instalado los .ocx y .dll con el Ronda 2011 pero al agregar el objeto Shockwave Flash a un formulario no funciona, solo se ve esto:
http://img189.imageshack.us/img189/5213/ssdrz.png
Pongo la Url para que no moleste la imagen.

Si os fijáis en el cuadro de herramientas el icono del Flash es un poco raro, el ocx que tengo es el Flash9.ocx, he intentado instalar manualmente el Flash11.ocx pero me dio fallos de instalación.

Necesito que alguien me ayude