Autor
|
Tema: Problema al intentar leer un texto y decir el numero de palabras que hay repes.. (Leído 7,128 veces)
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
Hola muy buenas, pues a ver he aquí mi code: Sub prueba() Dim value As String = File. ReadAllText(".\Test.ini") Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id") Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name") Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value") Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value") Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k") INI_Manager.Set_Value(".\Test.ini", "Contar", "2ç0k") INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1) INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2) End Sub
Con lo que tengo problema es: Sub prueba() Dim value As String = File. ReadAllText(".\Test.ini") Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k") INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1) INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2) End Sub
Estoy sacando la variable "value" para luego asignarsela a un pcb. Pero no hay manera de que se introduzca mi String en el .ini Que puedo hacer? Un saludo. PD: Todos los codes que no están por defecto en VB.NET son snippets de Elektro. http://foro.elhacker.net/net/crear_picturebox_a_traves_de_una_config_ini-t391685.0.html;msg1860636#msg1860636http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1860295#msg1860295
Para descartar he hecho un code: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim value As String = File. ReadAllText(".\Test.ini") Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k") MsgBox("Usté es el nigga numero: " & cuenta) End Sub
El caso es que parece que si va.
También he introducido un "2ç0k" a caso hecho dentro del ini, pero parece que si lo lee...
Confirmado, es problema del Ini_Manager
|
|
« Última modificación: 14 Junio 2013, 17:10 pm por Ikillnukes »
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.813
|
No entiendo nada. Sea como sea, mi Class no contiene el tipo de bug que estás intentando dar a entender, he reproducido tu código (más o menos), algo haces mal. 1. ¿Serías tan amable de especificar el PU#$*@XX string que quieres escribir en el archivo de texto? ...es que veo 3 en tu code. 2. ¿Serías tán amable también de especificar si te da alguna EXCEPCIÓN, además de copiarnos el message de la excepción y la línea conflictiva? 3. ¿Has comprobado si los valores de tipo string están vacios antes de preguntar? (ya me imagino que no lo has hecho) Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id") Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name") Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value") Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value") msgbox( _ "1: " & buttonname & _ "2: " & getname & _ "3: " & prueba1 & _ "4: " & prueba2 )
4. ¿Puedes postear el output del archivo INI, y también como debería ser el output? Saludos. . .
|
|
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
1. Quiero escribir las 3 2. Excepción te refieres a un error en la consola de errores? No hay ninguno. 3. He puesto el code y cuando pulso el evento no pasa nada. Se supone que lo estoy llamando así: Case "input" : prueba()
Si pongo un msgbox nada más si que va. :s 4. Output no hay... Pero debería quedar algo así: Contar = 2ç0k Nombre-1 = Nombredelmodpack Img-1 = Ruta de la imagen de fondo del pcb_1 Contar = 2ç0k Nombre-2 = Nombredelmodpack Img-2 = Ruta de la imagen de fondo del pcb_2 Contar = 2ç0k Nombre-3 = Nombredelmodpack Img-3 = Ruta de la imagen de fondo del pcb_3 ...... Un saludo!
|
|
« Última modificación: 14 Junio 2013, 18:20 pm por Ikillnukes »
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.813
|
1. ¿Te has asegurado de estar usando la versión terminada del ini manager? (la que hay posteada en la sección de snippets) 2. ¿Que quieres decir por "no hay output"?, ¿El archivo del INI no se crea?, ¿Has probado a modificar el primer argumento del método por "C:\test.ini"? 3. Tu output es incorrecto, "Contar" no se puede repetir, no puedes tener un nombre de valor idéntico repetido tres veces en un INI... ¿Luego como pensarías cargar un valor duplicado?. No sé si te has fijado bien, pero el método de la Class la llamé "Set_Value", no "Add_Value" ni "Append_Value", el valor se crea, y si ya existe, se reemplaza por el que había... Asi que este sería el putput que hace la class: Contar=2ç0k Nombre-1=Nombredelmodpack Img-1=Ruta de la imagen de fondo del pcb_1 Nombre-2=Nombredelmodpack Img-2=Ruta de la imagen de fondo del pcb_2 Nombre-3=Nombredelmodpack Img-3=Ruta de la imagen de fondo del pcb_3 Dime la url en la que estás intentando obtener esos datos para averiguar de donde proviene el error.
|
|
« Última modificación: 14 Junio 2013, 18:33 pm por EleKtro H@cker »
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
1. ¿Te has asegurado de estar usando la versión terminada del ini manager? (la que hay posteada en la sección de snippets)
Sipo. 2. ¿Que quieres decir por "no hay output"?, ¿El archivo del INI no se crea?, ¿Has probado a modificar el primer argumento del método por "C:\test.ini"?
No se crea no. Y si pongo C:\test.ini tampoco. 3. Tu output es incorrecto, "Contar" no se puede repetir, no puedes tener un nombre de valor idéntico repetido tres veces en un INI... ¿Luego como pensarías cargar un valor duplicado?. No sé si te has fijado bien, pero el método de la Class la llamé "Set_Value", no "Add_Value" ni "Append_Value", el valor se crea, y si ya existe, se reemplaza por el que había... Asi que este sería el putput que hace la class: Contar=2ç0k Nombre-1=Nombredelmodpack Img-1=Ruta de la imagen de fondo del pcb_1 Nombre-2=Nombredelmodpack Img-2=Ruta de la imagen de fondo del pcb_2 Nombre-3=Nombredelmodpack Img-3=Ruta de la imagen de fondo del pcb_3 Dime la url en la que estás intentando obtener esos datos para averiguar de donde proviene el error. Te refieres a la url del WebBrowser, en ese caso es: http://ikillcraft.a0001.net/modpacks.phpUn saludo.
|
|
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.813
|
Acabo de probar de nuevo el código y da los resultados esperados. No creo que sea esa url, porque da dos excepciones aquí: Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value") Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value")
Pero en cambio tu dices que los valores están correctos. Sigo diciendo lo mismo, algo estás haciendo mal, saludos!
|
|
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
Que excepción te da? A mi no me da ninguna, si no me crees te lo muestro por Skype.
|
|
« Última modificación: 14 Junio 2013, 19:24 pm por Ikillnukes »
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.813
|
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown WebBrowser1.Navigate("http://ikillcraft.a0001.net/modpacks.php") While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete : Application.DoEvents() : End While ' Dim value As String = io.File.ReadAllText("C:\Test.ini") Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id") Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name") Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value") Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value") Dim cuenta As Integer = 0 'Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k") INI_Manager.Set_Value("C:\Test.ini", "Contar", "2ç0k") INI_Manager.Set_Value("C:\Test.ini", "FuncNombre-" & cuenta, getname) INI_Manager.Set_Value("C:\Test.ini", "FuncImg-" & cuenta, prueba2) End Sub End Class
No encuentra los valores porque "getname" está vacía, y salta excepción en prueba1 y prueba2, porque getname está vacía. Imagino que hay algo distinto a como tienes escrito tu code, hazle las modificaciones necesarias a ese código que te muestro (para que funcione la parte de los strings), y miraré a ver que pasa con el resto. Saludos
|
|
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
Vale ehm soy medio tonto xD Estoy sacandole el Name a una cosa que no tiene. Prueba a ver: Sub prueba() Dim value As String = File. ReadAllText(".\Test.ini") Dim getname As String = WebBrowser1.Document.GetElementById("cacota").GetAttribute("Name") Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value") Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value") Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k") INI_Manager.Set_Value(".\Test.ini", "Contar", "2ç0k") INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1) INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2) End Sub
Lo curioso que sigue sin crearse el ini...
|
|
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
SγиtαxEяяoя
Desconectado
Mensajes: 154
|
Ese codigo me lo dio Electro, y funciona puedes adaptarlo a lo que necesites Dim INI_File As String = ".\Test.ini" ' Save INI Settings Private Sub Save_INI_Settings() Dim Current_Settings As String = _ "File=" & TextBox_File.Text & Environment.NewLine & _ "SaveFile=" & CheckBox_SaveFile.Checked My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False) End Sub ' Load INI Settings Private Sub Load_INI_Settings() Dim xRead As IO. StreamReader = IO. File. OpenText(INI_File ) Dim Line As String = String.Empty Dim Delimiter As String = "=" Dim ValueName As String = String.Empty Dim Value As Object ' Example content of Test.ini: ' ' File=C:\File.txt ' SaveFile=True Do Until xRead.EndOfStream Line = xRead.ReadLine().ToLower ValueName = Line.Split(Delimiter).First Value = Line.Split(Delimiter).Last If ValueName = "File".ToLower Then TextBox_File.Text = Value If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value Application.DoEvents() Loop xRead.Close() : xRead.Dispose() End Sub
|
|
« Última modificación: 14 Junio 2013, 20:20 pm por SγиtαxEяяoя »
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
programa para leer palabras y eliminacion en java
Ejercicios
|
Luis20093664
|
1
|
3,141
|
21 Abril 2013, 01:20 am
por Danyfirex
|
|
|
Este teléfono transcribe en texto las palabras de tu interlocutor
Noticias
|
wolfbcn
|
0
|
1,179
|
13 Junio 2013, 01:17 am
por wolfbcn
|
|
|
Palabras Acentuadas problema al mostrar !
PHP
|
Diabliyo
|
9
|
5,267
|
14 Noviembre 2014, 22:52 pm
por R2100
|
|
|
Intentar leer texto desde una clase externa
.NET (C#, VB.NET, ASP)
|
Meta
|
2
|
1,859
|
29 Diciembre 2016, 21:55 pm
por Meta
|
|
|
Cómo leer número de un txt.
Programación C/C++
|
Wilber592
|
9
|
2,580
|
22 Noviembre 2018, 18:48 pm
por Wilber592
|
|