Private Sub Opt数据输入_Click()
On Error GoTo ErrorHandler


    If Opt数据输入 = True Then
    
        Dim prompt As String
        Dim title As String
        Dim default As String
        Dim strInput As String
        
        prompt = prompt & "函数： InputBox()        数据库" & Chr(13) & Chr(10)
        prompt = prompt & "函数： funOneSpace()  自定义" & Chr(13) & Chr(10)
        prompt = prompt & "输入： 文本 数字 标点 符号" & Chr(13) & Chr(10)
        prompt = prompt & "功能： 多空格替换为单空格"
        title = "数据输入"
        default = "     序号 编号  名称   年代    级别     件套   12345    ，。、；    @#￥%  end   "
        
        strInput = InputBox(prompt, title, default)
        
        txt数据原始 = strInput
        
        strInput = funOneSpace(strInput)     '调用 自定义函数 funOneSpace 多空格替换为单空格
        
        txt数据结果 = strInput
        
    Else
        txt数据原始 = Null
        txt数据结果 = Null
    End If
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Error No：" & Err.Number & "    Description：" & Err.Description
    Resume ErrorHandlerExit
End Sub


Private Function funOneSpace(strString As String) As String


        Rem 自定义函数 funOneSpace 多空格替换为单空格
        
    Dim strA As String, strB As String, I As Long
    
        strString = Trim(strString)
        
    For I = 1 To Len(strString) - 1
    
        strA = Mid(strString, I, 1)
        strB = Mid(strString, I + 1, 1)
        
        If strA = " " And strB = " " Then
            strString = Replace(strString, "  ", " ")    '双空格替换为单空格
        End If
        
    Next I
    
        funOneSpace = strString
        
End Function

附   件:

点击下载此附件

图   示: