问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB读取文件的问题

发布网友 发布时间:2023-12-21 06:46

我来回答

3个回答

热心网友 时间:2024-01-17 07:00

进度条到一半就停了,这个一点也不奇怪,filelen是文件的字节总数,一个汉字是两个字节,而处理时用len,是统计的字符个数,一个汉字就是一个字符,所以要改用LenB来统计字节个数

文本框里,结果显示不全,文本框能处理的最大长度为65535个字符(粘贴进去的除外),读入的文本长度比这个长,肯定会显示不全的,这个要显示全,自己酌情添加文本框吧

Public Sub readfile(ByVal FileLocation As String)
With ProgressBar1
.Max = FileLen(FileLocation)
.Min = 0
.Value = 0
End With
Dim InputStr As String, WholeFile As String
Open FileLocation For Input As #1
Do While Not EOF(1)
Line Input #1, InputStr
DoEvents
WholeFile = WholeFile & InputStr & vbCrLf
ProgressBar1.Value = LenB(StrConv(WholeFile, vbFromUnicode))
Loop
Close #1
Text1 = WholeFile
End Sub

Private Sub Command1_Click()
readfile "d:\小说.txt"
MsgBox "OK!"
End Sub

热心网友 时间:2024-01-17 07:01

Private Sub Command1_Click()
readfile "z:\1.txt"
End Sub

Public Sub readfile(ByVal FileLocation As String)
ProgressBar1.Max = FileLen(FileLocation)
Dim InputStr As String, WholeFile As String
Open FileLocation For Input As #1
Do While Not EOF(1)
Line Input #1, InputStr
WholeFile = WholeFile & InputStr & vbCrLf
ProgressBar1.Value = ProgressBar1.Value + Len(InputStr)
Loop
Close #1
Text1.Text = WholeFile
End Sub

热心网友 时间:2024-01-17 07:01

filelen测试的是字节数
len测试的是字符数,两者在有中文的情况下是不等的~~
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
老师侮辱学生是否犯法 开启河南航拍新篇章 河南省航拍协会第一次会员代表大会召开 我想问下poscer m-3032款型手表售价是多少??? wp6m是啥意思 看图软件哪个好哪个看图软件好 5款强大到离谱电脑软件,都是效率神器!从此远离加班 在武汉买一套房大概要多少钱 武汉华润翡翠城的优缺点 k12教育为什么会被整顿 国家为什么要叫停K12教育? 手机号重新注册了一个,原来的咋找回来?? 专升本没有学位证的补救办法是什么? 据说印度不能完成工业化,是因为英国给它们埋下了两个雷,究竟是何?_百 ... 填同音词Mr ( )is wearing a ( ) jacket today. vb 使用open for binary保存长整形数据的读取问题? 有关汉字的发明 故事 声调的用法 双胞胎顶替身份的电视剧 同一个手机怎样从一个转移聊天记录到另一个上?10 华为自动拆卸平台熔断器装在哪里 vivox27后置摄像头玻璃碎了 修改一年内如何二次修改吗苹果 如何把上的好友同步到另一个30 if到底是不是纯天然椰子水 hot是什么意思中文翻译112 一三五七八十腊,三十一天永不差,后面的是什么3220 烽火芳菲的故事原型 冬奥和夏奥级别一样吗 狗狗走丢被消防队拉走了能找回来吗 四会市美食推荐 怎么一年内修改两次怎样才能一年修改两次? 舅舅可以在外甥家过年吗 城东工业园区属于哪个区 怎么查自己身份证绑了多少个 关于年月日的知识是什么? 美国14岁可以谈恋爱吗 想知道一些关于销售的话题 、希望可以得到一些帮助 谢谢! 如何学会放手4 梦见拉肚子流血的预兆 怎么把一个的数据转到另一个的数据?22 二战时同盟国研制出航空自导鱼雷后应用到战场上效果怎样? 王者荣耀绑定的可以更换吗? 长城车没有智能钥匙怎么启动? 为什么今日头条打不开了 Son Of Man (Shout To The Lord Album Version) 歌词 cba篮板球排行榜 一年内第二次修改技巧 一年内第二次修改技巧 烽火芳菲妞妞的原型 第一次做飞机到法国转机最后到意大利转机的流程 到法国出海关还要在签...