 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'你是否异常讨厌 用 & 一大串的连接变量？ \\\'你是否不得不常常使用""与"""" ？ \\\'就似乎这样： \\\'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，这个十分简朴的函数，让冗长的代码更简洁,增强语句可读性 \\\'以下是它的使用典型形式： \\\'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) \\\'参数个数不限，参数类型不限 \\\' 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 返回类别: 教程 上一教程: ACTIVEX深入浅出(二) 下一教程: 挂QQ的网页源代码[ASP/PHP/JS] 您可以阅读与"用函数简化你的字符串连接语句"相关的教程: · 一个检测一个字符串在另一个字符串当中出现几次的函数 · ASP中字符串函数的应用 · ADO连接数据库字符串大全 · 使用SPLIT分割多字符的字符串的方式 · 一套加解密字符串的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
