Ищу программу перемешивания слов в больших текстах

[User74]

Доброе время суток!
Я не программист.
Очень нужна программа случайного перемешивания слов в больших текстах (до 100 тыс слов). Никак не могу найти такую программу либо как функцию в какой-нибудь более сложной - помогите пожалуйста.

Огромное спасибо!
User74

[Базиля]

Да и вряд ли вы ее найдете в интернете.(именно скомпилированный исходник)
Обычная задачка по работе со строками, не более того.

Вот, пожалуйста (клик)
Если желаете сами реализовать, все-таки прийдется вникать в это дело.

[Serge_Bliznykov]

загрузить в память (если я правильно понимаю, то это всего навсего около 2 - 4 Мб в памяти - мелочь по нынешним временам), перемешать в памяти (см. пост тут).
Всё.

[Базиля]

Serge_Bliznykov
Хороший вариант
Спасибо.
P.S. Но в данном случае, я все-таки на стороне польз. п/п
Интересно по какому алгоритму устроен метод Exchange.

[Serge_Bliznykov]

User74, Вы куда запропастились? Уже разобрались самостоятельно?
Или необходимость в программе отпала?

Сообщение от Базиля

Но в данном случае, я все-таки на стороне польз. п/п

э.. не совсем понял, о чём Вы... Что за пользовательская процедура/подпрограмма?..

Сообщение от Базиля

Интересно по какому алгоритму устроен метод Exchange.

да не вопрос!
Указатели местами в списке меняются:

procedure TList.Exchange(Index1, Index2: Integer);
var
  Item: Pointer;
begin
  if (Index1 < 0) or (Index1 >= FCount) then
    Error(@SListIndexError, Index1);
  if (Index2 < 0) or (Index2 >= FCount) then
    Error(@SListIndexError, Index2);
  Item := FList^[Index1];
  FList^[Index1] := FList^[Index2];
  FList^[Index2] := Item;
end;

[Базиля]

Serge_Bliznykov

да не вопрос!
Указатели местами в списке меняются:

Спасибо!
Буду знаком

э.. не совсем понял, о чём Вы... Что за пользовательская процедура/подпрограмма?..

Мне кажется, что в данном случае все-таки лучше изобрести этот самый велосипед собственноручно. Полезней будет и приятней

[User74]

Спасибо всем за помощь!!! И рад бы с толком воспользоваться советами, но ничего не понимаю в языках программирования...
Выход я нашел такой: мешаю строки программой "автоформат версией 4.4 бета 3 от 19.02.2012" - автор программы Плотников Сергей Александрович - ему также огромное спасибо.

Осталась одна маленькая задача - объединение строк в одну (удаление в тексте всех окончаний строк) - с ней пока справиться не могу, в сети ничего не нашел...

[Smitt&Wesson]

Сообщение от User74

Осталась одна маленькая задача - объединение строк в одну (удаление в тексте всех окончаний строк) - с ней пока справиться не могу, в сети ничего не нашел...

Строки заканчиваются кодом 0DH, 09H или их комбинацией. Комбинаций всего четыре. В каком нибудь Nex-редакторе открываем файл и методом замены, меняем эти коды на пробел, код 20H. Вот и всё.

[User74]

Спасибо огромное!

[Serge_Bliznykov]

меняем эти коды на пробел, код 20H.

можно и так


User74, написать такую программку не просто, а ОЧЕНЬ просто!

в архиве приложение, которое объединяет все строчки исходного файла в ОДНУ строку и сохраняет результат в выходной файл.
MergeTextFile.rar