Newsgroup: it.comp.appl.access
Titolo: Scrittura su file

con questo codice appendo in fondo al file di testo la stringa "ciao";
Private Sub Command1_Click()
Open "c:\temp\1.txt" For Append As #1
Write #1, "ciao"
Close #1
End Sub
(scusate se percaso è un doppio invio ma al momento non vedo il post
precedente)

perdono, ho fatto casino; la domanda è:
come faccio a portarmi all'inizio del file e scrivere qualcosa che deve
essere quindi la prima riga di questo file di testo?

 essere quindi la prima riga di questo file di testo?
Crei un nuovo File, gli scrivi la tua prima riga, e poi fai l'append
del file precedente, cancelli il vecchio e rinomini.
@Alex.
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

no no dai, mi serve il metodo non la soluzione. Il mio post ha un esempio
non il problema vero e proprio. Se non capisco come maneggiare i file non ne
vengo fuori.
Ad esempio, quali sono le parole chiave nella guida? Nei Recordset ci sta
bene EOF eccetera, come si usano nei file di testo?

 wrote in message
news:9qp7eh$rvc$1...@stargate1.inet.it...

"No no dai non fare così".....!
Certo capitai che non posso sciverti tutto il codice per fare il lavoro, 
posso darti le indicazioni finalizzate ad aiutarti a risolverlo.
Poi per polemizzare sulla tua capacità di usare i File di Testo ci
tengo a sottolineare che le istruzioni seguenti sono copiate dall'Help....;-)
e mi pare tu abbia difficoltà a premere (F1)
Open Path+"FILETemp.txt" For Append As #1 ' Apre il file perl'output.
Write #1, "Salve gente"
Dim MyString, MyNumber
Open Path+"FILEORIG.txt" For Input As #2	' Apre il file per l'input.
Do While Not EOF(2)	' Ripete fino alla fine del file.
  Input #2, MyString ' Legge i dati nelle variabili.
  Write #1,MyString 
Loop
La Path la devi fornire tu a seconda di dove si trova il File
In questo modo hai il File(FILETemp.txt) che contiene la 1° riga nuova
e accodate tutto il File(FILEORIG.txt).
Per eliminare il FileOrig usa l'istruzione Kill(F1)
Per rinominare l'istruzione Name(F1)
Dim OldName, NewName
OldName = "VECCHIO": NewName = "NUOVO"	' Definisce i
' nomi di file.
Name OldName As NewName	' Rinomina il file. 
Ciao @Alex.


Ciao @Alex.
Non sono pratico di VBA ma credo che sia meglio:
Dim MyString as String 
Dim MyNumber as Integer
Open 'nuovofile' For Output As #1 ' Apre il file perl'output.
Print #1, "Salve gente"
Open 'vecchiofile' For Input As #2	' Apre il file per l'input.
Do While Not EOF(2)	' Ripete fino alla fine del file.
	 Line Input #2, MyString   ' Legge ogni singola riga di testo
  	Print #1, MyString
Loop
Close
A questo punto il' nuovofile' contiene come prima riga quello che ho
aggiunto e poi tutto il resto
Il seguito è lo stesso, Kill il vecchio e Rename il Nuovo
Ciao
Filippo da studio

 Filippo da studio
Ciao Filippo hai sicuramente scritto tutto giusto e meglio, ma credo
che ognuno debba metterci del suo, io mi ero limitato a copiare dall'Help
un'insieme di esempi senza aggiungere nulla solo per stimolare ad approfondire
e
dimostrare che alcune volte abbiamo la soluzione a portata di mano.....!!
Ciao @Alex
-- 
Posted from  [62.98.49.3] 


CALMA CALMA, intanto grazie per le risposte. Ti faccio notare che io
chiedevo, tra le altre cose, parole chiave da digitare dopo aver fatto F1,
che non me ne venivano (se non sempre le solite che si rivelavano inutili)