用函数简化你的字符串连接语句

你讨厌使用&一堆连接变量吗？
'你一定要经常用""和" "吗？
'是这样的:
' strfilter = strfilter & "和[" & str fld name & "]like " " & strvalue & " " "
'
' strSql = " insert into TBL substyle(Class，Prop，value，Type，[Set]，memo，flag)values(" " & _
' CTL。ControlType & " '，' " & _
' prp。Name & " '，' " & _
' prp。值& " '，' " & _
' prp。Type & " '，" & _
' 2 & "，" & _
' " ' '，" & _
' false ")"
'
' str CNN = " Provider = SQL oledb；"& _
' "数据源= " & strServerName &"& _
' "初始目录= " & strDbname &"& _
' "用户Id = " & strUid &"& _
' " Password = " & strPwd & "；"
'
'使用它，gCombinationString，一个非常简单的函数，让冗长的代码更加简洁，增强语句的可读性
'下面是其使用的典型形式:
' strfilter = gco CNN(" $ 1和[] like" " " "、str filter，strfldname，str value)
' str CNN = gcc cn。数据源= $ 1；初始目录= $ 2；用户Id = $ 3；密码= $ 4；"，_
' strservername，strdbname，struid，strpwd)
'参数个数不限，参数类型不限
' strsql = g组合字符串(" insert into TBL substyle(class，prop，Value，Type，[Set]，memo，flag) " & _
' " values (' '，' '，' '，' '，，)"，_ [/br/"控制类型。姓名，prp。值，prp。Type，2，False)
'

const strCharPre = " $ "
Dim varItem As Variant
Dim I As Integer

对于Para
I = I+1
strText = VBA中的每个变量，I = 0
。Replace(strText，strCharPre & i，varItem)
strText = VBA。Replace(strText，strCharPre & "\ "，strCharPre)
Next
gCombinationString = strText
End Function