[求助]字符串最大长度是？(多谢Joforn,已经解决) - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]字符串最大长度是？(多谢Joforn,已经解决)

标题：[求助]字符串最大长度是？(多谢Joforn,已经解决)

只看楼主

b13690976754

等　级：新手上路
威　望：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

等　级：贵宾
威　望：23
帖　子：1242
专家分：122
注　册：2007-1-2

第 2 楼

得分:0

Byte数组。

VB QQ群：47715789

2007-06-19 11:51

ioriliao

来　自：广东
等　级：贵宾
威　望：32
帖　子：2829
专家分：647
注　册：2006-11-30

第 3 楼

得分:0

用RichTextBox

/images/2011/147787/2011051411021524.jpg" border="0" />

2007-06-19 11:55

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 4 楼

得分: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

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 5 楼

得分:0

RichTextBox 和 Text.text一样能存进去，就是不能把100000个字赋给变量sTmp 只能赋4700多个左右

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-19 12:10

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 6 楼

得分:0

我上课去了，期待你们的答复，需要你们的帮助

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-19 12:12

Joforn

等　级：贵宾
威　望：23
帖　子：1242
专家分：122
注　册：2007-1-2

第 7 楼

得分: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

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 8 楼

得分:0

没中文。。。

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-19 12:17

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 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
不知道有什么效果？？