forum.boolean.name - Lower$(name$) + русский язык = проблема

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Lower$(name$) + русский язык = проблема (http://forum.boolean.name/showthread.php?t=2171)

Chuma

23.12.2006 16:05

Lower$(name$) + русский язык = проблема

Хм, я тут с проблемой сталкнулся

правильно ли я понимаю что в

Цитата:

Text 12,12, 2,True, True :nam$=Input("ВВЕДИТЕ ИМЯ:"):name$=Lower$(nam$)
Print name$

нелзя использовать русские символы. Есть ли какие нибудь варианты обхода?

И еще как сделать так что бы указанный запрос на ввод имен в цикле появлялся в одном и том же месте (а то при каждом обновлении цикла съезжает вниз на строку)

Progger_Leo

23.12.2006 16:33

Re: Lower$(name$) + русский язык = проблема

Цитата:

как сделать так что бы указанный запрос на ввод имен в цикле появлялся в одном и том же месте (а то при каждом обновлении цикла съезжает вниз на строку)

Код:

While Not KeyHit(1)

Cls

Locate 1,1

name$=Input()

Wend

Вот так

Progger_Leo

23.12.2006 16:37

Цитата:

правильно ли я понимаю что в

Цитата:

Text 12,12, 2,True, True :nam$=Input("ВВЕДИТЕ ИМЯ:"):name$=Lower$(nam$)
Print name$

нелзя использовать русские символы. Есть ли какие нибудь варианты обхода?

нужно читать ASCII-код символов и менять их на нужные

HolyDel

23.12.2006 19:56

Re: Lower$(name$) + русский язык = проблема

leo+1.

jimon

23.12.2006 20:39

Re: Lower$(name$) + русский язык = проблема

или от ASCII кода буквы отнять некое число или добавить
ps. число ето количество букв в алфавите

Progger_Leo

23.12.2006 21:50

Re: Lower$(name$) + русский язык = проблема

Цитата:

Сообщение от jimon

или от ASCII кода буквы отнять некое число или добавить
ps. число ето количество букв в алфавите

А я это и имел в виду;)

Progger_Leo

23.12.2006 21:51

Re: Lower$(name$) + русский язык = проблема

Вообщем, надо написать специальную функцию.

jimon

23.12.2006 22:34

Re: Lower$(name$) + русский язык = проблема

Progger_Leo
пиши все в одном сообщении

Chuma

24.12.2006 00:44

Re: Lower$(name$) + русский язык = проблема

хм. спасибо Progger_Leo!

Блин.. а с какого символа идут все буквы русского? и сколько надо прибавлять?
блин... уеду нафик в англию =) чтоб проще было.

HolyDel

24.12.2006 01:13

Re: Lower$(name$) + русский язык = проблема

держите, соучастнеги
[blitz]
Function Lower2$(txt$)
nt$=""
For i=1 To Len(txt)
m$=Mid(txt,i,1)
If Asc(m$)<128
nt=nt+Lower(m)
Else
If Asc(m)>191 And Asc(m)<225
nt=nt+Chr(Asc(m)+32)
ElseIf Asc(m)=168
nt=nt+Chr(184)
Else
nt=nt+m
EndIf
EndIf
Next
Return nt
End Function
[/blitz]

Progger_Leo

24.12.2006 01:41

Re: Lower$(name$) + русский язык = проблема

Цитата:

Сообщение от Chuma

Блин.. а с какого символа идут все буквы русского? и сколько надо прибавлять?
блин... уеду нафик в англию =) чтоб проще было.

Посмотри в хэлпе, там есть.

Chuma

24.12.2006 01:46

Re: Lower$(name$) + русский язык = проблема

HolyDel, блин... я те даже не знаю как отплатить - я 20 минут сидел и с альтом высчитывал когда русские буквы пойдут... альт + 128 =))))

блин ну не иду я простыми путями =))))

ЕЩЕ РАЗ СПАСИБО ВСЕМ ОТВЕТИВШИМ! ВСЕМ ПО ПЛЮСУ (Я просто не знаю как вас еще проблагодарить!)

PS немного поправлю
If Asc(m)>191 And Asc(m)<224 иначе буква а вылетает...

Часовой пояс GMT +4, время: 08:01.