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 - Modificare tramite VB6 file txt
Forum - Visual Basic 6 - Modificare tramite VB6 file txt

Avatar
apoben (Normal User)
Newbie


Messaggi: 12
Iscritto: 28/08/2008

Segnala al moderatore
Postato alle 21:12
Mercoledė, 08/10/2008
Ciao a tutti , come vedete posso con la macro sottostante aprire  un file txt e leggerne il contenuto  in una text1.text.

Il problema č che non riesco a , modificando il testo contenuto nella text1 , a salvare il file txt (istruzioni)  col nuovo testo .

Come devo impostare il codice in un cmd per poter salvare il testo modificato  ?

Grazie per l'aiuto e i consigli.

Luca

Private Sub Apri()
Text1.Text = ""
Open App.Path & "\Istruzioni.txt" For Input As #1
While Not EOF(1)
Input #1, data
Text1.Text = Text1.Text & data & vbCrLf
Wend
Close #1
End Sub

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 21:14
Mercoledė, 08/10/2008
Devi fare:

open "Tuopercorso\istr.txt" for output as #1
print #1, text1.text
close #1

;)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 21:21
Mercoledė, 08/10/2008
Testo quotato

Postato originariamente da GrG:

Devi fare:
Codice sorgente - presumibilmente Visual Basic 6

  1. open "Tuopercorso\istr.txt" for output as #1
  2. print #1, text1.text
  3. close #1


;)


giusto :k: ma se vuoi mantenere anche i dati precedenti devi fare cosė:
Codice sorgente - presumibilmente Visual Basic 6

  1. open "Tuopercorso\istr.txt" for append as #1
  2. print #1, text1.text
  3. close #1


cm io ti consiglio il vb.net :k:

Ultima modifica effettuata da il 08/10/2008 alle 21:22
PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 23:25
Mercoledė, 08/10/2008
Testo quotato

Postato originariamente da fabi3194:
cm io ti consiglio il vb.net :k:



:ot::ot::ot:
hmm.. cattiva opinione da esprimere in un forum di vb6.
cmq lodevole la schiettezza(esiste come parola?).

PM Quote
Avatar
apoben (Normal User)
Newbie


Messaggi: 12
Iscritto: 28/08/2008

Segnala al moderatore
Postato alle 8:28
Giovedė, 09/10/2008
Ringrazio dei preziosi consigli in fatti ho optato  cosė  :

Private Sub Command1_Click()
On Error GoTo fine
Open App.Path & "\Istruzioni.txt" For Output As #1
Print #1, Text1.Text
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 13:37
Giovedė, 09/10/2008
:k:

PM Quote