Question

vb统计一个文本文件中某个单词(英文字符)的数量?

文本文件c:\a.txt中有许多中英文内容，其中一个英文单词是“yes"，怎样统计这个单词出现的数量呢？

Answer 1

没有测试过。。。

Open "d:\123.txt" For binary As #1
S1 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
S2="yes"
N=(len(S1) -len(replace(s1,s2,""))) / len(s2)
msgbox n

追问

我把子yes改成ok测试了，有个问题，就是如果“ok”包含在其他单词中，也算上了。比如：book这个单词中有个ok，也把算上了。怎样避免这种情况？

追答

如果是单独的 OK 应该是有空格在两边的把， S2=" OK " 这样，在两边加上空格

追问

在ok两边加上空格，有道理。因为ok作为单词来说两边确实是有空格的。但统计的结果就是0了。不行啊。问题在哪里，怎样解决？

追答

应该是你格式问题，把代码截图，文本截图看看。

追问

上面是代码截图，下面是文本截图：

追答

把代码中查找的字后面的空格去掉，这样 S2=" OK"
我觉得你的OK后面是换行不是空格

追问

依然没有解决问题。发现ok前面是大小不同的空格，而且空格都超出了一个字符位置。如果把其中一个ok前面的空格大小缩小到一个字符的位置大小，那么可以统计出有一个ok

追答

那肯定不是空格，如果是空格的话，不管几个都没有影响。你自己看看那是什么符号，方法就是这样了
直接从记事本复制到代码看看、

追问

ok前面的空格是通过按空格键形成的，每个ok与其前面的字符相隔的距离都不一样。无法搞。你可以按我的方法 制作个txt文件，测试

Answer 2

你ok前面的字符应该是Tab 不是空