只要写成顺序文件就行了。
如果你表示歌曲名的变量为mySong()
保存时如下:
open app.path+"\mylist.lst" for output as #1 '后缀名随便取
dim i as integer
for i =lbound(mysong) to ubound(mysong)
print #1,mysong(i)
next
close #1
读取时:
open app.path+"\mylist.lst" for input as #1
dim i as integer
do until eof(1)
redim preserve mysong(i)
i = i + 1
input #1, mysong(i)
loop
close #1
如果你表示歌曲名的变量为mySong()
保存时如下:
open app.path+"\mylist.lst" for output as #1 '后缀名随便取
dim i as integer
for i =lbound(mysong) to ubound(mysong)
print #1,mysong(i)
next
close #1
读取时:
open app.path+"\mylist.lst" for input as #1
dim i as integer
do until eof(1)
redim preserve mysong(i)
i = i + 1
input #1, mysong(i)
loop
close #1
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货