在?????^上有杂多咀友??到按怎??理腽引??的??铨, ?R有咀友??到由儋料?熳コ??淼馁Y料?o法?嘈械???铨, 其??在 VBscript 有一支 Replace 函?悼梢????椭?咱????理呃款??铨, 所以今日的文章就要?碛???用 Replace ?硖尜Y料做造型

Replace 函?导br>
一檫始??是?砜纯? Replace 的遮法

Replace(搜?ぷ执?, 字串甲, 字串乙[, 檫始位置][, ???递[, 比蒉方式]]]))

意思是呃?拥暮 由 搜?ぷ执? 的 檫始位置 找起, 找出字串甲, ?K?⑺?置?Q成 字串乙, ??共要做 ???? 次
比蒉方式可以是下底的值

vbBinaryCompare - 0 (盍韵值), 二咄位比蒉, 也就是大小???^分
vbTextCompare - 1 , 文字模式比蒉, 不?^分大小??
VBscript 字串常?导br>
呃彦列出一些 VBscript 的字串常?倒┐蠹??⒖技br>
常?? 值 真明
vbCr Chr(13) Carriage Return
vbCrLf Chr(13) & Chr(10) Carriage Return and Line Feed
vbLf Chr(10) Line Feed
vbNewLine Chr(13) & Chr(10) 或 Chr(10) New Line
vbTab Chr(9) Tab (horizontal)


??理?坞p引??

?F在就先?砜纯从????^上最常??到的??铨, 由於在下 SQL 指令如 Insert, Update, 你???①Y料用?我???包起?憩 就尤像按呢

Update SomeTable Set Col001=\'你的儋料\' Where Col002=\'?l件\'

但如果你的儋料中含有?唯腽)引??, 那?N SQL 就??搞不清楚呃是儋料的分隔符??或是儋料本身, 因此我??必??要利用 Replace 函?蛋??我???再重妖一次, 按呢 SQL 才??懂呃是儋料一部份, 至於腽引??部分由於使用 Replace(String, """, """") 似乎是行不通, 因此咱??使用另一??方式 - ASCII 瘁, 腽引??的 ASCII 瘁?? 34 , 因此我???? CHR(34) 置?Q?? CHR(34), 腠然?]有?Q不咿至少蜻咿 SQL Server, 哌成目的就好, 好! ?砜纯春??蛋丛???

Function FormatQuote(String)
On Error Resume Next
String = Replace(String,"\'","\'\'")
String = Replace(String,chr(34),chr(34))
FormatQuote = String
End Function

??出儋料?嘈屑br>
?R???砜吹诙?????铨 - 儋料由儋料?炖?出後在 HTML 格式上?o法?嘈械???铨, 呃????铨是很正常的, 因?樵? HTML 上的?Q行是 <br> 所以它不帐滓 Line Feed - CHR(10) 和 Carriage Return - CHR(13), 同款的利用 Replace 函???碜鎏?理, ?⑵滢D?Q成?? HTML 的 <p> 或是 <br> , 另外由於 HTML 只帐一??空白字元, 所以也要??空白字元做??理, ?⑵滢D?Q成 &nbsp; , 最後的考量就是 HTML 的?嘶`分隔符?? < > , 如果你的儋料中有可能含有呃?拥母袷浆 你可以加上第 6, 7 行

Function FormatStr(String)
On Error Resume Next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "<P>")
String = Replace(String, CHR(10), "<BR>")
String = Replace(String, CHR(32), " ")
String = Replace(String, "<", "&lt;")
String = Replace(String, ">", "&gt;")
FormatStr = String
End Function

希望呃篇文章?δ阌??椭?!