AS
AS
VBA per Microsoft Excel
Accesso al File System
Le funzioni Open, Print e Input: un esempio di lettura da e scrittura su un file di testo.
In questo caso poniamo che esista il file "prova.txt" nella stessa cartella del file Excel. I dati vengono scritti in una tabella a dimensione variabile che inizi dalla cella E1. Alla cella B1 viene affidata la variabile relativa al tipo di scrittura: accodamento o sovrascrittura. Associo a due pulsanti le subroutine SCRIVI_FILE_Click e LEGGI_FILE_Click. Per chiarezza, l'esempio è volutamente limitato ad un caso di semplice lettura e scrittura, tuttavia la funzionalità può risultare estremamente utile per rielaborazioni complesse di file numerosi.
Qui di seguito il print-screen ed il link del file usato come esempio.
Scaricando il seguente file accettate che viene rilasciato così com'è senza alcun tipo di garanzia.
In questo caso poniamo che esista il file "prova.txt" nella stessa cartella del file Excel. I dati vengono scritti in una tabella a dimensione variabile che inizi dalla cella E1. Alla cella B1 viene affidata la variabile relativa al tipo di scrittura: accodamento o sovrascrittura. Associo a due pulsanti le subroutine SCRIVI_FILE_Click e LEGGI_FILE_Click. Per chiarezza, l'esempio è volutamente limitato ad un caso di semplice lettura e scrittura, tuttavia la funzionalità può risultare estremamente utile per rielaborazioni complesse di file numerosi.
Qui di seguito il print-screen ed il link del file usato come esempio.
Scaricando il seguente file accettate che viene rilasciato così com'è senza alcun tipo di garanzia.
Sub SCRIVI_FILE_Click()
On Error GoTo Err
Dim V_TipoScrittura, V_NomeFile, V_Output As String
V_TipoScrittura = Cells(2, 2).Value
V_NomeFile = ActiveWorkbook.Path & "\prova.txt"
V_Output = ""
ApriFile V_TipoScrittura, V_NomeFile
Dim V_r, V_c As Long
If V_TipoScrittura = 1 Then
V_r = 1
Else
V_r = 2
End If
V_c = 5
While Cells(V_r, V_c).Value <> ""
While Cells(V_r, V_c).Value <> ""
If V_Output = "" Then
V_Output = Cells(V_r, V_c).Value
Else
V_Output = V_Output & Chr(9) & Cells(V_r, V_c).Value
End If
V_c = V_c + 1
Wend
ScriviFile V_Output
V_Output = ""
V_c = 5
V_r = V_r + 1
Wend
ChiudiFile
MsgBox ("Scritte " & V_r - 1 & " righe!")
uscita:
Exit Sub
Err:
MsgBox Err.Description
Resume uscita
End Sub
Sub LEGGI_FILE_Click()
On Error GoTo Err
Dim V_NomeFile As String
V_NomeFile = ActiveWorkbook.Path & "\prova.txt"
ApriFile 3, V_NomeFile
LeggiFile 1, 5
ChiudiFile
uscita:
Exit Sub
Err:
MsgBox Err.Description
Resume uscita
End Sub
Function ApriFile(Tipo, NomeFile)
If Tipo = 1 Then
Open NomeFile For Output As #1 'apre per sovrascrivere
ElseIf Tipo = 2 Then
Open NomeFile For Append As #1 'apre per accodare
ElseIf Tipo = 3 Then
Open NomeFile For Input As #1 'apre per leggere
Else
MsgBox ("Scegliere sovrascrivi/accoda/leggi")
Exit Function
End If
End Function
Function ScriviFile(Output)
Print #1, Output
End Function
Function LeggiFile(initR, initC)
Dim V_r, V_c As Long
V_r = initR
V_c = initC
Dim temp1, temp2 As String
temp1 = ""
temp2 = ""
Do While Not EOF(1)
temp1 = Input(1, #1)
If temp1 = Chr(9) Then
V_c = V_c + 1
Cells(V_r, V_c).Value = temp2
temp2 = ""
ElseIf temp1 = Chr(13) Then
V_r = V_r + 1
V_c = initC
temp2 = ""
ElseIf temp1 <> Chr(10) Then
temp2 = temp2 & temp1
Cells(V_r, V_c).Value = temp2
End If
Loop
End Function
Function ChiudiFile()
Close #1
End Function