Mensajes

ok,..........
pero kon lo que te di ni una idea te das.... no lo podes hacer?????

es facil:

Código [Seleccionar] Expandir


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 [Seleccionar] Expandir


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!

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!!

Miralo:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

Código [Seleccionar] Expandir


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"


Código [Seleccionar] Expandir


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

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!!!

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

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

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

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