leggere da file e scrivere su file un carattere o una parola alla volta

santcostagl

Nuovo Utente
6 Feb 2011
2
0
1
Salve,
dovendo operare con un file sequenziale, avrei bisogno di leggere un carattere alla volta e anche una parola alla volta.

Come si fa ?

Se scrivo un'istruzione del tipo

Input #1, var

associo alla variabile var il contenuto di un'intera riga.

Similmente, mi servirebbe sapere come poter scrivere su file un carattere o una parola alla volta.

Vi ringrazio.
 

novizio

Nuovo Utente
15 Ott 2007
20
0
1
La prima cosa da fare è caricare tutta la riga e poi estrapolare un carattere alla volta.
Provi questo codice:

Private Sub Command1_Click()
Dim TX1 As String: Dim I As Integer
TX1 = "QUESTA E' UNA PROVA!"
List1.Clear
For I = 1 To Len(TX1)
List1.AddItem Mid(TX1, I, 1)
Next
End Sub


Per estrapolare la singola parola si può usare l'istruzione Instr
Provi questo codice:

Private Sub Command1_Click()
Dim TX1 As String: Dim I As Integer
TX1 = "QUESTA E' UNA PROVA!"
List1.Clear
Qui:
I = InStr(TX1, " ")
If I Then
List1.AddItem Left(TX1, I - 1)
TX1 = Right(TX1, Len(TX1) - I)
GoTo Qui
Else
List1.AddItem TX1
End If
End Sub