一个简单的字符串替换问题,如何用VBScript解决呢,请进来看看吧

我是杨威利 2004-11-25 12:38:45
我的javascript程序在这里,这个程序是好的。
现在只许用户输入26个英文字母。我一个一个找,要是全角的我就给他换成半角的。26个字母省略了,这里只留abc三个。inputText是用户输入的字符串。
function toHankaku(inputText)
{
han = "ABC ";
txt = "ABC";
str = "";
for (i=0; i<inputText.length; i++)
{
c = inputText.charAt(i);
n = txt.indexOf(c,0);
if (n >= 0) c = han.charAt(n);
str += c;
}
}
请问这个函数用VBScipt怎么写呢?

...全文
92 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
我是杨威利 2004-11-25
谢谢大家,今天帮我解决了这么多的问题。
回复
hflsj 2004-11-25
顶一下
回复
谢紫枫 2004-11-25
function IsAlpha(cCheck)
if ("a"<=cCheck and cCheck<="z") or ("A"<=cCheck and cCheck<="Z") then
IsAlpha=true
else
IsAlpha=false
end if
end function

function checkDis()

'判断是否输入完全以及输入的合法性
dim nIndex
dim cCheck
dim txt
txt = "ABC";

for nIndex=1 to len(txt)
cCheck = mid(txt,nIndex,1)
if not (IsDigit(cCheck) or IsAlpha(cCheck)) then
msgbox "含有非法字符",vbCritical,"合法性检测"
checkDis=false
exit function
end if
next

end function

感觉上这样方便一些,当初好像是参照sohu上那里用的
回复
ygjwjj 2004-11-25
Function toHankaku(inputText)
dim han :han="ABCDE "
dim txt :txt="ABCDE"
dim str :str=""
for i=0 to len(inputText)-1
c=Mid(inputText,i+1,1)
n=instr(txt,c)
if n>=0 then
c=Mid(han,n,1)
end if
str=str&c
next

toHankaku=str

end Function

response.Write toHankaku("ABCE")
回复
ygjwjj 2004-11-25
Function toHankaku(inputText)
dim han :han="ABCDE "
dim txt :txt="ABCDE"
dim str :str=""
for i=0 to len(inputText)-1
c=Mid(inputText,i+1,1)
n=instr(txt,c)
if n>=0 then
c=Mid(han,n,1)
end if
str=str&c
next

toHankaku=str

end Function

response.Write toHankaku("ABCE")
end Function
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-25 12:38
社区公告
暂无公告