最新下载
热门教程
- 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,":)","
相关文章
- 万宝楼官方网页版免登录入口-万宝楼最新官网网址直达 03-09
- 163网易邮箱免费入口-163邮箱注册登录一键直达 03-09
- 云崩坏星穹铁道官网入口-云崩坏星穹铁道网页版链接 03-09
- 羞羞漫画登录官网-羞羞漫画登录入口 03-09
- pixiv网页版官网地址-pixiv网页版最新入口 03-09
- 免费漫画大全哪款好-漫画大全免费下载app 03-09