23/01/10 16:42
Alfonso
Open "d:\prova.txt" For Output As #1
Write #1, "Mario"
Close #1
Dim s As String
Open "d:\prova.txt" For Input As #1
Line Input #1, s
Close #1
MsgBox s
Ultima modifica effettuata da Alfonso 23/01/10 16:47
aaa
23/01/10 20:08
GrG
Postato originariamente da Alfonso:
Open "d:\prova.txt" For Output As #1
Write #1, "Mario"
Close #1
Dim s As String
Open "d:\prova.txt" For Input As #1
Line Input #1, s
Close #1
MsgBox s
la write, però, è limitata alla Open, quindi è bene che tu conosca che puoi usare anche:
'la funzione chr() per convertire il decimale 34 in ascii cioè: "
Open "d:\prova.txt" For Output As #1
Print #1, chr(34) & "Mario" & chr(34)
Close #1
oppure:
' basta usare doppie virgolette
Open "d:\prova.txt" For Output As #1
Print #1,""Mario""
Close #1
Ultima modifica effettuata da GrG 23/01/10 20:09
aaa