adodb.stream读文件到数组的代码
来源:易贤网 阅读:1229 次 日期:2016-07-21 14:24:45
温馨提示:易贤网小编为您整理了“adodb.stream读文件到数组的代码”,方便广大网友查阅!

用adodb.stream读取文件并保存为数组的实现代码

Function filenum(filename,i)

Dim st,s

Set st= CreateObject("ADODB.Stream")

st.Type = 2 '流类型为文本

st.Mode = 3 '模式为读写

st.Open

st.LineSeparator=13

st.LoadFromFile filename

Do While Not St.EOS

s = Split(st.readtext(), vbCrLf)

Loop

'MsgBox UBound(s) total

filenum=s(i)

st.Close

End function

MsgBox filenum("file.txt",2)

更多信息请查看脚本栏目
下一篇:vbs的sort排序
易贤网手机网站地址:adodb.stream读文件到数组的代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 云南省教育厅备案号:云教ICP备0901021 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标