Сортировка по алфавиту

[korzh]

Есть у кого-нибудь идеи как сделать сортировку выводимых значений по алфавиту?

[Destruction]

А в чём собственно говоря проблема ?

Хвать алгоритму и вперёд Будь бы ещё в инже такой хитрый функций, как ord() - вообще быстро бы работало

PS: Если не усну, попробую что-нибудь из головы выдумать

[Destruction]

Не уснул - выдумал с ходу какую-то хреновину, теоретически - должна работать

Code: Select all

sub main()
   var i, len = 3
   DIM arr[val( str( len ) )]
   arr[0] = "Abc";
   arr[1] = "123"
   arr[2] = "1230"
   sort( arr, len )
   for i = 0 to len -1
      uo.print( arr[ i ] )
   next
end sub

Sub sort( arr, len )
   var i, j, r, temp
   for i = 1 to len -1
      j = i
      while j > 0
         r = getAlphaWord( arr[ j ], arr[ j - 1 ] )
         if r == 1 then
            temp = arr[ j ]
            arr[ j ] = arr[ j - 1 ]
            arr[ j - 1 ] = temp
            j = j - 1
         else
            j = 0
         endif
      wend
   next
EndSub

Sub getAlphaWord( word1, word2 )
   var i, r, len = strlen( word1 )
   if strlen( word1 ) > strlen( word2 ) then
      len = strlen( word2 )
   endif
   for i = 0 to len -1
      r = getAlphaSym( word1[ i ], word2[ i ] )
      if not r == 0 then
         return r
      endif
   next
   if strlen( word2 ) > strlen( word1 ) then
      return 1
   endif
   if strlen( word1 ) > strlen( word2 ) then
      return 2
   endif
   return 0
EndSub

Sub getAlphaSym( sym1, sym2 )
   var i, alpha = "0123456789"
   alpha = alpha + "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   alpha = alpha + "abcdefghijklmnopqrstuvwxyz"
   alpha = alpha + "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
   alpha = alpha + "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
   if sym1 == sym2 then
      return 0
   endif
   for i = 0 to strlen( alpha ) -1
      if alpha[ i ] == sym1 then
         return 1
      endif
      if alpha[ i ] == sym2 then
         return 2
      endif
   next
   return 0
EndSub

Старался действовать наиболее оптимально, но особо большие тексты я бы кормить этой штуке не рекомендовал

[Grin]

самое простое что можно с инжой сделать это с делать для слов второй масив который будет содержать их цифровой эквивалент.
много слов то?

[Destruction]

самое простое что можно с инжой сделать это с делать для слов второй масив который будет содержать их цифровой эквивалент.
много слов то?

А чем код выше тебе не по душе ?)

И массив не надо - в строчку читабельнее..

Хотя, как вариант:

Code: Select all

DIM alpha[ 256 ]
for i = 0 to 255
    alpha[ i ] = chr( i )
next

Винда примерно так и сортирует вроде

[korzh]

Не уснул - выдумал с ходу какую-то хреновину, теоретически - должна работать

Старался действовать наиболее оптимально, но особо большие тексты я бы кормить этой штуке не рекомендовал

Спасибо, попробую сейчас, отпишусь

А слов 100-200 гдето)

[Grin]

А чем код выше тебе не по душе ?)

И массив не надо - в строчку читабельнее..

я писал пост еще твоего не было;)
а то что ты написал в принципе ничего лутше не придумать, напильником если только обработать (код можно сократить)...
все равно так или иначе надо будет сравнивать по символьно...

[Destruction]

А чем код выше тебе не по душе ?)

И массив не надо - в строчку читабельнее..

я писал пост еще твоего не было;)
а то что ты написал в принципе ничего лутше не придумать, напильником если только обработать (код можно сократить)...
все равно так или иначе надо будет сравнивать по символьно...

Ну, как вариант - можно забивать массивчик через chr(), как я предложил выше, но тут у меня дай боже - 100 символов, а то будет 256 - упадёт производительность

А касательно напильника - работай, если хочешь - я не спец по сортировкам, я просто написал самое логичное, что пришло в голову

И про сокращение кода не спорю - вот например переменная r там нафиг не сдалась ))

[korzh]

Идею уловил, вроде работает. Только проблемка осталась, как отсортировать переменные не из массива, а из ини файла?

[Destruction]

Идею уловил, вроде работает. Только проблемка осталась, как отсортировать переменные не из массива, а из ини файла?

Считать ini-файл в массив, отсортировать, сохранить обратно.

Ффсё, файл отсортирован

А вообще - пиши по-русски, а то обижусь и уйду из топика

[korzh]

ну это то понятно, только при каждом добавлении чего то нового в ини файл придеться лезть в скрипт и дописывать массив..

[korzh]

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

[Destruction]

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

Оно тебе точно надо?...

PS: А такой способ сортировки вроде пузырьковым называется.. помню года 4 назад где-то читал..

[korzh]

Да я тоже вспонмил, в начале семестра было, после каникул все забыл

[Destruction]

Да я тоже вспонмил, в начале семестра было, после каникул все забыл

В общем всё, вопрос исчерпан.

Всё, что тебе по-сути надо - это функция getAlphaWord, которая вычисляет, которая строка наиболее "алфавитная"

Так, что юзай как заблагорассудится. Алгоритм пузырьков непосредственно в ф-ции sort().

Всё просто и удобно

[Grin]

ну 0 до 255 просто смысла нет, да и не в этом угловатость.
до статочно определить какое слово длиней
и начать по символьно поиск в какой из строк ты быстрей найдешь символ из ряда, но предварительно проверяешь не встречается ли этот символ в другой строке.

кода прилично меньше будет. да и перебор букв можно уменьшить.

[Destruction]

Простым смертным, вроде меня, твои слова ничего не говорят.

Возьми да сделай, а я уж на код погляжу

Вспоминается ситуация, с моим автоламбером, когда я выдумывал алгоритму для поиска ближайшего дерева, а мне Edred говорил в каждом посте, что я еретик (ну примерно так, дословно не помню, перечитывать лень)..

[Grin]

агоритм что утебя не класический пузырек, а модернизированый;)

[korzh]

Вообщем сделал, спасибо

[korzh]

оказалось не до конца сделал
Сортируется только один параметр, как связать с ним остальные?