用ASP做查找替换的代码
答案:5 悬赏:60 手机版
解决时间 2021-11-14 14:05
- 提问者网友：
- 2021-11-13 21:41
用ASP做查找替换的代码
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-11-13 22:18
<%
Function TinWord(InputWord,keyword)
Dim i,OutputWord,keywords,antiword
antiword="*" '这里你可以自己定义要过滤成的文字
keywords = Split(keyword, ",")
OutputWord = InputWord
For i = 0 To UBound(keywords)
OutputWord = Replace(OutputWord, keywords(i), String(Len(keywords(i)),antiword ))
Next
TinWord = OutputWord
End Function
mykeyword="1,6,9,c,i" ' 关键字1,关键字2,关键字3 要用“,”分开
myWord="1234567890abcdefghijk" '你要过滤的文字
changeword=TinWord(myWord,mykeyword) '文字过滤
Response.Write changeword '现在我是把它写出来，你可以直接把它入库或直接显示到页面位置
%>
Function TinWord(InputWord,keyword)
Dim i,OutputWord,keywords,antiword
antiword="*" '这里你可以自己定义要过滤成的文字
keywords = Split(keyword, ",")
OutputWord = InputWord
For i = 0 To UBound(keywords)
OutputWord = Replace(OutputWord, keywords(i), String(Len(keywords(i)),antiword ))
Next
TinWord = OutputWord
End Function
mykeyword="1,6,9,c,i" ' 关键字1,关键字2,关键字3 要用“,”分开
myWord="1234567890abcdefghijk" '你要过滤的文字
changeword=TinWord(myWord,mykeyword) '文字过滤
Response.Write changeword '现在我是把它写出来，你可以直接把它入库或直接显示到页面位置
%>
全部回答
- 1楼网友：酒安江南
- 2021-11-14 03:36
直接用replace就可以了，不需要先去查询！
- 2楼网友：青尢
- 2021-11-14 02:09
用正则给你匹配代码 简单又方便
- 3楼网友：持酒劝斜阳
- 2021-11-14 00:32
查找用instr函数 替换用replace函数 研究一下吧
- 4楼网友：摆渡翁
- 2021-11-13 23:43
Function WordFilter(strInput)
Dim i
Dim strOutput
Dim strFilter
strFilter = Split("关键字1,关键字2,关键字3", ",")
strOutput = strInput
For i = 0 To UBound(strFilter)
strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)), "*"))
Next
WordFilter = strOutput
End Function
Dim i
Dim strOutput
Dim strFilter
strFilter = Split("关键字1,关键字2,关键字3", ",")
strOutput = strInput
For i = 0 To UBound(strFilter)
strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)), "*"))
Next
WordFilter = strOutput
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯