Stream=WriteFile("test.txt")
For i%= 65 To 70
TextLine$ = TextLine + i +";"
Next
WriteLine Stream,TextLine
WriteLine Stream,"Hello World"
WriteLine Stream,TextLine
CloseFile Stream
Graphics 800,600,0,2 Stream=ReadFile("test.txt")
TextLine=ReadLine(Stream)
Print "textline=" + Textline
From%=1
For i%=1 To 12
Upto%=Instr(TextLine,";",From)
If Upto=0 Then Exit
Part%=Mid(TextLine,From,Upto-From)
Print Part
From=Upto+1
Next
CloseFile Stream
WaitKey
End

这个谭浩强的书里有的！