Mensajes

Simplemete usar el HTMLAgilityPack con VB.net (que no se si se puede, porque no se si funciona junto a VB.NET o separado).

Bueno, el codigo ya lo tengo,

Código (vbnet) [Seleccionar] Expandir

Public Class Form3

    Public archivo As String = "download.db"

    Private Sub Button5_Click() Handles Button5.Click
        If My.Computer.FileSystem.FileExists(archivo) Then
            My.Computer.FileSystem.DeleteFile(archivo)
            My.Computer.Network.DownloadFile(TextBox1.Text, archivo)
        Else
            My.Computer.Network.DownloadFile(TextBox1.Text, archivo)
        End If
    End Sub
End Class

ahora necesito el otro codigo (el del pack este) que te busque cadenas de texto:

y ya ta. ^^

Un saludo.

en lo personal yo no uso dicho "pack" yo aplico un regex y voy descomponiendo el documento html en tags o <>data</>

y voy aplicando varios metodos de clasificacion me parece mas comodo y puedo modificarle segun sea el caso. orita no estoy en mi casa por eso tampoco te doy info precisa

Pues sabes lo que te digo? Que me cago en la algoritmia, el pseudocodigo, la abstraccion, la sintaxis y la madre que los pario, soy mas noob que noob, no se desarrollar nada de nada si no veo ejemplos ya hechos que es en lo que me baso... asi que, si no se nada de nada de nada de htmlagiltypack y sus snippets cojonudos pues, como que me voy a quedar pelao al intentar hacer algo.... vamos que necesito una base, en mi vida vi el pack de los coj*nes xD  

claro?  

un saludo... sorry por ser tan malhablao'  

xD todos aprendemos

lo q debes hacer q siempre me ayuda es

planteate q dato Tienes, que necesitas hacer y que dato tienes q devolver ( si es que devuelve)

aver planteame 1 poco e intentare ayudarte en el transcurso del dia a ver q se le hace, q recien leo el foro y me da fastidio leer tanto crap de arriba

EDIT

leyendo 1 poco arriba

ya mas o menos sabes q deseas hacer...

q deberias tomar en cuenta, no todas las webs devuelven un XHTML decente

te aconsejo q uses una instancia de la clase del webclient (porque ? )
facil ya q el puede devolverte 1 subclase del tipo Document q puede ser leida como html, y dentro del evento DocumentCompleted (no me acuerdo bien y no tengo visual studio para revisar) desde el puedes aplicar diferentes metodos de Parseo para poder descomponer dicho html ( usando un buen regex) y obtener todos los resultados que tu quieres
y mediante 1 listview ir insertando dichos resultados

nose para que añadir tantos paquetes de terceros :/ electro si todo se puede hacer a mano

PD: en vez de usar Snippets deberia ser que el usuario los haga por si mismo, para que aprenda a desarrollar el aspecto de algoritmia y pseudocodigo y la capacidad de abstraccion y poder desarrollarles de manera propia q usando 1 snippet q te haga todo

se mas especifico o no podremos ayudarte :9

No puedo hacer eso porque entonces apagaría las luces del avión en el simulador.

Cómo puedo hacer para que se ejecute una función cada vez que la variable cambia a True o False?

facil crea 1 variable auxiliar del tipo boolean, q valide si ya fue encendido o no, para que pueda repetirte la accion, de esta manera si esta prendido no se duplica, y si esta apagado realiza el encendido

Gracias,
la idea de la sopa de letras me ha gustado, aunque da pereza tener que escribir "horizontal" "vertical", en el código podrías haber añadido una comparación adicional así: "¿H o V?" xD.

saludos

era 1 trabajo de universidad, tenia q hacerlo bien por eso si te fijas uso metodos poco buenos,no uso subs/functions ni nada de eso, lo mas sencillo posible con lo q tenia disponible de algoritmia

pues en estas madrugadas ayudando a los amigos con sus proyectos subo este

Código (vbnet) [Seleccionar] Expandir

Module Module1

    Sub Main()
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim z As Integer = 99
        Dim contpalabras As Integer = 0
        Dim aux1 = "", aux2 As String = ""
        Dim Formato As String = "" '(vertical/horizontal)
        Dim posicionX = -1, posicionY As Integer = -1

        Dim cantPalabras As Integer = 0
        Dim rep As Boolean = True 'variable para pedir palabras
        While x <= 0
            Console.Write("Ingresar el numero de Columnas[X](mayor a 0): ")
            x = Console.ReadLine
        End While
        While y <= 0
            Console.Write("Ingresar el numero de Filas[Y](mayor a 0): ")
            y = Console.ReadLine
        End While
        Dim Sopa(x, y) As Char 'matriz de sopa
        Dim Palabras(z) As String 'vector palabras
        Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
         Console.WriteLine("Caja de posiciones")
        For i = 0 To y - 1
            For j = 0 To x - 1
                Console.Write(j & "," & i & "|")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
        While rep
            aux1 = ""
            aux2 = ""
            posicionX = -1
            posicionY = -1
            While aux1 = ""
                Console.Write("añada una palabra: ")
                aux1 = Console.ReadLine
                If aux1.ToCharArray.Length >= 3 And aux1.ToCharArray.Length <= x Or aux1.ToCharArray.Length <= y Then
                    Palabras(contpalabras) = aux1
                    contpalabras += 1
                Else
                    aux1 = ""
                    Console.WriteLine("ERROR -> la palabra debe tener mas de 3 letras y debe ser menor al maximo X y maximo Y")
                End If
            End While
            While aux2 = ""
                Console.Write("Horizontal o Vertical: ")
                aux2 = Console.ReadLine
                If (aux2.ToLower = "horizontal" And aux1.ToCharArray.Length < x) Or (aux1.ToCharArray.Length < y And aux2.ToLower = "vertical") Then
                    Formato = aux2.ToLower
                Else
                    aux2 = ""
                    Console.WriteLine("ERROR -> debe escribir una de las 2 opciones, y revisar que la palabra pueda ser añadida en esa opcion")
                End If
            End While
            While posicionX = -1 And posicionY = -1
                Console.Write("Posicion inicial de la palabra en la matriz en X: ")
                posicionX = Console.ReadLine
                Console.Write("Posicion inicial de la palabra en la matriz en Y: ")
                posicionY = Console.ReadLine
                If Formato = "horizontal" Then
                    If posicionX + aux1.ToCharArray.Length > x Or posicionX < 0 Or posicionY < 0 Or posicionY > y Then
                        posicionX = -1
                        posicionY = -1
                    End If
                ElseIf Formato = "vertical" Then
                    If posicionY + aux1.ToCharArray.Length > y Or posicionY < 0 Or posicionX < 0 Or posicionX > x Then
                        posicionX = -1
                        posicionY = -1
                    End If
                End If
                If posicionX < 0 Or posicionY < 0 Then
                    Console.WriteLine("ERROR -> la suma de la posicion y el tamaño de la palabra supera el limite de la sopa de letras")
                End If
            End While
            If Formato = "horizontal" Then
                For i = 0 To aux1.ToCharArray.Length - 1
                    Sopa(posicionX + i, posicionY) = aux1.ToCharArray()(i).ToString.ToLower
                Next
            ElseIf Formato = "vertical" Then
                For i = 0 To aux1.ToCharArray.Length - 1
                    Sopa(posicionX, posicionY + i) = aux1.ToCharArray()(i).ToString.ToLower
                Next
            End If
            'dibujado de la sopa de letras
            Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
            Console.WriteLine("Caja de posiciones")
            For i = 0 To y - 1
                For j = 0 To x - 1
                    Console.Write(j & "," & i & "|")
                Next
                Console.WriteLine()
            Next
            Console.WriteLine()
            For i = 0 To y - 1
                For j = 0 To x - 1
                    If Sopa(j, i) = "" Then
                        Console.Write(" |")
                    Else
                        Console.Write(Sopa(j, i) & "|")
                    End If
                Next
                Console.WriteLine()
            Next
            Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
            'añadir mas palabras
            aux2 = ""
            While aux2 = ""
                Console.Write("Desea añadir otra palabra[si/no]?: ")
                aux2 = Console.ReadLine
                If aux2 = "si" Then
                    rep = True
                ElseIf aux2 = "no" Then
                    rep = False
                Else
                    aux2 = ""
                End If
            End While
        End While
        aux2 = ""
        rep = True
        While aux2 = ""
            Console.Write("Desea Rellenar la sopa de letras[si/no]?: ")
            aux2 = Console.ReadLine
            If aux2 = "si" Then
                rep = True
            ElseIf aux2 = "no" Then
                rep = False
            Else
                aux2 = ""
            End If
        End While
        If rep Then
            Dim r As New Random
            Dim letras As Char() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
            For i = 0 To y - 1
                For j = 0 To x - 1
                    If Sopa(j, i) = "" Or Sopa(j, i) = Nothing Then
                        Sopa(j, i) = letras(r.Next(0, letras.Length))
                    End If
                Next
            Next
        End If
        Console.WriteLine()
        Console.WriteLine("============ DIBUJADO FINAL DE SOPA DE LETRAS ============")
        For i = 0 To y - 1
            For j = 0 To x - 1
                If Sopa(j, i) = "" Then
                    Console.Write(" |")
                Else
                    Console.Write(Sopa(j, i) & "|")
                End If
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
        Console.WriteLine("Palabras utilizadas")
        For i = 0 To Palabras.Length - 1
            If Palabras(i) = Nothing Or Palabras(i) = "" Then
            Else
                Console.WriteLine(Palabras(i))
            End If
        Next
        Console.WriteLine("============FIN DIBUJADO FINAL DE SOPA DE LETRAS ============")
        Console.WriteLine("Presiona una tecla para salir...")
        Console.ReadKey()
    End Sub

End Module

NO ESTA OPTIMIZADO
USO TECNICAS PERMITIDAS EN SUS CURSOS (no hay subs, no hay functions,nada de eso)

desarrollado para consola, y en un simple Sub

UNICO DETALLE = NO INTERCEPTAR PALABRAS  ( me dio flojera añadirlo)

saludos

Siento que tienes algo en contra de EletroHacker, podrias ilustrarnos con tu opinion sobre él.

nose me fastidia las personas q no investigan, hasta cosas tan obvias... lo q sucede es q no has visto los otros foros aparte de este  q no pondre url aca

Ni siquiera se ha parado a buscar en el MSDN, lo de list(T) y todas sus dudas del code aparecen ahí.

Si me dijera que lo ha buscado y lo ha leido pero sigue sin entenderlo, pues eso ya es distinto... pero ni siquiera lo ha buscado!

ya sabes lo q se siente verdad ?

***** tu actitud es malisima. te aseguro que no llegaras lejos. ni como programador ni como persona.   

xD concuerdo lamentablemente

pero bueno, nose porque si yo tarde meses documentandome la gente no lo hace tamb