LanClot
21 de Septiembre del 2003

Como uso un archivo txt, si lo tengo como una base de datos ejm:
sell vender
tengo la palabra en Ingles y un tab mas alla la palabra en español, como hago para poner cada palabra en distintos textbox. Gracias

Halley
21 de Septiembre del 2003

Tenes q usar los comandos Open, Write, Input, etc.....por ejemplo, tenes un archivo pepe.txt en el c: y suponiendo q con un command queres poner "sell" y "vender" en 2 textbox distintos, el codigo sería así:

Private sub Command1_click()
Dim strString1, strString2 as String

Open "c:pepe.txt" for input as #1
Input #1,strString1, strString2
text1.text = strString1
text2.text = strString2
Close #1

End Sub

El formato del archivo debe ser asi:

"sell","vender"
"buy","comprar"

etc....es decir, las palabras van entre comillas, y separadas entre comas.

El comando Open sirve para abrir un archivo (q se indica entre comillas, luego indicas para que queres abrirlo:

for input -----> Para leer
for output ---> Para escribir (sobreescribe)
for append --> Para escribir (sin sobreescribir)

y luego le indicas un numero lógico, #1, #2, #3, etc....para cuando te quieras referir a él en el futuro. (por ejemplo...con el comando Close, utilizas solamente Close #1)

Si quieres leer el contenido que hay en un archivo, es el comando Input #1 (o el numero lógico que sea)
y luego asignas a variables tipo string lo que contenga el archivo.

Una cosa que vale la pena aclarar, es que este tipo de acceso a archivos es SECUENCIAL, es decir......que si queres llegar a un dato que se encuentra al final, primero tenés q pasar por todos los datos anteriores a él.

El programa que escribí arriba sólo sirve para leer la 1º línea de un archivo. Si queres leer todo el archivo secuencialmente, tenes q usar algun bucle:
...
...
Open "c:pepe.txt" for input as #1
do while not eof(1)
Input #1, strString1, strString2
List1.additem strString1 & strString2
loop
Close #1
...
...

en ese ejemplo use un ListBox......para mostrar todo el contenido del archivo.

Cuando ya no se utiliza más el archivo, hay q cerrarlo (Close #1------> o el nº q corresponda) y listo.

No se si kedo muy claro!!!!
Cualkier cosa enviame un mail.


Salu2!!