Visual Basic 6.0实现Tab分隔内容批量粘贴至多个文本框

功能说明 #

实现将剪贴板中Tab分隔的多行文本批量粘贴到窗体的多个TextBox控件：每行的两个Tab分隔内容依次对应连续的两个TextBox（如第一行编号→Text1、姓名→Text2，第二行编号→Text3、姓名→Text4，以此类推）。

实现代码 #

在VB6窗体中添加一个CommandButton（命名为cmdPaste），然后在窗体的代码窗口中粘贴以下代码：

Option Explicit

Private Sub cmdPaste_Click()
    Dim clipboardText As String
    Dim lines() As String
    Dim lineItems() As String
    Dim i As Integer, txtBoxIndex As Integer
    
    ' 读取剪贴板内容
    clipboardText = Clipboard.GetText(vbCFText)
    If clipboardText = "" Then
        MsgBox "剪贴板中没有文本内容！", vbExclamation
        Exit Sub
    End If
    
    ' 按换行分割成多行
    lines = Split(clipboardText, vbCrLf)
    txtBoxIndex = 1 ' 从第一个TextBox开始
    
    For i = LBound(lines) To UBound(lines)
        ' 跳过空行
        If Trim(lines(i)) <> "" Then
            ' 按Tab分割当前行的两个内容
            lineItems = Split(lines(i), vbTab)
            If UBound(lineItems) >= 1 Then ' 确保每行至少有两个Tab分隔项
                ' 找到对应编号的TextBox并赋值
                If Me.Controls("Text" & txtBoxIndex) Is Nothing Then
                    MsgBox "缺少编号为Text" & txtBoxIndex & "的控件！", vbCritical
                    Exit Sub
                End If
                Me.Controls("Text" & txtBoxIndex).Text = Trim(lineItems(0))
                
                txtBoxIndex = txtBoxIndex + 1
                If Me.Controls("Text" & txtBoxIndex) Is Nothing Then
                    MsgBox "缺少编号为Text" & txtBoxIndex & "的控件！", vbCritical
                    Exit Sub
                End If
                Me.Controls("Text" & txtBoxIndex).Text = Trim(lineItems(1))
                
                txtBoxIndex = txtBoxIndex + 1
            End If
        End If
    Next i
    
    MsgBox "粘贴完成！", vbInformation
End Sub

代码说明 #

• 读取剪贴板：使用Clipboard.GetText获取剪贴板中的文本内容，先判断是否为空。
• 分割文本：用Split函数先按换行符vbCrLf分割成多行，再对每行按vbTab分割成两个内容项。
• 控件赋值：通过控件名称的编号（Text1、Text2...）依次定位TextBox，将分割后的内容赋值给对应控件，同时检查控件是否存在避免报错。
• 空行处理：自动跳过剪贴板中的空行，避免无效赋值。

示例验证 #

示例输入（剪贴板中的内容）

09-8765432-1	Lord Voldemort
09-8765432-2	Harry Potter
09-8765432-3	Hermione Granger
09-8765432-4	Ron Weasley
09-8765432-5	Albus Dumbledore

（注：上述内容中 代表Tab字符）

预期输出

Text1: 09-8765432-1        Text2: Lord Voldemort
Text3: 09-8765432-2        Text4: Harry Potter
Text5: 09-8765432-3        Text6: Hermione Granger
Text7: 09-8765432-4        Text8: Ron Weasley
Text9: 09-8765432-5        Text10: Albus Dumbledore

内容的提问来源于stack exchange，提问作者K-Earth Customer Service