С русского на английский и обратно ...

[Паренек_с_гитарой]

Поскажите плиз как сделать что б .... заменял не все символы введенные а после первой запетой ... тип "DEN,ghbdtn dctv" делал он в такой вид "DEN,привет всем"

<script language="VBscript">
<!--
Sub mybutton_onclick
a=document.chatinput.chat_message.value
for i=1 to len(a)
status=i&" из"&len(a)
s=mid(a,i,1)

if s="q" then s="й"

newtext=newtext+s
next
document.chatinput.chat_message.value = newtext
end sub
-->
</script>

я делал так ... но оно не устраиват

[Oscar]

String text

pos=strpos(text,","); // определить позицию запятой
text=substr(0,pos,text)+convert(substr(pos,length,text)); //заменить текст на первую часть без изменений + вторую часть конвертированную

//substr(b,e,t) - ф-ция, возвращающая подстроку с b до e из строки t

Не подумайте, это не VB :-) Это просто псевдокод

[Паренек_с_гитарой]

Т.е. в чат ет ни как не подгрузить ... а на Vb ...не знаешь как?

[Oscar]

на Vb это так же само, только названия другие

[Паренек_с_гитарой]

а не мог бы ты приписать к тому скриптику с верьху а то я VB фигова совсем знаю ....

[Oscar]

Паренек_с_гитарой, а я VB вообще не знаю ;-)
Но ты не расстраивайся, может тебе кто и поможет .. ))

[Паренек_с_гитарой]

только вот чет не поможает

[Fktrc]

примерно так
<script language="VBscript">
<!--
Sub mybutton_onclick
a=document.chatinput.chat_message.value
z=False
for i=1 to len(a)
status=i&" из"&len(a)
s=mid(a,i,1)
if s="," then
z=True
endif

if z then

if s="q" then s="й"

endif
newtext=newtext+s
next
document.chatinput.chat_message.value = newtext
end sub
-->
</script>