字符/单词提取与过滤

原创 2007年09月21日 22:31:00

http://community.csdn.net/Expert/topic/5760/5760639.xml?temp=.3635828

解此题得总结出的一段代码。备用 

 

<!--
模拟1W条记录,速度过得去。
本法按允许集中查找待处理单词,如果允许集中存在那么就取出.最终得到一串待处理字串中含有的所有允许单词.
若还有看不明白的地方,请指出来,我再加注.总不能搞得每行加注吧?!我可没写过教程,难度很大的.
-->
<%
Dim     rtype,strA
rtype    =lcase(trim(request("rtype")))    ''字符串类别
strA    =trim(request("strA"))  ''要处理的字串.
''调试代码
rtype    ="word" ''字符串以限制为word
rtype    ="number" ''字符串以限制为数值
rtype    =""  ''字符串以限制为字母
strA    ="abcdef 123 abcd 1234567 d abcdef 1234567 a asdf abcdef 1234 ab"
''============调试结束,以上代码非调试时请删除.
''不同类型分别处理
select case rtype
case "word": ''字符串以限制为word
    response.Write(checkWords(strA))
case "number": ''字符串以限制为数值
    response.Write(checkNumbers(strA))
case else:  ''字符串以限制为字母,默认类别
    response.Write(checkAz(strA))
end select
''字母处理函数
Function checkAz(vNewStr)
    Dim     tmp_str,tmp_arr,tmp_strB,tmp_arr_up,tmp_i
 ''待处理字串生成数组
    tmp_str    =vNewStr
    tmp_arr    =split(tmp_str," ")
    tmp_arr_up    =ubound(tmp_arr)
   
    ''模拟取出允许集
    tmp_strB=" a b c d "
   
 ''待处理字串中的单词在允许集中存在则提取出来.
    checkAz=""
    for tmp_i=0 to tmp_arr_up
        if instr(tmp_strB," "&tmp_arr(tmp_i)&" ")>0 then
            checkAz=checkAz&" "&tmp_arr(tmp_i)
        end if
    next
 ''返回值
    checkAz    =ltrim(checkAz)
End Function
''数字处理函数
Function checkNumbers(vNewStr)
    Dim     tmp_str,tmp_arr,tmp_strB,tmp_arr_up,tmp_i
 ''待处理字串生成数组
    tmp_str    =vNewStr
    tmp_arr    =split(tmp_str," ")
    tmp_arr_up    =ubound(tmp_arr)
   
    ''模拟取出允许集
    tmp_strB=" "
    for tmp_i=1 to 10000
        tmp_strB=tmp_strB&"1234567 "
    next
   
 ''待处理字串中的单词在允许集中存在则提取出来.
    checkNumbers=""
    for tmp_i=0 to tmp_arr_up
        if instr(tmp_strB," "&tmp_arr(tmp_i)&" ")>0 then
            checkNumbers=checkNumbers&" "&tmp_arr(tmp_i)
        end if
    next
 ''返回值
    checkNumbers    =ltrim(checkNumbers)
End Function
''单词处理函数
Function checkWords(vNewStr)
    Dim     tmp_str,tmp_arr,tmp_strB,tmp_arr_up,tmp_i
 ''待处理字串生成数组
    tmp_str    =vNewStr
    tmp_arr    =split(tmp_str," ")
    tmp_arr_up    =ubound(tmp_arr)
   
    ''模拟取出允许集
    tmp_strB=" "
    for tmp_i=1 to 10000
        tmp_strB=tmp_strB&"abcdef "
    next
   
 ''待处理字串中的单词在允许集中存在则提取出来.
    checkWords=""
    for tmp_i=0 to tmp_arr_up
        if instr(tmp_strB," "&tmp_arr(tmp_i)&" ")>0 then
            checkWords=checkWords&" "&tmp_arr(tmp_i)
        end if
    next
 ''返回值
    checkWords    =ltrim(checkWords)
End Function
%>

以上是提取,过滤更简单,请参考动网等论坛禁用语相关代码。

代码整理收集中...

 

 

 

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

Java实现字符串中单词的逆转

算法思路: 第一步:从字符串的尾部向前遍历字符串,遇到空格/第一个字符、调用函数world_Print()       第二步:world_Print()将传过来的字符放入桟中,然后出桟拼接到逆转后的...
  • I_peter
  • I_peter
  • 2016年09月12日 17:01
  • 699

输入一行字符,统计单词个数

#include int main() { char string[81]; int i; int num=0;//统计单词个数 int word=0;//word=0表示未出现新单词;Wor...
  • u012110719
  • u012110719
  • 2014年11月19日 21:50
  • 2395

输入一行字符,统计有多少个单词

解题思路: 关键:怎样确定出现一个新单词 方法:从第一个字符逐个进行检查,判断此字符是否为新单词的开头,如果是num+1,最后num的值就是单词总数判断是否出现新单词,可以由是否由空格出现来决定(连续...
  • u012701023
  • u012701023
  • 2015年07月06日 19:09
  • 1724

将String中的字符串分解成单个的单词

public class StringTest { /** * 实现将String中的数据以某种方式分离开来 * 我们用单个的字符串分离成单个的单词为例子 */ public stat...
  • Reoger
  • Reoger
  • 2015年11月03日 21:53
  • 2834

英文单词词干提取算法

Lucene里面的分词器里面有一个PorterStemFilter类,里就用到了著名的词干提取算法。所谓Stemming,就是词干,在英语中单词有多种变形。比如单复数加s,进行时加ing等等。在分词的...
  • xietingcandice
  • xietingcandice
  • 2014年04月10日 11:03
  • 1371

输入一行字符,统计其中有多少单词,单词之间用空格隔开

问题描述:   输入一行字符,统计其中有多少单词,单词之间用空格隔开 解题思路: 判断单词是否出现,可以用空格的出现来判断(连续的若干空格看做成一个),若当前字符为空格,表明word未出现,...
  • ZongYinHu
  • ZongYinHu
  • 2015年04月11日 10:12
  • 2134

JavaScript过滤特殊字符

JavaScript过滤特殊字符 1、设计实例 JavaScript过滤特殊字符 body{ width:80%; background-color:#FFC; he...
  • you23hai45
  • you23hai45
  • 2014年03月12日 21:59
  • 4114

过滤Java中特殊字符

过滤Java中特殊字符 /** * @Title:FilterString.java * @Package:com.you.model * @Description:过滤Java中特殊字符 ...
  • you23hai45
  • you23hai45
  • 2014年02月28日 23:11
  • 2042

java过滤特殊字符

Java代码   // 过滤特殊字符       public   static   String StringFilter(String   str)   throws   Patt...
  • u014386474
  • u014386474
  • 2016年06月23日 08:55
  • 1307

在一堆杂乱无序的字母中找出隐藏的英文语句(Python)

在某ctf网站看到一个比较有意思的题目,题目大概的意思是在一个随机的生成的字母文本里被插了一句有意义的英文句子,由于文本比较大靠人眼去找基本没可能。 解决思路如下: 1.到网上找一个常用的英文单词表做...
  • terry1201
  • terry1201
  • 2015年02月07日 23:14
  • 1043
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:字符/单词提取与过滤
举报原因:
原因补充:

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