use vb.net code:
dim email() as string=split("abc;dfg;kml",";")
Dim i As Integer =0
for i=0 to email.length-1
if right(email(i))="你想要删除的字母C" then
email(i)=''
end if
i=i+1
end for
dim emailstring as string=""
for i=0 to email.length-1
emailstring=emailstring & email(i)
end for
if emailstring="" then
全部删除了。
endif
dim email() as string=split("abc;dfg;kml",";")
Dim i As Integer =0
for i=0 to email.length-1
if right(email(i))="你想要删除的字母C" then
email(i)=''
end if
i=i+1
end for
dim emailstring as string=""
for i=0 to email.length-1
emailstring=emailstring & email(i)
end for
if emailstring="" then
全部删除了。
endif
email(i)=''写错了,应该是email(i)=""
abc;acc;adc
那岂不是全删除了?
而且要删除的是什么字符也不是那么的好找。
因为在页面上,所以用javascript 实现会好些。
function delstr()
{
if(event.keyCode!=8)
{return true;
}
else
{var str=document.form1.t1.value;
if(str=='') return true;
document.form1.t1.focus();
var cr=document.selection.createRange();
cr.moveStart('character',-1);
while(cr.text!='' && cr.text!=';')
{cr.text='';
cr.moveStart('character',-1);
} if(cr.text=='')
{cr.moveEnd('character',1);
if(cr.text==';')
{ cr.text='';}
}
if(cr.text==';')
{ cr.text='';}
}
}</script><form name="form1">
<input type="text" name="t1" onkeyup="javascript:delstr();">
</form>