Question

VB中如何实现字符串中字符与字符的转换?!给个思路吧!

VB中如何实现某字符串中 特定字符 向 特定字符 的转换(转换是一对一的、明确的，不一定有数学规则的)？ 一种思路是 用FOR循环遍历字符串， 然后用if... else if语句(或select case语句)进行。 问题是符合转换条件的字符太多(数百个)，总不能写几百次if语句吧。 比如，如果这样：(仅为举例说明)： ……，A，三，T，王，★，一，…… ……，E，散，X，枉，☆，壹，…… 那么"AT王"要转换为"EX枉"，而且要可以逆向转换。 以上仅是个例子。 现在符合转换条件的字符和转换后的字符已经列为两段文字，且一一对应。 请教高手给出一个符合要求的思路。

Answer 1

把替换前和替换后的字符串和对应存进两个数组a()要替换的b()替换后的长度为c d=""整个字符串 for i=1 to c d=replace(d,a(i),b(i)) next 这样就可以了