Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Замена английских букв на русские  [new]
w3d
Member

Откуда: Сургут
Сообщений: 681
Как можно в базе заменить все английские буквы на русские (например m на м) или наоборот?
17 фев 05, 09:30    [1326925]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
Дмитрий Петров
Member

Откуда: Пермь
Сообщений: 43
chrtran()
17 фев 05, 09:31    [1326929]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
Владимир СА
Member

Откуда:
Сообщений: 7882
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

Что-то в этом роде.
17 фев 05, 13:23    [1327939]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
AleksMed
Member

Откуда: Россия, Серпухов-Москва
Сообщений: 1546
2 Владимир СА

Использование chrtan() сократит код в разы.
17 фев 05, 13:25    [1327951]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
Владимир СА
Member

Откуда:
Сообщений: 7882
AleksMed
2 Владимир СА
Использование chrtan() сократит код в разы.

А я и не спорю. Я в качестве примера.
17 фев 05, 13:28    [1327961]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
w3d
Member

Откуда: Сургут
Сообщений: 681
спасибо всем за советы
19 фев 05, 09:28    [1332918]     Ответить | Цитировать Сообщить модератору
 Re: Замена английских букв на русские  [new]
Yuriy Zaytsev
Member

Откуда:
Сообщений: 17
Ну вот еще один СОВСЕМ короткий код!

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

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

Юрий Зайцев
НОВЫЙ УРЕНГОЙ
"ЗАПСИБКОМБАНК" ОАО
20 фев 05, 11:57    [1333681]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить