Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замена английских букв на русские / 7 сообщений из 7, страница 1 из 1
17.02.2005, 09:30
    #32920039
w3d
w3d
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
Как можно в базе заменить все английские буквы на русские (например m на м) или наоборот?
...
Рейтинг: 0 / 0
17.02.2005, 09:31
    #32920041
Дмитрий Петров
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
chrtran()
...
Рейтинг: 0 / 0
17.02.2005, 13:23
    #32920776
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
w3dКак можно в базе заменить все английские буквы на русские (например m на м) или наоборот?
Наверное не в базе, а в таблице.
SELECT <my_table>
SCAN
REPLACE field1 WITH My_func(my_table.field1),;
fileld2 WITH My_func(my_table.field2),;
.....................
ENDSCAN
........................

FUNCTION My_func
LRAPAMETERS m.c_field
LOCAL m.c_new_field, m.n_len_field, i, m.c_1
m.c_new_field = ''
m.n_len_field = LEN(ALLTRIM(m.c_field))
IF m.n_len_field > 0
FOR i = 1 TO m.n_len_field
DO CASE
CASE SUBSTR(m.c_field,i,1) = 'N' && Это Латинская
m.c_1 = 'Н' && Это Русская
.....................
ENDCASE
m.c_new_field = m.c_new_field + m.c_1
ENDFOR
ELSE
m.c_new_field = ''
ENDIF
RETURN m.c_new_field

Что-то в этом роде.
...
Рейтинг: 0 / 0
17.02.2005, 13:25
    #32920785
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
2 Владимир СА

Использование chrtan() сократит код в разы.
...
Рейтинг: 0 / 0
17.02.2005, 13:28
    #32920793
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
AleksMed2 Владимир СА
Использование chrtan() сократит код в разы.
А я и не спорю. Я в качестве примера.
...
Рейтинг: 0 / 0
19.02.2005, 09:28
    #32924521
w3d
w3d
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
спасибо всем за советы
...
Рейтинг: 0 / 0
20.02.2005, 11:57
    #32925003
Yuriy Zaytsev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена английских букв на русские
Ну вот еще один СОВСЕМ короткий код!

[* Кончено можно и так
mStr = chrtran(m.FIO,"etopahkcbmxETOPAHKCBMX","еторанксвмхЕТОРАНКСВМХ")

Параметр 1 = ENG , 2 = RUS буквы

Юрий Зайцев
НОВЫЙ УРЕНГОЙ
"ЗАПСИБКОМБАНК" ОАО
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замена английских букв на русские / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]