tt=text1.textbb=""for i=1 to len(tt)a=ms(mid(tt,1,1))bb=bb & anextprivate function ms(t) as string电码转换转换后的结果ams=aend function程序执行完 bb就是把text1.text转换后的电码。 句子也是直接转就行啊。反正是按字符一位一位的走呢。 我的这个做法就是把你传过来的句子按字一位一位的转,传词还是句都一样的。
谢谢,对于你补充的问题:你可以先计算有多少个空格,然后根据空格数+1来确定单词数UBound(Split(Text1.Text, " ")) + 1
'//这个是单词数目Dim P() As StringP = Split(Text1.text, " ")dim j as integerfor j=0 to UBound(Split(Text1.Text, " ")) redim arr(len(P(j))) dim i as integerfor i=1 to len(P(j))arr(i)=mid(P(j),i,1)'///分别取每位上的字符next inext j