在???上有?多?友?到按怎?理?引?的??, ?有?友?到由?料?抓出?的?料?法?行的??, 其?在 VBscript 有一支 Replace 函?可以??助咱??理?款??, 所以今日的文章就要???用 Replace ?替?料做造型
Replace 函?
一?始?是?看看 Replace 的?法
Replace(搜?字串, 字串甲, 字串乙[, ?始位置][, ??][, 比?方式]]]))
意思是??的: 由 搜?字串 的 ?始位置 找起, 找出字串甲, ??它置?成 字串乙, ?共要做 ?? 次
比?方式可以是下底的值
vbBinaryCompare - 0 (??值), 二?位比?, 也就是大小??分
vbTextCompare - 1 , 文字模式比?, 不?分大小?
VBscript 字串常?
??列出一些 VBscript 的字串常?供大家?考
常? 值 ?明
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)
?理??引?
?在就先?看看???上最常?到的??, 由於在下 SQL 指令如 Insert, Update, 你???料用?引?包起?, 就?像按呢
Update SomeTable Set Col001='你的?料' Where Col002='?件'
但如果你的?料中含有?(?)引?, 那? SQL 就?搞不清楚?是?料的分隔符?或是?料本身, 因此我?必?要利用 Replace 函?把?引?再重?一次, 按呢 SQL 才?懂?是?料一部份, 至於?引?部分由於使用 Replace(String, """, """") 似乎是行不通, 因此咱?使用另一?方式 - ASCII ?, ?引?的 ASCII ?? 34 , 因此我?? CHR(34) 置?? CHR(34), ?然?有?不?至少?? SQL Server, ?成目的就好, 好! ?看看函?按怎?
Function FormatQuote(String)
On Error Resume Next
String = Replace(String,"'","'")
String = Replace(String,chr(34),chr(34))
FormatQuote = String
End Function
?出?料?行
???看第二??? - ?料由?料?拉出後在 HTML 格式上?法?行的??, ????是很正常的, 因?在 HTML 上的?行是 <br> 所以它不?? Line Feed - CHR(10) 和 Carriage Return - CHR(13), 同款的利用 Replace 函??做?理, ?其??成? HTML 的 <p> 或是 <br> , 另外由於 HTML 只?一?空白字元, 所以也要?空白字元做?理, ?其??成 , 最後的考量就是 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, "<", "<")
String = Replace(String, ">", ">")
FormatStr = String
End Function
希望?篇文章?你有?助!