2006-5-22 文本 转 HTML 与 HTML 转 文本 操作记录小结 By Stabx

原创 2006年05月23日 10:18:00
标题: 文本 转 HTML 与 HTML 转 文本 操作记录小结 By Stabx

正文:

文本与HTML 之间的互转, 主要是在添加更新数据与读取数据时用到.

添加数据与更新数据用 文本 转 HTML;
读取数据用 HTML 转 文本.

表单 ttextarea 在读取数据时自动解码HTML字符, 有时对某些特定字符我们并不要这样, 这就需要HTML 转文本.

首先, 我需要的不是单纯的 文本 与 HTML 之间的互转, 加入了 UBB 开关选项, 加入了 HTML 开关选项, 2*2=4, 这需要四个判断. 

文本 转 HTML 
1. 在输入了类似于 URL 地址栏之类的地址, 要求自动转为 URL 链接
2. 在输入了类似电子邮件之类的地址, 要求自动转为 EMAIL 链接.
3. 在输入了 UBB 标签时要求转换为相对的 HTML 标签.
4. 换行符,空格符,跳格符 的格式都要保留, 这也许制造了不少垃圾, 但这比较以人为本, 为何要将就机器来着, 机器应该将就人. 

注: 文本与HTML互转 共用了五个函数来执行操作
//并用 ACCESS 的 是/否 数据类型来判断开关

添加更新数据时
1. textToHtml 主函数, 执行了转换HTML,转换UBB的功能
2. textToHtmlNullUBB 函数, 在 UBB 关, HTML 开时使用该函数
3. textToHtml1 在 UBB 与 HTML 都关时, 使用改函数

读取数据时
4. textToHtmlNullUBB1 在读取数据时使用该函数, 并且 UBB 关 HTML开时 和 UBB HTML 都关时, 使用该函数
5. htmlToText 主函数, 在 读取数据时使用该函数, 并且 UBB 开 HTML开时 和 UBB 开 HTML 关时, 使用改函数

shawl.qiu
2006-5-22

添加或更新数据时: 

文本 转 HTML | UBB 开关 与 HTML 开关相关逻辑 

 

                title_=request.Form("title")
                 content_=request.Form("content")

        if     htmloff_=1 and ubboff_=1  then 'html 和 ubb 都关闭则
                 title_=textToHtml1(trim(title_))
                 content_=textToHtml1(content_)
         end if
         if     htmloff_=0 and ubboff_=0  then 'html 和 ubb 都开启则
                 title_=textToHtml(trim(title_))
                 content_=textToHtml(content_)
         end if
         if htmloff_=0 and ubboff_=1 then 'HTML 开, UBB 关
                 title_=textToHtmlNullUBB(trim(title_)) 
                 content_=textToHtmlNullUBB(content_)
         end if
         if htmloff_=1 and ubboff_=0 then 'HTML 关, UBB 开
                 title_=textToHtml(trim(title_))
                 content_=textToHtml(content_)
         end if

读取数据时:

HTML 转 文本 | UBB 开关 与 HTML 开关相关逻辑 
             htmloff_=rs("htmloff")
             ubboff_=rs("ubboff")
             tt_=rs("title")
             ct_=rs("content")
     if     htmloff_=true and ubboff_=true  then 'UBB HTML 都关闭
             tt_=tt_ 
             ct_=textToHtmlNullUBB1(ct_)
     end if
     if     htmloff_=false and ubboff_=false  then  'UBB HTML 都开启
             tt_=htmlToText(tt_)
             ct_=htmlToText(ct_)
     end if
     if     ubboff_=true and htmloff_=false then 'UBB关, HTML 开
             tt_=htmlToText(tt_)
             ct_=htmlToText(ct_)
     end if
     if     ubboff_=false and htmloff_=true then 'UBB 开, HTML 关
             tt_=textToHtmlNullUBB1(tt_)
             ct_=textToHtmlNullUBB1(ct_)
     end if

 

 

 


文本 与 HTML 互转文件

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' subject    : 文本 转 HTML 与 HTML 转 文本 函数 By shawl.qiu
'
' writer    : Stabx<shawl.qiu@gmail.com>
'
' blog        : http://blog.csdn.net/btbtd / http://btbtd.exblog.jp/
'
' blog/site    : Phoenix.GI - P.GI / / 绿色学院 - Green Institute
'
' date        : 2006-5-22
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function textToHtml(str)
     dim re
     if isNULL(str) then
     textToHtml=""
     exit function
     end if
         'str=replace(str,"&","&amp;")
         str=replace(str,"/","&#92;")
         str=replace(str,"'","&#39;")
         str=replace(str,chr(34),"&#34;")
         str=replace(str,chr(32)," &nbsp;")
         str=replace(str,"<","&lt;")
         str=replace(str,">","&gt;")
         str=replace(str,chr(13),"
")
         str=replace(str,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
         str=replace(str,"ttextarea","ttextarea")
         str=replace(str,"[code]","[code]",1,-1,1)
         str=replace(str,"[/code]","[/code]",1,-1,1)
         str=replace(str,"[cite]","[cite]",1,-1,1)
         str=replace(str,"[/cite]","[/cite]")
         str=replace(str,"[quote]","[quote]",1,-1,1)
         str=replace(str,"[/quote]","[/quote]",1,-1,1)

 

    Set re = New RegExp
         re.Global = true
         re.IgnoreCase = true

        re.Pattern = "/[email/](.*)/[//email/]"
         str = re.Replace(str,"$1")
         '[email]shawl.qiu@gmail.com[/email]
        
         re.Pattern = "/[img/](.+)/[//img/]"
         str = re.Replace(str,"<img width=200 src=http://$1></img>")
                    
         re.Pattern = "((http/:////)|())([/w-]+/.+[/w-/.]+/.+[a-zA-Z0-9]+)(/:+[0-9]+/[/w-./?_%=&]*|/[/w-./?_%=&]*)?"
         str = re.Replace(str,"[url]$2$3$4$5[/url]")
        
         re.Pattern = "/[url/](.*?)/[//url/]"
         str = re.Replace(str,"$1")

        re.Pattern = "(([/w-]+/@+)|([/w-]+/.+[/w-]+/@+))(([/w-]+/.)([/w-]+/.)([a-zA-Z]+)|([/w-]+/.)([a-zA-Z]+))"
         str = re.Replace(str,"[email]$2$3$4[/email]")
        
         str=replace(str," &nbsp;","&nbsp;")
        
     textToHtml=str
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'文本 转 HTML 函数 不加 UBB
function textToHtmlNullUBB(str)
     dim re
     if isNULL(str) then
     textToHtmlNullUBB=""
     exit function
     end if
         str=replace(str,"&","&amp;")
         str=replace(str,"'","&#39;")
         str=replace(str,chr(34),"&#34;")
         str=replace(str,"<","&lt;")
         str=replace(str,">","&gt;")
         str=replace(str,chr(13),"
")
         str=replace(str,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
         str=replace(str,"ttextarea","ttextarea")
     textToHtmlNullUBB=str
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'文本转 HTML 1
function textToHtml1(str)
     if     str="" then
         exit function
     end if
         str=replace(str,"'","&#39")
         str=replace(str," &nbsp;"," ")
         str=replace(str,"ttextarea","ttextarea")
     textToHtml1=Str
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'文本 转 HTML 函数 不加 UBB
function textToHtmlNullUBB1(str)
     dim re
     if isNULL(str) then
     textToHtmlNullUBB=""
     exit function
     end if
         str=replace(str,"&","&amp;")
         str=replace(str,"'","&#39;")
         str=replace(str,chr(34),"&#34;")
         str=replace(str,"<","&lt;")
         str=replace(str,">","&gt;")
         str=replace(str,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
         str=replace(str,"ttextarea","ttextarea")
     textToHtmlNullUBB1=str
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'HTML 转 文本
function htmlToText(str)
     Dim re
     if     str="" then
         exit function
     end if
         str=replace(str,"&lt;","<")
         str=replace(str,"&gt;",">")
         str=replace(str,"ttextarea","ttextarea")
         str=replace(str,"[code]","[code]",1,-1,1)
         str=replace(str,"[/code]","[/code]",1,-1,1)
         str=replace(str,"[cite]","[cite]",1,-1,1)
         str=replace(str,"[/cite]","[/cite]",1,-1,1)
         str=replace(str,"[quote]","[quote]",1,-1,1)
         str=replace(str,"[/quote]","[/quote]",1,-1,1)
         str=replace(str,"
",chr(13),1,-1,1)

    Set re = New RegExp
         re.Global = true
         re.IgnoreCase = true

        re.Pattern = "<a.*?href=mailto/:.*?/>(.*?)/<//a/>"
         Str = re.Replace(Str,"[email]$1[/email]")
        
         re.Pattern = "<img.*?src=/:.*?/>(.*?)/<//img/>"
         Str = re.Replace(Str,"[img]$1[/img]")

        re.Pattern = "<a.*?href=http.*?/>(.*?)/<//a/>"
         Str = re.Replace(Str,"[url]$1[/url]")
        
     htmlToText=Str
end function
%>

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

HTML5学习记录之文本元素

主要记录除元素a外的其他文本元素的功能(虽说大多都没有什么功能) 文本元素 b元素:这是HTML5教程 strong元素:这是HTML5教程 wbr元素:安全换行,主...

html转纯文本 工具

  • 2016-07-06 09:53
  • 192KB
  • 下载

基本的HTML文本解析器的设计和实现(C/C++源码)--转csdn

基本的HTML文本解析器的设计和实现(C/C++源码)--转csdn

textview 显示图文信息,html文本,实现activity的跳转、跑马灯效果。

public class MainActivity extends Activity { private TextView textView1, textView2, textView3; //通...

用Python写一个文本转HTML的脚本

在 实验楼 上看的,自己看了一下感觉用处很大,代码也不难懂,特分享一下。 给定一个.txt文件,将其转换成HTML网页。 我们先来编写代码: #!/usr/bin/python # encoding...

HTML5复习01-文本元素

1. 表示关键字和产品名称 HTML5 解释:元素实际作用就是加粗。从语义上来看,就是标记一段文字,但并不是特别 强调或重要性。比如:一段文本中的某些关键字或者产品的名称。 2. 表示重要的文...

HTML5 文本属性

1.   边框属性           border=radius :上右下左; 取值和margin很像           border-radius :60px 30px 40px ...

【HTML5游戏开发小技巧】RPG情形对话中,令文本逐琢夸出

从前用JAVAscript完成过令文本逐琢夸出的效果,明天嗡炒用html5中的canvas完成一下。canvas里的内容可没有像那样好操做,起首,您需求懂得一些html5的API才气操做canvas,...

HTML 5中的重要元素:文本元素(time元素、mark元素、cite元素)

在HTML 5中,新增或改良的元素还有许多,主要分为以下几大类:文档元素、脚本、节点元素、文本元素、嵌入元素等。下面以实例的形式,介绍文本元素在HTML 5中的使用方法。 页面中常常需要展示的一...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)