|
Testi |
   |
|
LetturaL'istruzione Line Input #numerofile, nomevariabile consente di leggere, una linea alla volta, i caratteri contenuti in un file. Legge un carattere per volta, fino al ritorno a capo Chr(13) o alla sequenza ritorno a capo–avanzamento riga Chr(13) + Chr(10) e lo aggiunge alla stringa nomevariabile. Le sequenze ritorno a capo–avanzamento riga vengono ignorate e non aggiunte alla stringa di caratteri. EsempioDim buffer1 As String, buffer2 As String Dim CRLF As String, NumeroFile As Integer CRLF = Chr$(13) & Chr$(10) NumeroFile = FreeFile Open NomeFile For Input As NumeroFile Do While Not EOF(NumeroFile) Line Input #NumeroFile, buffer1 buffer2 = buffer2 & buffer1 & CRLF Loop Close NumeroFile
In alternativa, la funzione Input(numero, [#]numerofile) restituisce una stringa che contiene tutti i caratteri letti da un file aperto. numero specifica il numero di caratteri che devono essere estratti dal file. Esempiobuffer = Input(LOF(NumeroFile), #NumeroFile) legge tutto il contenuto del file e lo restituisce in buffer.
ScritturaL'istruzione Print #numerofile, variabile consente di scrivere una linea alla volta EsempioOpen NomeFile For Output As NumeroFile Print #NumeroFile, Text1 Print #NumeroFile, Text2 Print #NumeroFile, Text3 Close NumeroFile |
|
