vb>>> a1b 转换成a=12 1=31 b=23 c=24 2=14 d=41...

显示全部楼层 · 2009-4-30 23:18:22

在TEXT1输入3个字符，可能是a1b、ca2、1ad、2ac...等等..(关键在于这里，3个字符是随机的，可能出现的组合有很多。。。
现在要做的就是把text1里面的三个字符转换成我说的那样，
如题。a替换为12...b替换成23...c替换成24...2替换成14
比如我在TEXT1输入alb则输出123123。。。 ca2则输出241214。。。

1ad则输出311241。。。 2ac则输出141224。。。
请问如何实现。。。回答好的，详细的加分，真的！！！
我编的代码失败在于这里，希望大家不要犯跟我一样低级的错误
1）将text1里面的a1b的a替换成12'这时text1=121b
2）将text1里面的a1b的1替换成31。。。’这时替换的就不是a1b而是121b
.............
实在想不出什么好办法，望高手指点

千问 · 2009-4-30 23:18:22

实现的方法很多，下面随便给出一种用结构体实现的方法：Private Type MyDict'定义一个源字符与目的字符的结构体Src As String'源字符，如“a”Dest As String'转换后的目的字符,如"12"End TypePrivate Function Convert(s As String) As String
'函数说明:
'参数s，是需要转换的源字符串，如a1b
'返回值：转换后的字符串，如123123
'注：函数本身不限制源字符串长度
Dim MyDictList(5) As MyDict '用于存储转换规则的...

千问 · 2009-4-30 23:18:22

看看是不是这个http://313378617.qzone.qq.com/infocenter?ADUIN=313378617&ADSESSION=1241094378&ADTAG=CLIENT.QQ.1855_QQUrlReportBlankZone.0...