C# / VB.NET - lettura random da file di testo

Forum - C# / VB.NET - lettura random da file di testo

adelaide12 (Normal User)
Newbie

Messaggi: 4
Iscritto: 13/05/2011

Postato alle 10:52
Domenica, 15/05/2011

Ciao, ho un problema con il mio codice:

Dim r As New Random
        Dim Testolineef() As String
        Dim Testolineed() As String

        Testolineef = System.IO.File.ReadAllLines("D:\ADE's WORKS\elementi di informatica\Impiccato\parole1.txt")
        Testolineed = System.IO.File.ReadAllLines("D:\ADE's WORKS\elementi di informatica\Impiccato\parole2.txt")

        Dim parolasegretaF As New List(Of String)(Testolineef)
        Dim parolasegretaD As New List(Of String)(Testolineed)

        If Labeldi.Text = "facile" Then               'scelta a caso di stringa nel file a seconda della difficoltà
            m = r.Next(parolasegretaF.Count)
            x = parolasegretaF(n)
        ElseIf Labeldi.Text = "difficile" Then
            m = r.Next(parolasegretaD.Count)
            x = parolasegretaD(n)
        End If

Quando apro il programma la prima parola è ogni volta sempre la stessa, cioè quella posizionata alla prima riga del file di testo, come faccio a fare in modo che ogni volta sia diversa anche quando apro il programma per la prima volta? risp

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 12:05
Domenica, 15/05/2011

Può dipendere dal fatto che usi n come indice delle liste, mentre assegni il valore casuale a m?

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 11:44
Domenica, 15/05/2011

Metti il codice nei tag Code o non si capisce na mazz..

Codice sorgente - presumibilmente C# / VB.NET

'Esempio di codice nei Tag Code
'Dim A As String

Comunque, ti consiglio prima di leggere tutte le righe, salvarle in un array e usare il random da questo Array (e non List) che direttamente da File

Tra le dichiarazioni

Codice sorgente - presumibilmente VB.NET

'Tra le dichiarazioni
Dim RandomText(1000) As String
Dim ReadedString As String

Quando deve essere letto il file

Codice sorgente - presumibilmente VB.NET

Dim r As New IO.StreamReader("locazione.txt")
        Dim count As Integer
        While Not r.EndOfStream
            'Leggi la riga successiva finché non finiscono
            RandomText(count) = r.ReadLine
            'RandomText(count) = riga letta
            count += 1
        End While
        'Ridimensiona l'Array (per risparmiare memoria) al massimo
        'numero di frasi ogni riga nel File di testo, es.50 righe =
        'RandomText(49) [RandomText(0) è utilizzato]
        ReDim Preserve RandomText(count - 1)
        'NOTA: Il ReDim effettuato senza Preserve cancellerà tutto
        'il contenuto dell'array
        Dim Rand As New Random
        ReadedString = RandomText(Rand.Next(0, count))
        'ReadedString conterrà la riga letta a caso

Ultima modifica effettuata da R0gerBlack il 15/05/2011 alle 12:02

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 12:06
Domenica, 15/05/2011

Ti ho scritto un codice alternativo (più ottimizzato e funzionante) testato per avere il valore della riga a caso, per leggere da due file una riga a caso basta semplicemente che svolgi di nuovo il procedimento con un altra directory (o che usi un altro StreamReader) e un altro array

Più ottimizzato? RandomText(1000) in effetti è davvero un'ottimizzazione... - Il Totem - 15/05/11 12:09

ho usato il valore 1000 come numero massimo di domande, ma se vedi poi ho redimensionato l'Array con il ReDim Preserve - R0gerBlack - 15/05/11 12:13

adelaide12 (Normal User)
Newbie

Messaggi: 4
Iscritto: 13/05/2011

Postato alle 12:03
Domenica, 15/05/2011

Scusami, adesso lo inserisco nel tag.
Il codice è il seguente:

Codice sorgente - presumibilmente VB.NET

Dim r As New Random
        r = New Random
        Dim Testolineef() As String
        Dim Testolineed() As String
 
        Testolineef = System.IO.File.ReadAllLines("D:\ADE's WORKS\elementi di informatica\Impiccato\parole1.txt")
        Testolineed = System.IO.File.ReadAllLines("D:\ADE's WORKS\elementi di informatica\Impiccato\parole2.txt")
 
 
        Dim parolasegretaF As New List(Of String)(Testolineef)
        Dim parolasegretaD As New List(Of String)(Testolineed)
 
 
        If Labeldi.Text = "facile" Then               'scelta a caso di stringa nel file a seconda della difficoltà
            m = r.Next((parolasegretaF.Count) + 1)
            x = parolasegretaF(n)
        ElseIf Labeldi.Text = "difficile" Then
            m = r.Next((parolasegretaD.Count) + 1)
            x = parolasegretaD(n)
        End If

adelaide12 (Normal User)
Newbie

Messaggi: 4
Iscritto: 13/05/2011

Postato alle 12:11
Domenica, 15/05/2011

Totem sei un mito!!

Scusate ma come faccio a fare in modo che mi legga le righe del file, fino a dove finisce...in modo che non mi inserisca nella mia lista di stringhe alcuen stringhe vuote?

Ultima modifica effettuata da adelaide12 il 19/05/2011 alle 9:23

Se magari evitassi di ignorare i miei post l'avresti capito. Se vedi il codice che ho postato, noterai che legge il testo riga per riga finché non FINISCONO e ogni riga viene inserita in un Array, tu invece leggi le righe tutte insieme e le metti in una lista - R0gerBlack - 15/05/11 15:25

While Not r.EndOfStream - Ultimo - 16/05/11 20:07

Grazie del tuo aiuto Roger!! adesso ho capito - adelaide12 - 19/05/11 09:18

Aspetta nell'esempio di codice che mi hai dato s'è randomtext? come l'hai dichiaratozie - adelaide12 - 19/05/11 09:25

Come hai dichiarato RandomText ? - adelaide12 - 19/05/11 09:30

Che valore iniziale gli attribuisci? - adelaide12 - 19/05/11 09:46