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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24
91  Programación / Programación Visual Basic / Re: leer un archivo txt en: 8 Abril 2006, 17:36 pm
ok,..........
pero kon lo que te di ni una idea te das.... no lo podes hacer?????

es facil:

Código:
open "file.txt" for input as #1
 contenido =  input(lof(1),1)
close
Text1.text = Contenido

Ahora teens que recorrer el text1, para ver lo que tenes!!! y meter los numeros en variables!!!

Código:
sw1=0:sw2=0:X=1
Dim Numeros(1 TO 10000)
for i=1 to len(text1.text)
   car = mid(text1.text,i,1)
   if car="=" and sw1=0 then
     numero = numero & car
     sw2=1
   end if
   if sw2=1 and car=" " then
     Numeros(X) = Numero
     X=X+1
     numero=""
     sw1=0:sw2=0
   end if
next
Espero que te sea de ayuda, y que prendas la lamparita!
92  Programación / Programación Visual Basic / Re: Edicion de Archivos en VB en: 8 Abril 2006, 15:48 pm
Me salte el then (eso es por programar en VFP y C que no lo usan jejeje

estas negando el eof asike no nesesitas el = True
con solo While Not EOF(1) listo!!
93  Programación / Programación Visual Basic / Re: leer un archivo txt en: 8 Abril 2006, 15:37 pm
Miralo:

Código:
Private Sub Form_Load()
Dim file_data$
Open "C:\Archivo.txt" For Append As #1
While Not EOF(1)
Print #1, file_data$
Text1.text=Text1.text & file_data$ & vbNewLine
End Sub

tu programa tiene un error, seria haci para que funcione:
Código:
Private Sub Form_Load()
Dim file_data$
Open "C:\Archivo.txt" For Append As #1
While Not EOF(1)
 Print #1, file_data$
 Text1.text=Text1.text & file_data$ & vbNewLine
Wend
End Sub
94  Programación / Programación Visual Basic / Re: Edicion de Archivos en VB en: 8 Abril 2006, 15:35 pm
Código:
re = "y" & vbnewline & "a" & vbnewline & "todas"
open "file.txt" for input as #1
 while not eof(1)
  line input #1, contenido
  if ucase(contenido) <> "SOY"
    open "file2.txt" for append as #2
      print #2, contenido
    close
  else
    open "file2.txt" for append as #2
      print #2, re
      print #2, contenido
    close
  end if
 wend
close
kill "file.txt"
name "file2.txt" as "file.txt"
msgbox "Listo"
95  Programación / Programación Visual Basic / Re: leer un archivo txt en: 8 Abril 2006, 02:13 am
Código:
sw1=0:sw2=0
open "archivo.txt" for input as #1
 line input #1, contenido
 for i=1 to len(contenido)
   car = mid(contenido,i,1)
   if car="=" and sw1=0 then
     numero = numero & car
     sw2=1
   end if
   if sw2=1 and car=" " then
     open "numeros.txt" for append as #2
       print #2, numero
     close
     numero=""
     sw1=0:sw2=0
     exit for
   end if
 next
close

espero que te ayude, este ejemplo no fue provado con el vb ya que no lo tengo aka
96  Programación / Programación Visual Basic / Re: Text + Image en: 7 Abril 2006, 22:37 pm
podes usar el control de HTML y colokarle una web osea antes de mostrar los datos vos kreas una HTML y luego la mostras yo utilizo las ayudas online ded mis soft dee sa manera!!!
97  Programación / Programación Visual Basic / Re: 0 en hexadecimal en: 7 Abril 2006, 22:29 pm
mira, lo que te entiendo es poko pero weno, el VB tiene la funcion para convertir a HEX, pero si keres mas aka tenes:

http://www.configurarequipos.com/truco396.html

esta funcion del VB de llama HEX(), y vos le pasas un numero o varios
98  Programación / Programación Visual Basic / Re: Conectarme a internet en: 7 Abril 2006, 22:22 pm
vas a:
Internet Explorer -> Herramientas -> Opciones De Internet... -> Conexion -> Seleccionas la conexión y le das a las propiedades y este te mostrara el usr y el pwl en forma de **** (usas veoveo y podes saber que dice)

Saludos
99  Programación / Programación Visual Basic / Re: Juegos en: 6 Abril 2006, 20:21 pm
ahora te entiendo kuando decis fisica jejeje yo pense que era un juego que tenias que responder preguntas de fisica jejejejejejeje, weno en el: www.planet-source-code.com, en la sesscion games de VB hay un monton de ese tipo, el mas conocido en el ambito de *Basic es el Gorillas jejejejeje si le abre jugado a ese juego... tambien al nibles wow que tiempos.... jejejeje
100  Programación / Programación Visual Basic / Re: Form que ocupe TODA la pantalla en: 5 Abril 2006, 22:14 pm
esto te ayudara, si estas tratando de crear un cyber control... tendras que ver otras cosas con respecto al teclado, pero si es un protector de pantalla, solo lo del movimiento del mouse, pero si es otra cosa jejejeje....


aka esto te dara una idea:
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=screen+saber&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search&optSort=Alphabetical
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines