[VB] Aiuto
Clicca QUI per vedere il messaggio nel forum |
| thecrow |
Ragazzi ho bisogno di un grosso aiuto!
Partendo da una casella di testo e da un bottone,cliccando su quest'ulitmo deve partire una routine che accoda in un file di testo il contenuto della casella.
Su internet ho trovato questo codice:
Private Sub cmdScriviTesto_OnClick()
Dim cartella As String, documento As String, FileNumber As Integer
cartella = "E:\Infopath"; (cartella dove metto il file)
documento = cartella & "prova.txt"; (percorso e nome del file che creo)
FileNumber = FreeFile
Open documento For Output As #FileNumber ' Crea un nome di file e se già esiste lo sovrascrive
testo = domanda1.Text 'assegna alla variabile il contenuto della textbox che contiene il testo
Print #FileNumber, testo ' Scrive il testo nel file
Close #FileNumber ' Chiude il file.
End Sub
PS:
cmdScriviTesto=nome del bottone
domanda1=nome casella di testo
Allora,io sto usando infopath,cliccando sul bottone e dicendo che vuoi usare uno script lui ti apre microsoft script,incollando questo codice mi da un errore nella riga della dichiarazione variabili dicendo PREVISTA FINE ISTRUZIONI,ho provato ad aggiungere dei ; ma nn serve a niente
invece se creo tt questo proprio in visual basic express mi da errore in "Open documento..."dicendo che i metodi devono essere dichiarati nelle parentesi???
boh nn ci capisco piu niente!!!
qualcuno puo dirmi se secondo lui quel codice è giusto o se ci sono modifiche da fare?
GRAZIE MILE è URGENTISSIMO!!! |
| thecrow |
dimenticavo sotto documento =... c'è:
FileNumber = FreeFile
sul sito c'è scritto che Per poter aprire e gestire un file , a Visual Basic non serve tanto il suo nome logico ("prova.txt" in questo caso) quanto un numero che lo identifichi univocamente , diverso per ogni file del programma. Almeno finchè non chiudiamo il file con l'istruzione Close. A quel punto il numero ritorna libero per poter essere utilizzato con un altro file.
comunque anche togliendo l'errore è sempre quello |
| VdM |
Ciao, ho fatto una prova in VB6 basata sul tuo codice (stessi nomi di variabili e di controlli), utilizzando qualche semplificazione, e non vengono sollevati errori. Posto il codice (commentato ove necessario) che ho testato:
[code begins]
Private Sub cmdScriviTesto_Click()
Dim cartella As String, documento As String, FileNumber As Integer
'Nel mio esempio, utilizzo la directory corrente del processo,
'identificata da App.Path
'Dunque commento i seguenti:
'cartella = "E:\Infopath" '(cartella dove metto il file)
'documento = cartella & "prova.txt" '(percorso e nome del file che creo)
'nome del documento nella directory corrente
documento = App.Path & "\prova.txt"
'Nell'esempio assegno l'identificatore #1 al file da aprire,
'senza cercare un identificatore libero mediante FreeFile
'FileNumber = FreeFile
'Apro il documento in modalita' Append. Cio' permette l'accodamento dei dati al file
Open documento For Append As #1 ' Crea un nome di file e se già esiste lo sovrascrive
testo = domanda1.Text 'assegna alla variabile il contenuto della textbox che contiene il testo
Print #1, testo ' Scrive il testo nel file
Close #1 ' Chiude il file.
End Sub
[code ends]
L'unica cosa che avevo notato e' il fatto che c'era scritto qualche commento senza l'apice, per il resto il codice a me funge...
Che versione di VB utilizzi?
Saluti,
VdM |
| thecrow |
| mmmh...ora riguardo un po allora,grazie mille!!! |
|
|
|
