VB 6.0分割函数改进需求：提取每行首尾数字

针对VB6中提取每行第一个和最后一个数字的需求，可通过拆分每行内容为单个数字元素的方式实现，修改后的代码如下：

Private Sub Command1_Click()
    Dim Lines() As String
    Lines = Split(Text1.Text, vbNewLine)
    
    Dim a As Long
    Dim nums() As String
    For a = LBound(Lines) To UBound(Lines)
        ' 跳过空行，避免数组越界报错
        If Trim$(Lines(a)) <> "" Then
            ' 将当前行按空格拆分为独立数字数组
            nums = Split(Lines(a), " ")
            ' 拼接第一个和最后一个数字
            Lines(a) = nums(LBound(nums)) & " " & nums(UBound(nums))
        End If
    Next
    
    Text2.Text = Join(Lines, vbNewLine)
End Sub

关键逻辑说明： #

• 用Split(Lines(a), " ")将每行内容按空格拆分，不管每行包含多少个空格分隔的数字，都能精准提取每个数字元素；
• 借助LBound(nums)获取数组首个元素（即第一个数字），UBound(nums)获取数组末尾元素（即最后一个数字），再用空格拼接成目标格式；
• 增加空行判断Trim$(Lines(a)) <> ""，避免处理空行时触发数组越界错误。

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