英语单词提取并剔除

lianwpy

请教: word中任一段或多段英语段落：This is avery interesting book and I bought the book in the store .
2. 对上文进行唯一性提取（重复的单词只当作一个）得到如下样式：
a
and
book
bought
I
in
interesting
is
store
the
This
very
3.事先自己已设立好一个命名为”简单词库”txt 的词库含有单词如下[a,and,book,I,in,is,the,This,very,b,desk,much,who,whose]  ，不分大小写，这个词库以后可根据需要加或减
4.将提取的单词同词库比较：词库内有的字都删除,最后得到结果：interesting ,store 格式如下：
interesting
bought
store

duquancai

你在发N次贴都没用。。。。。

duquancai

Sub delword()
    sr = "This is avery interesting book and i bought the book in the store"
    ck = Array("a", "and", "book", "I", "in", "is", "the", "This", "very", "b", "desk", "much", "who", "whose") '词库
    Set d = CreateObject("Scripting.Dictionary")
    d.CompareMode = 1
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.Pattern = "\b\w+\b"
    For i = 0 To UBound(ck)
        d(ck(i)) = ""
    Next
    For Each mt In reg.Execute(sr)
        If d.Exists(CStr(mt)) = False Then
            st = st & vbCr & mt
        End If
    Next
    MsgBox st
End Sub

lianwpy

非常感谢,这个txt词库不用打开的话怎么操作

duquancai

lianwpy 发表于 2017-9-22 17:07
非常感谢,这个txt词库不用打开的话怎么操作

1个月了，现在想起了？我没兴趣，你等大神吧！

常扬帆

其实，您这个用cnbook立马搞定。我上传一个。

lianwpy

按你所说，你发一个看看，谢谢

常扬帆

lianwpy 发表于 2022-10-6 12:02
按你所说，你发一个看看，谢谢

cnbook记事本，纯文本的克星

lianwpy

你上传的中文记事本功能很强大，只是很多代码不是很理解，我会慢慢消化的，非常感谢。另外，你的词的标示基本上能解决我的问题。就是将最简单的词放在lisst中，然后输入的文本同它作比较，能剩下的词就是我们要的，也就是标记过后将标记的单词全部删除。再次感谢。

常扬帆

lianwpy 发表于 2022-10-7 08:54
你上传的中文记事本功能很强大，只是很多代码不是很理解，我会慢慢消化的，非常感谢。另外，你的词的标示基 ...

你还可以把新加的和原来的放到一起，到转换里面，用“删除重复行”，一键搞定。上千万行秒杀。