|
31
|
Programación / .NET (C#, VB.NET, ASP) / Re: Hacer que un Form se descargue un archivo a traves de cadenas de texto:
|
en: 4 Febrero 2013, 20:45 pm
|
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, 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
|
|
|
32
|
Programación / .NET (C#, VB.NET, ASP) / Re: Hacer que un Form se descargue un archivo a traves de cadenas de texto:
|
en: 4 Febrero 2013, 20:38 pm
|
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
|
|
|
35
|
Programación / .NET (C#, VB.NET, ASP) / Re: Realizar otra vez y dar el resultado del IF
|
en: 28 Enero 2013, 20:09 pm
|
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
|
|
|
36
|
Programación / .NET (C#, VB.NET, ASP) / Re: [source][no optimizado] creador de sopas de letras en consola vbnet
|
en: 24 Enero 2013, 15:13 pm
|
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
|
|
|
37
|
Programación / .NET (C#, VB.NET, ASP) / [source][no optimizado] creador de sopas de letras en consola vbnet
|
en: 24 Enero 2013, 06:19 am
|
pues en estas madrugadas ayudando a los amigos con sus proyectos subo este 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
|
|
|
|
|
|
|