中文系搞这个？不是发明什么汉字检索新法吧？

1.是限定这几个字，还是所有的常用汉字？
2.是不是只限定这3个声母：声母是W的就用数字5表示，声母是L的就用6表示，声母是Q的就用7表示？

看来就是与数字同声韵的那些文字了？
使用select语句
s=text1
i=1
s1=""
do while i<=len(s)
    select case mid(s,i,1)
        case "以","意","已","移","易","矣","亿","亦","宜","益","译","伊","义"
            s1=s1 & "1"
        case "而","尔","儿","耳"
            s1=s1 & "2"
        case "散","伞","馓","潵"
             s1=s1 & "3"
        case "斯","死","丝","思","司","寺","私","祀"
             s1=s1 & "4"
……………………
…………………………
    end select
loop
？ s1