Ultra Phonic 2 (Ex-Member)
Pro
Messaggi: 181
Iscritto: 15/09/2008
|
ciao a tutti, mi sapreste dire come far funzionare dei maledettissimi commondialog?
ecco il mio codice
Codice sorgente - presumibilmente VB.NET |
dim nuovo as variant Private Sub mnusave_Click() cd1.FileName = vbNullString cd1.Filter = "File di testo (*.txt,*.rtf)| *.txt; *.rtf |Tutti i File (*.*)| *.*" cd1.ShowSave nuovo = cd1.FileName Open nuovo For Output As #1 Print #1, txt Close #1 If cd1.FileName <> vbNullString Then 'qui ke metto? End If End Sub
|
dove la scritta "qui ke metto", mi dovreste dire cosa mettere...
grazie
Ultima modifica effettuata da Ultra Phonic 2 il 07/11/2008 alle 23:37 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Allora io per evitare ke quando si preme annulla non dia errore faccio:
Dim nuovo As Variant
Private Sub mnusave_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt,*.rtf)| *.txt; *.rtf |Tutti i File (*.*)| *.*"
cd1.ShowSave
nuovo = cd1.FileName
if nuovo <> "" then
Open nuovo For Output As #1
Print #1, txt
Close #1
end if
End Sub
Quindi esegue il resto del codice solo se il nome del file non è vuoto, cosa che accade invece quando si fa annulla...
+ o - hai capito?
|
|
Ultra Phonic 2 (Ex-Member)
Pro
Messaggi: 181
Iscritto: 15/09/2008
|
diciamo di si
ok, e grazie grg
6 il ++++migliore
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
asd, non esageriamo, ci sono molti + bravi di me, ma in questo forum (in visual basic) sono abbastanza preparato come anche Paperoga (lui un pò + di me). Anche se ricordo che c'era Gantonio ad esempio che mi ha ftt quasi da "maestro"...forse è attivo nella sezione C++ ora, non so
|
|
Ultra Phonic 2 (Ex-Member)
Pro
Messaggi: 181
Iscritto: 15/09/2008
|
cm si fa per aprire file?
io faccio così, ma nn mi funziona
Codice sorgente - presumibilmente VB.NET |
Private Sub mnuapri_Click() cd1.FileName = vbNullString cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*" cd1.ShowOpen nuovo = cd1.FileName Open nuovo For Output As #2 txt.Text = Input(LOF(1), #2) Close #2 If nuovo <> "" Then Open nuovo For Output As #2 Print #2, txt Close #2 End If End Sub
|
dimmi dove sbaglio...
grazie
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Private Sub mnuapri_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*"
cd1.ShowOpen
nuovo = cd1.FileName
Open nuovo For Output As #2
txt.Text = Input(LOF(1), #2)
Close #2
If nuovo <> "" Then
Open nuovo For Output As #2
Print #2, txt
Close #2
End If
End Sub
Vedi la scritta in grassetto? Si è output, ecco è li il problema perchè se vuoi leggere un file si usa INPUT quindi diventerà:
Private Sub mnuapri_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*"
cd1.ShowOpen
nuovo = cd1.FileName
Open nuovo For Input As #2
txt.Text = Input(LOF(1), #2)
Close #2
If nuovo <> "" Then
Open nuovo For Output As #2
Print #2, txt
Close #2
End If
End Sub
Ma c'è un'altro problema (segnalato in grassetto) è LOF(1), perchè LOF(1) non va bene?
Perchè siccome apri il file con il numero 2 cioè
... as #2
si mette 2 e non 1...
capito?
|
|
Ultra Phonic 2 (Ex-Member)
Pro
Messaggi: 181
Iscritto: 15/09/2008
|
grazie grg
ora va
però solo per file txt,
per file bat, o altro cm si fa?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Vale per tutti i tipi di file la Open -.-...
Magari googla un pò...
|
|
Ultra Phonic 2 (Ex-Member)
Pro
Messaggi: 181
Iscritto: 15/09/2008
|
ho cercato, ma niente a riguardo.
i file che non apre, sono exe, bat, dll, ocx, file compressi, tranne bat
xkè nn li apre?
|
|