急救:VB读取文本文件的内容

只看楼主
收藏
回复

chenwei6855401
啥也不懂
1

CommonDialog1.Filter="所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
    i=0
    Do While Not EOF(1)
    i=i+1
    input #1 ,数组元素列表……
    ……
   Loop
Close #1

省略号后面应该怎么编程...谢谢指导!!!!

lionking1990
网络通信
11

my blog

244326867
暴力枚举
8

dim l() AS BYTE
open 文件路径 for binary as #1
redim l(lof(1)-1)
get #1,,l
close #1
text1.text=strconv(l,vbunicode)
随便打的错误也不知道有没有

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

2回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六