Sto creando un programma che, prendendo un file .csv (un dizionario con le parole italiane) scarti tutte le parole con meno di 6 lettere per poi utilizzarlo un il gioco dell'impiccato.
quindi sto utiizzando un textfieldparser per poter esaminare parola per parola.
ecco qua ilcodice che ho utilizzato:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dizionario As String = percorso file
Dim riga1() As String
Dim riga2() As String
Dim k As Integer
Dim a As Integer
Dim s As String
Using parser As New TextFieldParser(dizionario)
parser.SetDelimiters(",")
k = 1
While Not parser.EndOfData
riga1 = parser.ReadFields()
If Len(riga1) > 6 Then
My.Computer.FileSystem.WriteAllText(nuovofile, riga1, True)
End If
End While
End Using
End Sub
il codice l'ho buttato giù di primo pugno. la logica dovrebbe essere corretta, ma l'errore che mi da è che
If Len(riga1) > 6 Then
è errato in quanto i tipi non sono compatibili (dello stesso tipo )
Se mi sapeste dire come rimediare, oppure mi consigliaste un codice equivalente che mi decurti il dizionario delle parole più corte di 6\7 caratteri, ve ne sarei molto grato!
Grazie mille