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

[santcostagl]

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]

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