用函數簡化你的字符串連接語句

你討厭使用&一堆連接變量嗎？
'你一定要經常用""和""嗎？
'是這樣的:
' 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

位律師廻複