powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замена английских букв на русские
7 сообщений из 7, страница 1 из 1
Замена английских букв на русские
    #32920039
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как можно в базе заменить все английские буквы на русские (например m на м) или наоборот?
...
Рейтинг: 0 / 0
Замена английских букв на русские
    #32920041
Дмитрий Петров
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chrtran()
...
Рейтинг: 0 / 0
Замена английских букв на русские
    #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
Замена английских букв на русские
    #32920785
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Владимир СА

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

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

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

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


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