VISUAL BASIC 6.0 CON ARCHIVOS SEPARADOS POR COMAS
Channel: TUTORIALES KING
Date: 17/04/2016

Creando un proyecto sencillo  con archivos de texto delimitados por comas. Los podemos utilizar para crear directorios telefónicos, control de alumnos, etc. Utlizando Append e Input podemos hacer infinidad de aplicaciones sin tener que recurrir a las bases de datos.  Dejen sus comnetarios, preguntas o sugerencia. Gracias.

CODIGO:

Sub Command1_Clic()
Open App.path & "\Base1.zip" For Append as #1
Write #1,TEXT1,TEXT2,TEXT3,TEXT4
Close #1
Text1=Empty
Text2=Empty
Text3=Empty
Text4=Empty
Text1.Setfocus
End Sub

Sub Command2_Clic()
Open App.path & "\Base1.zip" For Input as #1
Do While Not EOF(1)
  Input #1,Identificacion,nombres,direccion,telefono
   If Val(text1)=Val(Identificacion) Then

  text2=nombres
  Text3=direccion
  text4=telefono
  End If
Loop
Close #1
End Sub

Sub Command3_Clic()
Text1=Empty
Text2=Empty
Text3=Empty
Text4=Empty
Text1.Setfocus
End Sub