elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  leer un archivo txt
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] 3 Ir Abajo Respuesta Imprimir
Autor Tema: leer un archivo txt  (Leído 8,872 veces)
RED_HORSE

Desconectado Desconectado

Mensajes: 95



Ver Perfil
Re: leer un archivo txt
« Respuesta #10 en: 9 Abril 2006, 18:19 pm »

 perdon ciclos pero es que aun no lo puedo entender ;D ;D


En línea

Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: leer un archivo txt
« Respuesta #11 en: 10 Abril 2006, 17:43 pm »

Tuve un error, osea no mire bien mi codigo y ahora cuando te lo estaba esplicando me fije bien y no funcionaria, esta es la correccion
Código:
sw1=0:sw2=0:X=1 'Iniciamos las variables
Dim Numeros(1 TO 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
for i=1 to ubound(Numeros)
 Numeros(I)=""
next

for i=1 to len(text1.text) 'desde 1 hasta lo que tiene el text1
   car = mid(text1.text,i,1) 'guardamos de a 1 caracter
   if sw1=1 then '1
     numero = numero & car     
     sw2=1
   end if           
   if sw2=1 and car=" " then '2
     Numeros(X) = Numero
     X=X+1
     numero=""
     sw1=0:sw2=0
   end if
   if car = "=" then sw1=1 '3
next
1: lo que hacemos es que si sw1=1 entonces guardamos el cntenido de car en la variable numero, concatenandola con el resto, ejemplo:
car =1
Numero = "52" 'ya iniciado
Entonces
Numero = Nunmero & Car
Numero = "521" ' Resultado final o semifinal!!!

Ponemos el sw2=1, para que deje de grabar numeros si encuentra un espacio

2- si el car=" " (un espacio) y sw2=1 entonces significa que el numero ya fue gravado en la variable Numero, lo que hacemos entonces es:
Guardamos ese numero en el vector Numeros, le sumamos unos mas a X (este sera el indice del vector), y vaciamos variables

3- verificamos si el caracter es un "=" entonces lo que hacesmos es poner sw1 en 1 para que komienze a guardar caracteres

como resultad fianl tendremos en el vector todos los numeros, y si lo keremos mostrar en un textbox seria de esta manera:
Código:
tmptxt = ""
for i=1 to ubound(Numeros)
 if Numeros(I) != "" Then
   tmptxt = Numeros(I) & vbnewline & tmptxt
 Else
  exit for
 End if
next
text1.value = tmptxt

Saludos espero ek te ayude!!


En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
RED_HORSE

Desconectado Desconectado

Mensajes: 95



Ver Perfil
Re: leer un archivo txt
« Respuesta #12 en: 11 Abril 2006, 01:06 am »

  gracias de nuevo cicklow ahora me quedo mas claro que nunca

 lo que no me quedo muy en claro es lo de verlo en el texbox ya que esto me da error  if Numeros(I) != "" Then

  luego quite el caracter ! y me dio otro error en Text1.Value = tmptxt

PD: yo puse otro texbox con el nombre tmptxt
« Última modificación: 11 Abril 2006, 01:09 am por RED_HORSE » En línea

Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: leer un archivo txt
« Respuesta #13 en: 11 Abril 2006, 01:46 am »

  gracias de nuevo cicklow ahora me quedo mas claro que nunca

 lo que no me quedo muy en claro es lo de verlo en el texbox ya que esto me da error  if Numeros(I) != "" Then

  luego quite el caracter ! y me dio otro error en Text1.Value = tmptxt

PD: yo puse otro texbox con el nombre tmptxt

con respecto al != es porke laburo con torls lenguajes jejeje reeemplaza el != por <> y listo!!!

con el tmptxt cambialo por otro nombre (que se yo: tmptxt2, u lo que kieras)

saludos!
En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
RED_HORSE

Desconectado Desconectado

Mensajes: 95



Ver Perfil
Re: leer un archivo txt
« Respuesta #14 en: 11 Abril 2006, 16:55 pm »

  perdon cicklow te sigo al pie dela letra y aun no lo logro te paso tal cual como lo puse y fijate:






Private Sub Command1_Click()
beto.Value = tmptxt
End Sub

Private Sub Form_Load()
Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

End Sub
En línea

Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: leer un archivo txt
« Respuesta #15 en: 11 Abril 2006, 18:32 pm »

  perdon cicklow te sigo al pie dela letra y aun no lo logro te paso tal cual como lo puse y fijate:






Private Sub Command1_Click()
beto.Value = tmptxt
End Sub

Private Sub Form_Load()
Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

End Sub

si no declaramos tmptxt como global no funcionara.
mejoremoslo!::

Código:
Private Sub Command1_Click()
Open "c:\texto.txt" For Input As #1
  contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt 'en el anterior si la colokas aka a la variable
tmptxt = "" 'la lee el evento load nada mas!!!!!! colokalas     
                 'colokalas en la general para que te la lean todos!
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

beto.Value = tmptxt

End Sub
Te digo que este script (por asi decirlo), no lo he provado porke donde estoy no tengo el VB. cualkier cosa avisame!!!

podes usar el script anterior si declaras "Dim tmptxt" en la general!!, y asi te ahorras de amontonar todo!
En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
RED_HORSE

Desconectado Desconectado

Mensajes: 95



Ver Perfil
Re: leer un archivo txt
« Respuesta #16 en: 11 Abril 2006, 22:50 pm »

  Me da un error en esta parate:
No tengo ni la minima idea de por que ya que ahora puse tosa editadas las variables fijate


En línea

Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: leer un archivo txt
« Respuesta #17 en: 12 Abril 2006, 00:29 am »

por una sensilla razon... el texbox no tiene la propiedad value (la tiene pero es  de solo lectura), asike usa
Código:
beto.text = ?
En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
RED_HORSE

Desconectado Desconectado

Mensajes: 95



Ver Perfil
Re: leer un archivo txt
« Respuesta #18 en: 12 Abril 2006, 23:21 pm »

  No amigo creo que esto ya es en vano ahora no da mas ningun error pero  no muestra ningun numero.
  te pongo de nuevo los codigos:

Private Sub Command1_Click()
beto.Text = tmptxt
End Sub
Private Sub Form_Load()
Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

End Sub
En línea

Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: leer un archivo txt
« Respuesta #19 en: 13 Abril 2006, 16:54 pm »

aver provemos esto pone un punto de corte en
tmptxt = ""
y fijate el contenido del array Numeros()

fijate si tiene algo

podes hacer que te los muestre en la ventana de inmediato haci:

msgbox Numeros(1)

si te muestra algo es que se guardan los numeros pero sino es que hay otro problema...
hoy me llevo el codigo este y lo pruevo en mi casa!!
En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
Páginas: 1 [2] 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con BAT leer Archivo « 1 2 3 4 »
Scripting
elecktra 30 25,421 Último mensaje 9 Octubre 2009, 05:27 am
por Aranguez
Leer Archivo en pascal
Programación General
¡Micronet! 6 8,535 Último mensaje 26 Enero 2011, 01:20 am
por ¡Micronet!
Leer archivo txt y pasarlo a un arreglo
Java
ZedGe 6 30,577 Último mensaje 11 Junio 2011, 15:14 pm
por barbieturico
Problema en C++ al leer archivo .txt « 1 2 »
Programación C/C++
javier_SL 10 13,256 Último mensaje 21 Junio 2011, 00:54 am
por Danyel_Casvill
leer cadena de archivo en c#
.NET (C#, VB.NET, ASP)
alan03 0 3,513 Último mensaje 22 Julio 2011, 20:01 pm
por alan03
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines