请教高手，关于全文转换的问题

[nvey01]

如题。
比如 text1里 有 abcdef 等字母 单击 command1 后
可以按一定的规律在text2里 转换成其他字符，如： 一二三四五

而 text2里面的 字符 经单击 command2 后 又可以在text1按规律逆向转换

以 abcdef 对应 一二三四五 为准啊 该如何实现？

注： 是全篇文章转换的，可能几百个字，这该如何实现呢？

请大家帮帮忙，在此先谢了。

[帝企鹅已被占用]

什么规律？
查查two way encryption，不是100%安全。

[nvey01]

[Quote=引用 1 楼 patrickkong 的回复:]
什么规律？
查查two way encryption，不是100%安全。
[/Quote]

比如 a转换成一 b 转换成二 后面各有各的对应。
这样的代码该如何写啊 一键实现全文转换的

[jhone99]

简单的

取出ascii码加1个固定值，
还原时再减回去

[舉杯邀明月]

建两个表：

点 Command1 时，查 表1 取 表2 对应的字符。
点 Command2 时，查 表2 取 表1 对应的字符。

[SYSSZ]

这是加密呢

[nvey01]

[Quote=引用 3 楼 jhone99 的回复:]
简单的

取出ascii码加1个固定值，
还原时再减回去
[/Quote]

[Quote=引用 4 楼 chen8013 的回复:]
建两个表：

点 Command1 时，查 表1 取 表2 对应的字符。
点 Command2 时，查 表2 取 表1 对应的字符。

[/Quote]


能不能帮忙把代码写出来啊？、
以a 转换成一 b转换成二 c转换成三
全文以 aabbccabc 为例 转换的代码啊？

[nvey01]

其实就是要这样的代码啊 麻烦下三楼和四楼的朋友啊。

[帝企鹅已被占用]

无言。

[nvey01]

唉 还是算了 还得靠自己啊。。。。 三楼四楼的朋友，谢了。

[SYSSZ]

Private Sub Command1_Click()
For I = 1 To Len(Text1)
S = S & Asc(Mid(Text1, I, 1)) & " "
Next
Text2 = S
Text1 = ""
End Sub

Private Sub Command2_Click()
a = Split(Text2, " ")
For I = 0 To UBound(a)
S = S & Chr(Val(a(I)))
Next
Text1 = S
Text2 = ""
End Sub

Private Sub Form_Load()
Text1 = "aabbccabc"
Text2 = ""
End Sub

[nvey01]

[Quote=引用 10 楼 syssz 的回复:]
VB codePrivateSub Command1_Click()For I=1ToLen(Text1)
S= S& Asc(Mid(Text1, I,1))&""Next
Text2= S
Text1=""End SubPrivateSub Command2_Click()
a=Split(Text2,"")For I=0ToUBound(a)
S= S& Chr(Val(a(I)))Next?-
[/Quote]


不好意思，分已经丢出去了刚，，，， 3Q。

[舉杯邀明月]

原文全是西文字符吗？

如果是，处理起来非常简单。并且只需要建一个“表”就可以了，代码量也很少。
如果包含汉字，那真的要建两个表了。


给你一点代码参考一下，仅转换"abcde"的：

Option Explicit

Private Const strEnCodeTab$ = "一二三四五六七八九十"

Sub EnCode()

    Dim strTemp$, i&
    strTemp = Text1.Text
    For i = 1 To Len(strTemp)
        Mid$(strTemp, i, 1) = Mid$(strEnCodeTab, Asc(Mid$(strTemp, i, 1)) - 96, 1)
    Next
    Text1.Text = strTemp

End Sub

Sub DeCode()

    Dim strTemp$, i&
    strTemp = Text1.Text
    For i = 1 To Len(strTemp)
        Mid$(strTemp, i, 1) = Chr$(InStr(1, strEnCodeTab, Mid$(strTemp, i, 1)) + 96)
    Next
    Text1.Text = strTemp

End Sub

Private Sub Command1_Click()
'启动程序后先‘加密’
    Call EnCode
End Sub

Private Sub Command2_Click()
'‘解密’
    Call DeCode
End Sub

Private Sub Form_Load()

    Text1.Text = "abcabcef"

End Sub

[舉杯邀明月]

[Quote=引用 11 楼 nvey01 的回复:]
........

不好意思，分已经丢出去了刚，，，，  3Q。
[/Quote]

非技术分，没有什么价值 .............

[nvey01]

[Quote=引用 13 楼 chen8013 的回复:]
引用 11 楼 nvey01 的回复:
........

不好意思，分已经丢出去了刚，，，，   3Q。


非技术分，没有什么价值 .............


[/Quote]


不懂 呵呵 谢了。