银汉帐号个人登录中心:有什么好的办法给打字软件加载文本。

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/14 03:34:34
我在用VB做打字软件。遇到加载文本的问题。
如果第一个回答的是richardbao2000,那拜托多关注一下!!!!!

dim i as long
dim s() as byte
dim sr as string'pathname为文件路径
open pathname for binary as #1
i=filelen(pathname)
redim s(i-1) as byte
get #1,1,s
close #1
sr=string(s,unicode)
'sr 为所求
'手上没编译器 不知道有多少个错误 回去试试看哈,不明白地方再找我