データベースから情報を出力するときに変換機能があり、キャリッジリターンスペースを元のスタイルで出力できます。このコードは、テキストボックスにそのままコードを出力します。
コードコピーは次のとおりです。
functioncc_f_textarea_html_encode(CC_F_T_H_E_STR)
ifnotisnull(cc_f_t_h_e_str)およびccc_f_t_h_e_str <> "" then
CC_F_T_H_E_STR =交換(CC_F_T_H_E_STR、 ">"、 ">")
cc_f_t_h_e_str =置換(cc_f_t_h_e_str、 "<"、 "<")
CC_F_T_H_E_STR =交換(CC_F_T_H_E_STR、CHR(13)、 "")
CC_F_T_H_E_STR =交換(CC_F_T_H_E_STR、CHR(10)&CHR(10)、VBCRLF)
CC_F_T_H_E_STR =交換(CC_F_T_H_E_STR、CHR(10)、VBCRLF)
CC_F_TEXTAREA_HTML_ENCODE = CC_F_T_H_E_STR
endif
エンド機能