LETTURA FILE

di
marcoamd
il
8 risposte
M
marcoamd
Pochi posts
Iscritto da
apr, 2007
Messaggi:
24

LETTURA FILE

Sto cercando di fare in modo che un programma legga su un certo file finchè non trova scritto qualcosa ovvero finchè il file è vuoto non fa niente e quando qualcuno ci scrive qualcosa lo legga..
Qualcuno sa aiutarmi??

8 Risposte

  • H
    h4xb0ss
    Pochi posts
    Iscritto da
    mar, 2007
    Messaggi:
    2

    Re: LETTURA FILE

    Se ho capito bene, prova così:

    Open App.Path & "\prova.txt" For Input As 1
    Do
    Input #1, variabile
    Text1.Text = Text1 & variabile & vbCrLf
    Loop Until EOF(1) = True
    Close #1

    in questo modo fai un ciclo che legge fino alla fine del file
  • M
    marcoamd
    Pochi posts
    Iscritto da
    apr, 2007
    Messaggi:
    24

    Re: LETTURA FILE

    Forse non hai capito..
    non solo deve leggere il file per vedere se c'è qualcosa ma una volta che vede che nn c'è niente deve ricominciare da capo finchè qualcuno non ci scrive qualcosa..
    capito?
  • I
    IceCube
    Pochi posts
    Iscritto da
    apr, 2007
    Messaggi:
    4

    Re: LETTURA FILE

    marcoamd ha scritto:

    forse non hai capito..
    non solo deve leggere il file per vedere se c'è qualcosa ma una volta che vede che nn c'è niente deve ricominciare da capo finchè qualcuno non ci scrive qualcosa..
    capito?
    ...e pensi che la testina del tuo hard-disk ti dica... "grazie" ???

    D'accordo il file sara' relativamente piccolo, e quindi la lettura sara' "bufferizzata", pero' non e' un approccio molto corretto, penso...
  • M
    marcoamd
    Pochi posts
    Iscritto da
    apr, 2007
    Messaggi:
    24

    Re: LETTURA FILE

    Non so in quale altro modo fare..
  • F
    fabriziotecnicopc
    Pochi posts
    Iscritto da
    ott, 2007
    Messaggi:
    2

    Re: LETTURA FILE

    h4xb0ss ha scritto:

    se ho capito bene, prova così:

    Open App.Path & "\prova.txt" For Input As 1
    Do
    Input #1, variabile
    Text1.Text = Text1 & variabile & vbCrLf
    Loop Until EOF(1) = True
    Close #1

    in questo modo fai un ciclo che legge fino alla fine del file
    ciao,sono iscritto da oggi: dove trovi il codice sorgente per personalizare le applicazioni. io uso visual basic 6.0 enterprise,ma nei manuali non c'è tutto il codice che si vorrebbe possedere,come si trovano certe stringhe di comando,per poter fare quasi tutto. grazie
  • T
    Ture_70
    Pochi posts
    Iscritto da
    ott, 2007
    Messaggi:
    3

    Re: LETTURA FILE

    Non so se si può fare ma prova così 
    
Dim VariabileLettura As String
    Open App.Path & "\File.txt" For Input As #1
        Input #1, VariabileLettura
If VariabileLettura = "" then (operazione da compiere)

ElseIf VariabileLettura = "Ciao" then (Operazione da compiere)
End If
End Sub
    non lo so se funziona, cmq prova e fammi sapere. ciuo
  • D
    dregas
    Pochi posts
    Iscritto da
    ott, 2007
    Messaggi:
    11

    Re: LETTURA FILE

    Puoi provare inserendo un timer che esegue un ciclo ogni determinati secondi.
    Ecco un esempio di codice:
    Private Sub Avvia_Click()
    Text1.Text = ""
    Timer1.Enabled = True
    Avvia.Enabled = False
    Ferma.Enabled = True
    End Sub

    Private Sub Ferma_Click()
    Timer1.Enabled = False
    Avvia.Enabled = True
    Ferma.Enabled = False
    End Sub

    Private Sub Timer1_Timer()
    Dim linea As String
    Open App.Path & "\file.txt" For Input As #1
    Do
    Input #1, linea
    Text1.Text = Text1 & linea & vbCrLf
    Loop Until EOF(1) = True
    Close #1
    If Text1.Text <> "" Then
    Timer1.Enabled = False
    Avvia.Enabled = True
    Ferma.Enabled = False
    End If
    End Sub
  • /
    Cancellato
    Utente cancellato

    Re: LETTURA FILE

    Ciao dregas ho visto il tuo codice e precisamente l'istruzione "Timer1.Enabled = True"

    mi sai dire che differenza c'è con Timer1.Start() ? grazie
Devi accedere o registrarti per scrivere nel forum
8 risposte