求教～如何对选中字符进行分类？

egua

如在我用选择集所选的20个字符中，每个字符或含有a或含有b或含有c

统计如下：

含有a的××个

含有b的××个

含有C的××个

请提示一下思路～

zxj_76

发张图上来看看。

……

J1=0: J2=0: J3=0

For Each I in sSet

  TempStr=I.TextString

  If Instr(1,TempStr,"a")<>0 then J1 = J1+1

  If Instr(1,TempStr,"b")<>0 then J2 = J2+1

  If Instr(1,TempStr,"c")<>0 then J3 = J3+1

Next

sSet.Delete

显示J1,J2,J3值

cqy

这方法好,原来我采用二进制比较,麻烦.