Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Lettura file txt
Forum - Visual Basic 6 - Lettura file txt

Avatar
S.y.n.a.p.s.e. (Normal User)
Newbie


Messaggi: 9
Iscritto: 12/09/2010

Segnala al moderatore
Postato alle 5:40
Domenica, 12/09/2010
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-|


PM
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Up
2
Down
V
Segnala al moderatore
Postato alle 12:28
Lunedì, 13/09/2010
Per leggere il file

Codice sorgente - presumibilmente VB.NET

  1. Dim valore As String
  2. Open "c:\esempio.txt" For Input As #1
  3. Line Input #1, valore
  4. Text1.text = valore
  5. Line Input #1, valore
  6. Text2.text = valore
  7. Line Input #1, valore
  8. Text3.text = valore
  9. Close #1



Per scrivere

Codice sorgente - presumibilmente Python

  1. Open "c:\esempio.txt" For Output As #1
  2. Print #1, Text1.text
  3. Print #1, Text2.text
  4. Print #1, Text3.text
  5. Close #1


PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
1
Down
V
Segnala al moderatore
Postato alle 11:07
Domenica, 12/09/2010
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)

PM
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Up
1
Down
V
Segnala al moderatore
Postato alle 12:25
Domenica, 12/09/2010
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

Codice sorgente - presumibilmente VB.NET

  1. Dim valori As String
  2.    valori = Text1.text & "+" & Text2.text & "+" & Text3.text
  3.    Open "c:\esempio.txt" For Output As #1
  4.    Print #1, valori
  5.   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.

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
1
Down
V
Segnala al moderatore
Postato alle 16:58
Lunedì, 13/09/2010
Comunque dai un voto (freccia su) solo quando ti danno una risposta corretta o che comunque ti soddisfa...

Ad Alfonso avevi dato 2 voti (una freccia su per la risposta e una per il "Figurati, ma dacci anche un voto")

Quello che dico non è che non si può fare, ma sarebbe più corretto fare così.

Ovviamente puoi anche non dare nessun voto.

p.s. Adesso do io un voto negativo all'ultimo post di Alfonso così da riportarlo a 0.
(E voglio precisare che me lo ha chiesto lui)

PM
Avatar
S.y.n.a.p.s.e. (Normal User)
Newbie


Messaggi: 9
Iscritto: 12/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 11:42
Lunedì, 13/09/2010
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....

PM
Avatar
S.y.n.a.p.s.e. (Normal User)
Newbie


Messaggi: 9
Iscritto: 12/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 12:38
Lunedì, 13/09/2010
Fatto ! Tutto bene .... Grazie Mille Alfonso;)

PM
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Up
0
Down
V
Segnala al moderatore
Postato alle 13:01
Lunedì, 13/09/2010
Figurati, ma dacci anche un voto.:)

PM
Avatar
S.y.n.a.p.s.e. (Normal User)
Newbie


Messaggi: 9
Iscritto: 12/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 13:13
Lunedì, 13/09/2010
Si Scuami FATTO VOTATI TUTTI E DUE !.... Grazie Mille ;)

Ultima modifica effettuata da S.y.n.a.p.s.e. il 13/09/2010 alle 13:43
PM