最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
UBB(vb.net完整版)
时间:2022-07-02 11:16:50 编辑:袖梨 来源:一聚教程网
最近一段时间我用vb.net做论坛,在网上找了一下,虽然有关于ubb(vb.net)的转换代码,可是都不全面,我在这里补充了一下,拿出来和大家共享。
有什么问题到我个人的论坛www.hushiyu.com来交流,随时欢迎。
Public Class ubbs
function ubb(vstr as string)
'替换HTML标记及换行处理
vstr = replace(vstr, ">", ">")
vstr = replace(vstr, "<", "<")
vstr = Replace(vstr, CHR(32), " ")
vstr = Replace(vstr, CHR(9), " ")
vstr = Replace(vstr, CHR(34), """)
vstr = Replace(vstr, CHR(39), "'")
vstr = Replace(vstr, CHR(13), "")
vstr = Replace(vstr, CHR(10), "
")
vstr = Replace(vstr, "[enter]", "
")
dim xface as integer
if xface=1 then
'表情转换,数值型变量xface=1时,允许转换
vstr = replace(vstr,":)","
")
vstr = replace(vstr,":(","
")
vstr = replace(vstr,":o","
")
vstr = replace(vstr,":D","
")
vstr = replace(vstr,";)","
")
vstr = replace(vstr,":p","
")
vstr = replace(vstr,":cool:","
")
有什么问题到我个人的论坛www.hushiyu.com来交流,随时欢迎。
Public Class ubbs
function ubb(vstr as string)
'替换HTML标记及换行处理
vstr = replace(vstr, ">", ">")
vstr = replace(vstr, "<", "<")
vstr = Replace(vstr, CHR(32), " ")
vstr = Replace(vstr, CHR(9), " ")
vstr = Replace(vstr, CHR(34), """)
vstr = Replace(vstr, CHR(39), "'")
vstr = Replace(vstr, CHR(13), "")
vstr = Replace(vstr, CHR(10), "
")
vstr = Replace(vstr, "[enter]", "
")
dim xface as integer
if xface=1 then
'表情转换,数值型变量xface=1时,允许转换
vstr = replace(vstr,":)","
vstr = replace(vstr,":(","
vstr = replace(vstr,":o","
vstr = replace(vstr,":D","
vstr = replace(vstr,";)","
vstr = replace(vstr,":p","
vstr = replace(vstr,":cool:","
相关文章
- 网站为什么需要有规律性的更新高质量文章?这么做的原因是什么? 07-03
- Figma成为最新一家申请IPO的比特币持有公司 07-03
- 魔兽世界灼热峡谷钥匙怎么获得 07-03
- Dreamweaver怎么制作鼠标点击隐藏事件? 07-03
- 炉石传说灌注星灵牧卡组构筑攻略 07-03
- 币圈:虚拟币爆仓会倒欠钱吗?需不需要赔钱? 07-03