Цитата:

И это вместо массивов или курсоров.

Цитата:

Я имел в виду, что если функция CHRTRAN однозначно, быстро и «за один присест» конвертирует 50 символов из латинских в русские, то зачем заводиться с массивами или курсорами?
Ещё 17 комбинаций однозначно конвертируются с помощью STRTRAN.

Цитата:

Но код будет длиннее

kornienko_ru
вот здесь как написать cTE1,cTE2,cTE3 = ?

Артём
нужно кириллицу превратить в латинские буквы по установленным правилам.
два вопроса.
- как сделать красиво
- как в коде программы моей переменной cTE присвоить значение , то которое в ней записано
пока так

kornienko_ru
Считал эти строки очевидными, поэтому в первый раз не написал. Опускаюсь до низшего уровня

kornienko_ru
у тебя в коде заменяются только маленькие

Артём
нужно кириллицу превратить в латинские буквы по установленным правилам.

kornienko_ru
Артем доработал твой пример, дополнительно вставил 9 strtran-ов для заглавных букв

kornienko_ru
Пример перекодировки 1000 раз выражения про булочки с 1-им sys(15) и 18 транами длился 43 мс, а с 3-мя sys(15) — 108 мс.

kornienko_ru
Что-то долго обсуждают эту тему... заглянул.

kornienko_ru
Где вы там увидели трехкратный перебор в одинарном цикле? Буквы с двумя латинскими символами довольно редки, тем более с тремя всего одна буква, точнее две -- заглавная и прописная. Поэтому на дополнительное второе и третье сложение символа будет уходить минимум времени.

akvvohinc
А по 2-3 раза посимвольно разбирать строку - это точно будет быстро работать?

kornienko_ru
За метод с использованием sys(15) топили вы, я просто реализовал вашу идею на практике

Цитата:

Здесь SYS(15) отработает очень быстро, но зато на девять STRTRAN() потребуется времени примерно в 20 раз больше.

Цитата:

функция CHRTRAN() работает в разы (примерно в 20 раз) медленнее, чем SYS(15), которая использовалась с той же целью в первом варианте решения.

kornienko_ru
Вы сами то не сделали ни-че-го.

kornienko_ru
Ну а про большие и маленькие — ну это тоже бла-бла.

kornienko_ru
у тебя в коде заменяются только маленькие

kornienko_ru
Ну вы меня Сергей и удивили своими познаниями, что извлечение 1 символа из строки командой subs(s,m.i,1) это очень медленно При этом опять таки ничего другого, никакого другого варианта извлечения символа, не предложили. Подскажите, может есть другой более быстрый способ, как извлечь 1 символ из строки

kornienko_ru
Данное обсуждение, как видно из темы для мелких строк.

kornienko_ru
У меня рука не поднимется обрабатывать строки через файлы

kornienko_ru
Рассматривание нереальной задачи — это троллинг и бла-бла.

kornienko_ru
У меня рука не поднимется обрабатывать строки через файлы

akvvohinc
функция CHRTRAN() работает в разы (примерно в 20 раз) медленнее, чем SYS(15), которая использовалась с той же целью в первом варианте решения.

akvvohinc
на мегабайтных строках ваша функция начнет "умирать", причем, совсем не прямо пропорционально длине

NN = 1000000
StringIn = 'съешь же ещё этих мягких французских булок, да выпей чаю'

L = 'abvgdeжziyklmnoprstufhцчшщъyьeюя'
cTE = ''
FOR i=1 TO 192
   DO CASE
   CASE i=32
      cTE = cTE + '_'
   CASE BETWEEN(i,65,90)
      cTE = cTE + CHR(i+32)
   CASE INLIST(i,168,184)
      cTE = cTE + 'e'
   CASE i=192
      cTE = cTE + L + L
   OTHERWISE
      cTE = cTE + CHR(i)
   ENDCASE
ENDFOR
sec1 = SECONDS()
FOR i = 1 TO NN
  s1 = SYS(15, cTE, StringIn)
ENDFOR
sec2 = SECONDS()
?sec2-sec1 

*-------------------------------
sec1 = SECONDS()
FOR i = 1 TO NN
StringOut = CHRTRAN(StringIn, ;
    'АБВГДЕЗИЙКЛМНОПРСТУФХЦХЫабвгдезийклмнопрстуфхсхы  ', ;
    'ABVGDEZIJKLMNOPRSTUFHCXYabvgdezijklmnoprstufhchy_-' )
ENDFOR
sec2 = SECONDS()
?sec2-sec1

Цитата:

Но скажите, в каких задачах может встретиться миллион применений подобной функции

akvvohinc
на мегабайтных строках ваша функция начнет "умирать", причем, совсем не прямо пропорционально длине

StringIn = 'съешь же ещё этих мягких французских булок, да выпей чаю'
StringIn = REPLICATE(StringIn, 100000)

*-------------------------------
sec1 = SECONDS()
StringOut = CHRTRAN(StringIn, ;
    'АБВГДЕЗИЙКЛМНОПРСТУФХЦХЫабвгдезийклмнопрстуфхсхы  ', ;
    'ABVGDEZIJKLMNOPRSTUFHCXYabvgdezijklmnoprstufhchy_-' )
sec2 = SECONDS()
?sec2-sec1

StringIn = REPLICATE(StringIn, 2)

sec1 = SECONDS()
StringOut = CHRTRAN(StringIn, ;
    'АБВГДЕЗИЙКЛМНОПРСТУФХЦХЫабвгдезийклмнопрстуфхсхы  ', ;
    'ABVGDEZIJKLMNOPRSTUFHCXYabvgdezijklmnoprstufhchy_-' )
sec2 = SECONDS()
?sec2-sec1

leonid
Думаю, тут Вы ошибаетесь. Выглядит, что как раз прямо пропорционально длине.

Цитата:

ваша функция начнет "умирать"

StringIn = 'съешь же ещё этих мягких французских булок, да выпей чаю'
StringIn = REPLICATE(StringIn, 60000)

FOR k=1 TO 3
    sec1 = SECONDS()

    = STRTRAN(StringIn,'ш', 'sh', -1,-1,3)

    sec2 = SECONDS()
    ? LEN(StringIn), sec2-sec1

    StringIn = StringIn+StringIn
ENDFOR