Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it L'avatar di Beziel
    Registrato dal
    Oct 2002
    Messaggi
    697

    [vb.net] problemi con lettura file di testo

    Ciao a tutti,
    avrei bisogno di leggere un file di testo linea x linea in modo da popolare una listbox, ho provato in questo modo:

    codice:
    Dim read As StreamReader
            Dim a As String
            read = File.OpenText("prova.txt")
            a = read.ReadLine()
            Do While Not a Is Nothing
                ListBox1.Items.Add(a)
            Loop

    Ma non funziona qualcuno può spiegarmi dove sbaglio per favore?


    Grazie

  2. #2
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    devi testarti l'EOF del file

    guadarti l'help degli oggetti

  3. #3
    Utente di HTML.it L'avatar di biste
    Registrato dal
    Apr 2001
    Messaggi
    877
    Scusa ma MSDN l'hai guardato? L'esempio mi sembra abbastanza chiaro...

    codice:
     Dim sr As StreamReader = New StreamReader(path)
     Do While sr.Peek() >= 0
        Console.WriteLine(sr.ReadLine())
     Loop
     sr.Close()
    UGIdotNET
    Microsoft .NET MCAD
    C++, C#, VB6, VB.NET, ASP, ASP.NET
    SQL Server 2000

  4. #4
    Utente di HTML.it L'avatar di Beziel
    Registrato dal
    Oct 2002
    Messaggi
    697
    Ci sono riuscito grazie, adesso però ho un altro problema nel file di testo ho 2 valori che ho splittato il primo corrisponde ad un campo univoco di un dataset e l'altro è il valore relativo ad un altro campo che vorrei inserire nel dataset come posso fare?


    Grazie

  5. #5
    Utente di HTML.it L'avatar di Beziel
    Registrato dal
    Oct 2002
    Messaggi
    697
    Ho provato in questo modo, ma non riesco a sincronizzare i dati mi aiutate?!?:

    codice:
    For i = 0 To dshotel.Tables("clienti").Rows.Count - 1
                Do While prova.Peek >= 0
                    a = prova.ReadLine
                    b = Split(a, "|")
                    If b(0) = dshotel.Tables("clienti").Rows(i)("codice") AndAlso b(8) <> "" Then
                        dshotel.Tables("clienti").Rows(i)("nazione") = Replace(b(8), Chr(34), "")
                    End If
                Loop
            Next

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.