VB6字符数组如何高效处理？

本文共计407个文字，预计阅读时间需要2分钟。

考略：在Visual Basic 6.0中执行类似的操作，你可以这样做：

在VB6中，你可以使用以下代码来实现类似的功能：

vbDim charArray() As StringcharArray=Split(txt1.Text, )

这段代码将文本框`txt1.Text`的内容按照空格分割成字符串数组`charArray`。这里没有使用数组的下标，因为VB6中的数组是变长数组，所以你可以直接使用`charArray`来访问数组中的每个元素。例如，如果你想访问第一个字符，你可以直接使用`charArray(0)`。

考虑：

char [] chararray = txt1.Text;

我们如何在Visual Basic 6.0中执行相同的操作？

这取决于你最终想做什么.

例如,您可以在VB6中执行此操作：

Dim b() As Byte b = Text1.Text

这样,b数组将被调整大小以保存来自“string”的Unicode数据 – 但是然后每个字符将被分割为两个字节,这可能不是你想要的.这个技巧只适用于Byte.

你也可以这样做：

Dim b() As Byte b = StrConv(Text1.Text, vbFromUnicode)

每个字母现在占用一个字节,但扩展字符将消失.仅当当前系统代码页包含所需字符时才执行此操作.

您可以手动将字符复制到数组：

Dim s() As String, i As Long ReDim s(1 To Len(Text1.Text)) For i = 1 To UBound(s) s(i) = Mid$(Text1.Text, i, 1) Next

或者你甚至可以避免创建一个数组,因为Mid也可以作为一个索引器操作符来改变一个字符,而无需复制或分配任何东西：

Dim s As String s = Text1.Text Mid$(s, 3, 1) = "!"