编程论坛 → ASP技术论坛

怎样把全角转换为半角？

ttj99 发布于 2005-10-21 17:11， 1813 次点击

谁有办法用asp把全角转换成半角？

19 回复

盖茨他爹2005-10-21 17:13

replace(str,"全角","半角")

ttj992005-10-21 17:20

开玩笑哇？！

盖茨他爹2005-10-21 17:27

不是开玩笑，我只是举了一个例子，有没有更好得方法我不知道

jnzsk2005-10-21 17:32

shift+空格

盖茨他爹2005-10-21 17:35

楼上得老兄看准了，是用ASP

vj192005-10-21 18:54

为什么还有在ASP里面转呢，直接输入不就完了吗

caiyakang2005-10-21 18:56

andrew5182005-10-21 18:58

应该是已经写好的再转吧，是不是?

#10

jnzsk2005-10-21 19:06

那请高手指点？

#11

ttj992005-10-21 23:13

ok!

#12

yms1232005-10-21 23:16

不清楚ASP里能控制系统的输入法吗？即便捕获快捷键，没听说过能控制输入法。

#13

盖茨他爹2005-10-22 00:01

楼主的意思好象是他的文本里夹杂着一些全角符号，想把这些全角符号变成半角符号。
就得用我在2楼的笨方法

#14

ttj992005-10-22 08:38

我把问题说具体点，我用表单收集诸如电话及qq号之类的数据，而有的网友习惯用全角输入，在提出数据显示时总是影响美观。

#15

jnzsk2005-10-22 13:51

用正则表达式吧！

#16

yms1232005-10-22 23:15

那就用replace(str,"全角","半角")把

先得到全角数字１２３４５６７８９０

再得到半角数字1234567890

代码可以这么写

dim qu(9)

dim bu(9)

qu(0)="１"
qu(1)="２"
qu(3)="３"
qu(3)="４"
qu(4)="５"
qu(5)="６"
qu(6)="７"
qu(7)="８"
qu(8)="９"
qu(9)="０"

bu(0)="1"
bu(1)="2"
……………
这里就省略了
bu(9)="0"
Dim i
For i=0 to 9
replace(str,qu(i),bu(i))
Next

应该是这种写法。

#17

ttj992005-10-24 20:38

试试看吧！谢谢！

#18

ttj992005-10-24 21:03

不行啊，一个qq号出来9个qq号

#19

ttj992005-10-24 21:30

问题解决了，只是太麻烦了。