• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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)
    您可能感兴趣的文章:
    • JScript中使用ADODB.Stream判断文件编码的代码
    • 利用MSXML2.XmlHttp和Adodb.Stream采集图片
    • 使用asp下的adodb.stream 下载文件而不是打开
    • asp下用ADODB.Stream代替FSO读取文本文件
    • asp adodb.stream对象的方法/属性
    • ADODB.Stream组件Charset属性值集合
    • 用ADODB.Stream转换
    • exe2swf 工具(Adodb.Stream版)
    • windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题
    上一篇:VBS sendkeys 模拟击键操作 问题解决
    下一篇:利用sql语句复制一条或多条记录
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    adodb.stream读文件到数组的代码 adodb.stream,读,文件,到,数组,