17/01/10 22:44
nessuno
Leggi i dati riga per riga e separali con la Split.
Poi confronta i dati ottenuti con quelli che hai ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
18/01/10 14:09
devi isolare ogni dato con la funzione split (che restituisce un array) e poi li confronti, non so se cè una funzione che lo fa...però con un ciclo non è difficile
18/01/10 19:08
balto
Dim Line As String
Dim Words As New List(Of String)
'Sostituisci il percorso esatto
Dim FileName As String = "C:\Users\Valerio\Desktop\Testo.txt"
Dim strReader As StreamReader
'Apri il file di testo
strReader = File.OpenText(FileName)
'La variabile Line diventa la prima riga di testo
Line = strReader.ReadLine()
'E con un ciclo diventa ogni riga
'Per ogni riga, divido la variabile Line per il carattere "spazio"
'E aggiungo ogni parola ad una lista, che conterrà quindi tutte le parole
Do While (Not Line Is Nothing)
Words.AddRange(Line.Split(New Char() {" "}).ToList())
Line = strReader.ReadLine()
Loop
strReader.Close()
'Inizializzi un array (modifica la lunghezza a tuo piacimento
'E inserisci tutti i valori nell'array altrimenti non avrai alcun risultato
Dim strArray(10) As String
'Inizi un ciclo in un ciclo(uno che si ripete per tutti gli elementi dell'array
'E uno che si ripete per tutte le parole della lista)
For Each Word As String In Words
For i As Integer = 0 To strArray.Length - 1 Step 1
If Word.Equals(strArray(i)) Then
MsgBox("La parola " & Word & " è presente sia nel file di testo che nell'array.")
End If
Next
Next
Ultima modifica effettuata da balto 18/01/10 19:11
aaa