gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章adodb.stream读文件到数组的代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. Function filenum(filename,i)  
  2. Dim st,s   
  3. Set st= CreateObject("ADODB.Stream")  
  4. st.Type = 2 '流类型为文本  
  5. st.Mode = 3 '模式为读写  
  6. st.Open  
  7. st.LineSeparator=13   
  8. st.LoadFromFile filename  
  9. Do While Not St.EOS   
  10. s = Split(st.readtext(), vbCrLf)     
  11. Loop   
  12. 'MsgBox UBound(s) total  
  13. filenum=s(i)  
  14. st.Close  
  15. End function  
  16.  
  17.  
  18. MsgBox filenum("file.txt",2)  

最后此篇关于adodb.stream读文件到数组的代码的文章就讲到这里了,如果你想了解更多关于adodb.stream读文件到数组的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0