| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3173 人关注过本帖
标题:[求助]字符串最大长度是?(多谢Joforn,已经解决)
取消只看楼主 加入收藏
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
结帖率:100%
收藏
 问题点数:0 回复次数:9 
[求助]字符串最大长度是?(多谢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
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
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
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
Joforn 来个简单点吧 ,我只想把 D:\save.txt的所有内容赋给变量sTmp  

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 12:20
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:22
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 

字符串有两种:变长与定长的字符串。

变长字符串最多可包含大约 20 亿 ( 2^31)个字符。
为什么我的只到了4000多个中文就满了,之后的就赋值不下了。。。


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 21:47
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 

就是这个问题。。解决了~
呵呵。,到头来,,原来我没表达清楚。。

Open "D:\pk.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, p
sTmp = sTmp & p & vbCrLf
Loop
Close #1

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 22:25
快速回复:[求助]字符串最大长度是?(多谢Joforn,已经解决)
数据加载中...
 
   



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

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