用函數(shù)簡化你的字符串連接語句

'你是否非常討厭 用 & 一大串的連接變量？
    '你是否不得不經(jīng)常使用""與"""" ？
    '就好像這樣：
    'strFilter = strFilter & " and [" & strFldname & "] like """ & strValue & """"
    '
    'strSql ="insert into tblpubStyle (Class,Prop,Value,Type,[Set],memo,flag) values ('" & _
    ' ctl.ControlType & "','" & _
    ' prp.Name & "','" & _
    ' prp.Value & "','" & _
    ' prp.Type & "', " & _
    ' 2 & "," & _
    ' "' ', " & _
    ' false ")"
    '
    'strCnn = "Provider=sqloledb;" & _
    ' "Data Source=" & strServerName & ";" & _
    ' "Initial Catalog=" & strDbname & ";" & _
    ' "User Id=" & strUid & ";" & _
    ' "Password=" & strPwd & ";"
    '
    '用它，gCombinationString，這個十分簡單的函數(shù)，讓冗長的代碼更簡潔,增強(qiáng)語句可讀性
    '以下是它的使用典型形式：
    'strFilter = gCombinationString( "$1 and [$2] like ""$3""",strFilter,strFldname,strValue)
    'strCnn= gCombinationString("Provider=sqloledb;Data Source=$1;Initial Catalog=$2;User Id=$3;Password=$4;",_
    ' strServerName ,strDbname ,strUid, strPwd)
    '參數(shù)個數(shù)不限，參數(shù)類型不限
    ' strSql = gCombinationString("insert into tblpubStyle (Class,Prop,Value,Type,[Set],memo,flag) " & _
    ' " values ('$1','$2','$3','$4',$5,$6)", _
    ' ctl.ControlType, prp.Name, prp.Value, prp.Type, 2, False)
    '
    Const strCharPre = "$"
    Dim varItem As Variant
    Dim i As Integer
    i = 0
    For Each varItem In Para
    i = i + 1
    strText = VBA.Replace(strText, strCharPre & i, varItem)
    strText = VBA.Replace(strText, strCharPre & "\", strCharPre)
    Next
    gCombinationString = strText
    End Function