База данных. Язык свободный.

[proert]

Строки текстового файла содержат фамилии студентов.
Определить порядковый номер байта, начиная с которого
располагается первая по алфавиту фамилия. Заменить данную
фамилию в исходном файле символами '*', не переписывая этого
файла.
Есть вопрос, как изменить не переписывая.Или сделать обращение по номеру байта и изменение его. Язык программирования свободный но я думаю использовать Дельфи для сортировки.

[ViktorR]

Есть вопрос, как изменить не переписывая.

Если изготовить типизированный файл, с подходящей структурой, то можно читать элемент структуры, вносить изменения и возвращать его в файл, не переписывая весь файл (что непременно придётся делать с текстовым файлом)





Как-то так ...

[proert]

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

[ViktorR]

Отводите под фамилию, можно с именем и отчеством, некоторое число байт (строка).

Type FIO_Student = string[30];

Пример ниже только как вариант, когда запись об одном студенте - блок.

var fh : file of FIO_Student;

Формируете файл из блоков (компонентные файлы), размер которых равен длине строки.
Сколько студентов, столько и блоков будет записано в файл.

Далее запрашиваем фамилию.
Открываем файл на блочное чтение и запись.
Читаете первый блок и если ФИО не соответствует, то читаете следующий (цикл типа While NOT Eof(fh) do ).
Как только нашли нужную фамилию,
возвращаемся на один блок назад - функция seek(fh, -1)
и записываем константную строку '****************' нужной длинны
Файл можно закрыть.


Что-то вроде этого ...

[proert]

Можно еще кода, не совсем понял куда втиснуть

[Serge_Bliznykov]

я могу вам такой пример написать. хоть на старом добром ТурбоПаскале, хоть (проще, быстрее, надежднее, удобнее, мощнее) на Delphi..

три вопроса.
1-й - зачем?!!! это Вам надо?!
2-й. в какой кодировке будет текстовый файл?
3-й. БОЛЬШИЕ-маленькие (точнее, прописные и строчные) буквы при поиске первого по алфавиту нужно различать?

[proert]

1 Не могу понять, как организовать поиск по битам и замена значения по номеру.
2 Не имеет значения.
3 Буквы не обязательно различать.

[proert]

Лучше на Delphi.

[proert]

Неужели никто не знает?

[Serge_Bliznykov]

я знаю.. если завтра будет минутка - набросаю вам примерчик..

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