Страница 1 из 1

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

Добавлено: 29 июн 2004, 19:27
Паренек_с_гитарой
Поскажите плиз как сделать что б .... заменял не все символы введенные а после первой запетой ... тип "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>

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

Добавлено: 29 июн 2004, 19:39
Oscar
String text

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

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

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

Добавлено: 29 июн 2004, 20:12
Паренек_с_гитарой
Т.е. в чат ет ни как не подгрузить :( ... а на Vb ...не знаешь как?

Добавлено: 29 июн 2004, 21:01
Oscar
на Vb это так же само, только названия другие

Добавлено: 30 июн 2004, 08:00
Паренек_с_гитарой
а не мог бы ты приписать к тому скриптику с верьху а то я VB фигова совсем знаю ....

Добавлено: 01 июл 2004, 02:26
Oscar
Паренек_с_гитарой, а я VB вообще не знаю ;-)
Но ты не расстраивайся, может тебе кто и поможет .. ))

Добавлено: 17 июл 2004, 11:48
Паренек_с_гитарой
только вот чет не поможает :(

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

Добавлено: 21 июл 2004, 13:27
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>