[VB 6] lettura da txt

[raffaeu]

Ciao ho un file txt generato da questa funzione:

Public Function SalvaLista(NomeFile As String)
Dim FileN As Integer
If Dir(NomeFile) <> "" Then
    Kill NomeFile
End If
    FileN = FreeFile
    Open NomeFile For Output As #FileN
    Write #FileN, "ATTIVI=" & frmOpta.txtATTIVI.Text
    Write #FileN, "BANCHE=" & frmOpta.txtBANCHE.Text
    Write #FileN, "CASSA=" & frmOpta.txtCASSA.Text
    Write #FileN, "CLIENTI=" & frmOpta.txtCLIENTI.Text
    Write #FileN, "FORNITORI=" & frmOpta.txtFORNITORI.Text
    Write #FileN, "PASSIVI=" & frmOpta.txtPASSIVI.Text
    Close #FileN
End Function

In output il file generato è cosi composto:

"ATTIVI=2.80"
"BANCHE=2.20"
"CASSA=2.10"
"CLIENTI=2.30"
"FORNITORI=2.40"
"PASSIVI=2.81"


A questo punto leggo i dati con questa funzione:

Public Function CaricaLista(NomeFile As String)
Dim FileN As Integer
Dim VoceLetta As String
Dim Testo As TextBox
Dim Valore As String
If Dir(NomeFile) = "" Then
MsgBox "Il file non esiste. L'operazione sarà annullata"
Exit Function
End If
FileN = FreeFile
Open NomeFile For Input As #FileN

Do While EOF(FileN) = False
    Input #FileN, VoceLetta
    Valore = Split(VoceLetta, "=")
    Testo = Split(VoceLetta, "=")
    MsgBox "Valore: " & Valore & vbNewLine & "Testo: " & Testo
Loop
Close #FileN
End Function

Solo che non riesco a prelevare i valori poichè il file di testo mi passa: "BANCHE=2.20"
e lo split non legge, dovrei eliminare gli Apici, ma con Replace non riesco ...

[sanny82]

crea una variabile...
Pippo = "banche=20"
E sotto richiami la variabile pippo
Ok?

[tas]

La funzione SalvaLista direi che va bene, ma non capisco come tu possa avere come output

"ATTIVI=2.80"
"BANCHE=2.20"
"CASSA=2.10"
"CLIENTI=2.30"
"FORNITORI=2.40"
"PASSIVI=2.81"

Sei sicuro? Hai aperto il file con il Notepad? Dovrebbe essere così:

ATTIVI=2.80
BANCHE=2.20
CASSA=2.10
CLIENTI=2.30
FORNITORI=2.40
PASSIVI=2.81

Riguardo alla funzione CaricaLista, credo che Split non sia stato usato in modo corretto. Prova così:

Public Function CaricaLista(NomeFile As String)
    Dim FileN As Integer
    Dim VoceLetta As String
    Dim Testo As TextBox
    Dim Valore As String
    Dim Dati() As String

    If Dir(NomeFile) = "" Then
        MsgBox "Il file non esiste. L'operazione sarà annullata"
        Exit Function
    End If
    FileN = FreeFile
    Open NomeFile For Input As #FileN

    Do While EOF(FileN) = False
        Input #FileN, VoceLetta
        Dati = Split(VoceLetta, "=")
        Valore = Dati(0)
        Testo = Dati(1)
        MsgBox "Valore: " & Valore & vbNewLine & "Testo: " & Testo
    Loop
    Close #FileN
End Function

[raffaeu]

Ok ho usato

Dati = Split(VoceLetta, "=")
        Valore = Dati(0)
        Testo = Dati(1)

e funziona ma resta che nel file di testo mi scrive le variabili tra "".

Grazie

[tas]

Il mio vecchio buon libro "Programmare con Visual Basic 3" (di G. Frantz, Apogeo) dice che Input# e Write# sono obsolete. Al posto di queste prova ad usare Line Input # e Print#. Ciao

[raffaeu]

Tas ma se il comando l' ho copiato da MSDN di VB 6 (??)
Comunque provo con Line Imput# perchè lo uso anche con Asp e non mi crea i "".

Grazie