open "c:\file001.txt" for output as #1
print #1,text1.text
close #1或者
open "c:\file001.txt" for output as #1
for i=1 to len(text1.text)
print #1,mid$(text1.text,i,1)
next i
close #1这样可以了吧:-)岂能尽如人意,但求无愧我心,很高兴认识大家!
QQ:341157
E-mail:[email protected]
print #1,text1.text
close #1或者
open "c:\file001.txt" for output as #1
for i=1 to len(text1.text)
print #1,mid$(text1.text,i,1)
next i
close #1这样可以了吧:-)岂能尽如人意,但求无愧我心,很高兴认识大家!
QQ:341157
E-mail:[email protected]
print #1,text1.text
close #1