打印本文 打印本文  关闭窗口 关闭窗口
为输入及输出的数据库的资料做造型
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 14:00:06
在???上有?多?友?到按怎?理?引?的??, ?有?友?到由?料?抓出?的?料?法?行的??, 其?在 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 只?一?空白字元, 所以也要?空白字元做?理, ?其??成 &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

希望?篇文章?你有?助!




打印本文 打印本文  关闭窗口 关闭窗口