如何将字符串拆分为三部分？VB代码问题及长度异常疑问

首先，咱们先拆解你代码里的问题，以及为什么会出现你说的11和30长度的结果：

1. 变量名拼写错误 #

你定义了length2，但在MsgBox里写的是lenght2（少了一个t）；同样length3写成了lenght3。这个错误会导致VB把lenght2/lenght3当成全新的未赋值变量，值为空字符串——不过如果你的实际运行结果是看到11和30的长度，可能是输入时的笔误，但这个拼写错误一定要修正，否则后续逻辑会出问题。

2. Mid$函数的参数误解（核心原因） #

VB的Mid$函数语法是：Mid$(字符串, 起始位置[, 截取长度])。第三个参数是你想要截取的最大字符数，而不是结束位置。如果从起始位置开始，原字符串剩下的字符数小于你指定的截取长度，Mid$只会返回剩下的所有字符，不会补空。

举个例子，如果你的Text1.Text总长度是41：

• length1 = Mid$(Text1.Text,1,30)：从第1位取30个字符，刚好取满，所以length1长度是30；
• length2 = Mid$(Text1.Text,31,70)：从第31位开始，原字符串剩下41-30=11个字符，哪怕你指定要取70个，也只能取到这11个，所以length2长度是11；
• length3 = Mid$(Text1.Text,71,100)：从第71位开始，但原字符串只有41位，没有字符可取，所以length3是空字符串，长度为0。

这就是你看到11和30长度结果的直接原因。

修复后的代码示例 #

Dim length1 As String
Dim length2 As String
Dim length3 As String ' 修正拼写错误

length1 = Mid$(Text1.Text, 1, 30)
length2 = Mid$(Text1.Text, 31, 70)
length3 = Mid$(Text1.Text, 71, 100)

MsgBox "length1长度：" & Len(length1) & vbCrLf & "内容：" & length1
MsgBox "length2长度：" & Len(length2) & vbCrLf & "内容：" & length2
MsgBox "length3长度：" & Len(length3) & vbCrLf & "内容：" & length3

如果你的需求是把字符串按固定分割点拆成三部分（比如前30位、31-100位、101位及以后），可以用Len函数判断长度，避免截取越界：

Dim originalText As String
originalText = Text1.Text

Dim length1 As String
Dim length2 As String
Dim length3 As String

' 第一部分：前30位
length1 = Mid$(originalText, 1, 30)

' 第二部分：31到100位，不足则取到末尾
If Len(originalText) >= 100 Then
    length2 = Mid$(originalText, 31, 70)
Else
    length2 = Mid$(originalText, 31) ' 省略第三个参数，取到末尾
End If

' 第三部分：101位及以后，不足则为空
If Len(originalText) >= 101 Then
    length3 = Mid$(originalText, 101)
Else
    length3 = ""
End If

MsgBox "length1：" & length1 & vbCrLf & "长度：" & Len(length1)
MsgBox "length2：" & length2 & vbCrLf & "长度：" & Len(length2)
MsgBox "length3：" & length3 & vbCrLf & "长度：" & Len(length3)

这样就能更精准地控制拆分逻辑，避免因原字符串长度不足导致的意外结果。

内容的提问来源于stack exchange，提问作者saif