Oppure

Loading
12/09/10 3:40
S.y.n.a.p.s.e.
Salve Ragazzi sono Nuovo di Questo forum..Non sono molto pratico di vb6..

Vi Posto il Mio Problema ...

Allora io ho una form ...

Text1 = Nome
Text2 = Cognome
Text3 = Data Di Nascita
Command1 = Crea
Command2 = Modifica
Command3 = Apri

* Crea a la funzione di Salvare un file txt in una cartella con text1+text2+text3

Quando faccio Apri lui mi dovrebbe leggere il text1+text2 e cercarlo in una directory che dico io.... dopo di che mi dovrebbe mettere il contenuto in Seguenza di come e stato scritto .... e dovrebbero uscire nelle text sopra elencate....

Mi potete Aiutare ?

Grazie in Anticipo...8-|

aaa
12/09/10 9:07
GrG
Non te la prendere ma sinceramente non ho capito niente di ciò che hai scritto...

Quindi dal titolo presumo che tu debba leggere un file con de valori che devi inserire nelle text1, text2 e text3.

Allora, per aprire il file usa:

dim valori as string
Open "C:\esempio.txt" for input as #1
line input #1, valori
close #1

Poi usa split per separare i +

dim text() as string
text = split(valori, "+";)

text1.text = text(0)
text2.text = text(1)
text3.text = text(2)
aaa
12/09/10 10:25
Alfonso
Sulla falsariga di quello che ti ha scritto GrG aggiungo quello che ti serve per poter usare il suo suggerimento.
Ovvero come scrivere sul file

Dim valori As String
   valori = Text1.text & "+" & Text2.text & "+" & Text3.text
   Open "c:\esempio.txt" For Output As #1
   Print #1, valori
  Close #1


Se come sistema operativo hai Vista o win7, è facile che, usando C:\ come indirizzo per il file, ti dia errore se non hai i permessi.
aaa
13/09/10 9:42
S.y.n.a.p.s.e.
Scusatemi se non sono stato chiaro ....

In poche parole nella mia form ci sono 3 text:

Text1
Text2
Text3
Poi
Command1

Allora visto che nel file txt già esistente ci sono 3 righe
il pulsante dovrebbe leggere una riga alla volta e metterle nelle text per farmi capire meglio:

File Txt:
Pippo
Pippo1
Pippo2

FORM
Quando Premo il Pulsate "Command1" Mi Legge una riga per volta e le mette nelle text .
Text1 [Pippo ]
Text2 [Pippo1 ]
Text3 [Pippo2 ]


Penso sia stato chiaro....
aaa
13/09/10 10:28
Alfonso
Per leggere il file

Dim valore As String
Open "c:\esempio.txt" For Input As #1
Line Input #1, valore
Text1.text = valore
Line Input #1, valore
Text2.text = valore
Line Input #1, valore
Text3.text = valore
Close #1


Per scrivere

Open "c:\esempio.txt" For Output As #1
Print #1, Text1.text
Print #1, Text2.text
Print #1, Text3.text
Close #1
aaa
13/09/10 10:38
S.y.n.a.p.s.e.
Fatto ! Tutto bene .... Grazie Mille Alfonso;)
aaa
13/09/10 11:01
Alfonso
Figurati, ma dacci anche un voto.:)
aaa
13/09/10 11:13
S.y.n.a.p.s.e.
Si Scuami FATTO VOTATI TUTTI E DUE !.... Grazie Mille ;)
Ultima modifica effettuata da S.y.n.a.p.s.e. 13/09/10 11:43
aaa