排行榜问题 vb

1.Open strpath For Input As #1

Do While Not EOF(1)

Input #1, nameR, scoreR '分别读取这一行中上次写入时用逗号隔开的信息

Debug.Print nameR, scoreR Loop

loop

debug.print 对调试很有用 相当于print

input模式，表示读取output为写入模式

可以整行读取 也可以按分隔符读入，第二种很适合排行榜问题，但需要注意写入的时候加入规定的分隔符

 

2.读取txt时，使用split将其按分割符号分割   

Open strpath For Binary As #1
        fileContents = Space(LOF(filenum))
        Get #1, , fileContents
    Close #1
    fileInfo = Split(fileContents, vbCrLf)

 

LOF返回返回一个 long，表示用 Open 语句打开的文件的大小，该大小以字节为单位

space 返回特定数目空格的 Variant (String )

split使用回车为分隔符，将字符串保存为数组形式，join使其反函数

 

3.排行榜很失败，注意看书里的思想。