Function FormatQuote(String) On Error Resume Next String = Replace(String,"'","''") String = Replace(String,chr(34),chr(34)) FormatQuote = String End Function
輸出資料斷行
擱來(lái)來(lái)看第二個(gè)問(wèn)題 - 資料由資料庫(kù)拉出後在 HTML 格式上無(wú)法斷行的問(wèn)題, 這個(gè)問(wèn)題是很正常的, 因?yàn)樵?HTML 上的換行是 <br> 所以它不認(rèn)識(shí) Line Feed - CHR(10) 和 Carriage Return - CHR(13), 同款的利用 Replace 函數(shù)來(lái)做處理, 將其轉(zhuǎn)換成為 HTML 的 <p> 或是 <br> , 另外由於 HTML 只認(rèn)一個(gè)空白字元, 所以也要對(duì)空白字元做處理, 將其轉(zhuǎn)換成 , 最後的考量就是 HTML 的標(biāo)籤分隔符號(hào) < > , 如果你的資料中有可能含有這樣的格式, 你可以加上第 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
