重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1)VB6.0中关于String数据类型的说明如下:
专注于为中小企业提供成都网站建设、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业行唐免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了千余家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
字符串有两种:变长与定长的字符串。
*变长字符串最多可包含大约 20 亿 ( 2^31)个字符。
*定长字符串可包含 1 到大约 64K ( 2^16 ) 个字符。
2)VB读入大容量文本文件到富文本框,采取用二进制方法一次读入全部字节,再用StrConv函数根据系统的缺省码页将字符串转成 Unicode,显示与富文本框控件。
3)即使是逐行读入也应该先读到变量,再用可显示控件显示,不然读取速度大大降低。
StrConv 函数,返回按指定类型转换的 Variant (String)。
实现代码如下:
Private Sub Command16_Click()
Dim strWj As String
Dim strj() As String
Dim aryContent() As Byte
Dim i As Long
Dim j As Long
CommonDialog1.CancelError = True ' 设置“CancelError”为 True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置标志
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2 ' 指定缺省的过滤器
CommonDialog1.ShowOpen ' 显示“打开”对话框
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
strWj = StrConv(aryContent, vbUnicode)
RichTextBox1 = strWj
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
理论上最大可以存放4.6116860184274 * 10的18次平方
组要还是看你的计算处理能力.以32位操作系统的计算机来说这个是无限了.64位的话,还要看你的内存.和计算机的处理能力.估计8核处理这样的数组也基本卡死.
Dim 数组名(下标) [As 类型]
说明:(1)下标必须为常数,不可以为表达式或变量;
(2)下标下界最小为-32768,最大上界为32767;省略下界,其默认值为为0,一维数组的大小为:上界-下界+1
(3) 如果省略类型,则为变体型
因为下标从零开始。
shuzu 元素分别是 shuzu(0)、shuzu(1)、shuzu(2)、shuzu(3)。
你自己数一数有几个。