Question

vfp表单设计：在TEXT1中输入英文字符“a-z”，点击按钮控件时候，字母转化成数字“1-26”，并显示在TEXT2

vfp表单设计：在TEXT1中输入英文字符“a-z”，点击按钮控件时候，字母转化成数字“1-26”，并显示在TEXT2上，求编程
字母要不分大小写
有没有类似替换的，比如在text1输入abc，点击按钮，text2显示出123，这个是a-z设置成数字1-26的情况，要是换下1-26成z-a，那样在text1输入a-z，点击按钮，text2显示出z-a

Answer 1

挺有意思，忘了还有什么函数能转换键值，方法一好像有点问题，使用方法二吧
一、按钮编程：
ls=lower(thisform.text1.value)
KEYBOARD ls
thisform.text2.value=LASTKEY()-96
thisform.refresh()
二、text1的keypress事件:
thisform.text2.value=IIF(nkeycode>95,nkeycode-96,nkeycode-64)

追问

有没有类似替换的，比如在text1输入abc，点击按钮，text2显示出123，这个是a-z设置成数字1-26的情况，要是换下1-26成z-a，那样在text1输入a-z，点击按钮，text2显示出z-a
就是我在text1中输入某个符号比如A，点击下按钮控件，符号A被符号B替换掉，并且在text2中显示出来。

追答

abc这种情况你只要拆分字符就可以了（substr），一个一个读取
a-z→z-a这种情况更简单了，还是用substr从后往前读字段就可以了

Answer 2

有文本框text1，文本框text2，命令按钮command1
编写command1的click命令如下：
t1=lower(alltrim(thisform.text1.value))l=len(t1)t2=""for i=1 to l t2=t2+alltrim(str(asc(substr(t1,i,1))-96))endforthisform.text2.value=t2

追问

有没有类似替换的，比如在text1输入abc，点击按钮，text2显示出123，这个是a-z设置成数字1-26的情况，要是换下1-26成z-a，那样在text1输入a-z，点击按钮，text2显示出z-a
就是我在text1中输入某个符号比如A，点击下按钮控件，符号A被符号B替换掉，并且在text2中显示出来。

追答

t1=lower(alltrim(thisform.text1.value))
l=len(t1)
t2=""
for i=1 to l
t2=t2+alltrim(str(asc(substr(t1,i,1))-96))
endfor
thisform.text2.value=t2