| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3173 人关注过本帖
标题:[求助]字符串最大长度是?(多谢Joforn,已经解决)
只看楼主 加入收藏
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
结帖率:100%
收藏
 问题点数:0 回复次数:21 
[求助]字符串最大长度是?(多谢Joforn,已经解决)
Open "D:\pk.txt" For Output As #1
Print #1, Text1.Text
Close #1

我把1000000个字的Text1.Text写到D:\pk.txt里面
当我读取D:\pk.txt里面的内容时,却发现只能读4700个左右。多了读不了。

Open "D:\pk.txt" For Input As #1
Input #1, sTmp
Close #1

Label1.Caption=Len(sTmp)
Label1.Caption的数值是固定。 有什么办法可以全部读取到变量里面?

[此贴子已经被作者于2007-6-19 22:26:50编辑过]

搜索更多相关主题的帖子: Joforn 字符 txt 长度 
2007-06-19 11:45
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
Byte数组。

VB QQ群:47715789
2007-06-19 11:51
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
用RichTextBox

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-06-19 11:55
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
你们误会了,我能将1000000个字存进去,但是读取不了那么多, Input #1, sTmp
Len(sTmp)只能=4700多个,,,
RichTextBox ??? Byte数组 ??
能详细点?

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 11:59
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
RichTextBox  和 Text.text一样 能存进去,就是不能把100000个字赋给变量sTmp  只能赋4700多个左右

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 12:10
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
我上课去了,期待你们的答复,需要你们的帮助

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 12:12
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
DIM I as long, FileL as Long, ByteD() as byte

FileL=FreeFile
Open FileName for binary as #FileL
I=LOF(FileL)
redim ByteD(I-1)
Get #FileL,1,ByteD
Close #FileL

VB QQ群:47715789
2007-06-19 12:15
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
没中文。。。

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 12:17
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
以下是引用Joforn在2007-6-19 12:15:21的发言:
DIM I as long, FileL as Long, ByteD() as byte

FileL=FreeFile
Open FileName for binary as #FileL
I=LOF(FileL)
redim ByteD(I-1)
Get #FileL,1,ByteD
Close #FileL

Dim I As Long, FileL As Long, ByteD() As Byte

FileL = FreeFile
Open "D:\save.txt" For Binary As #FileL
I = LOF(FileL)
ReDim ByteD(I - 1)
Get #FileL, 1, ByteD
Close #FileL
不知道有什么效果??


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 12:19
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 

把整个文件读取到一个数组。


VB QQ群:47715789
2007-06-19 12:19
快速回复:[求助]字符串最大长度是?(多谢Joforn,已经解决)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024658 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved