IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> работа с файлами!, помогите пожалуйста очень нужна помощь срочно помогите пожалуйста
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


мне нужно написать программу чтобы добавлялось инфа введеная с клавиатуры в конец файла если она не совпадает с уже существующими записями в файле.
например я ввел ПОМОЩЬ_НУЖНА в файле должно быть:
...
морковь любовь
я люблю програмировать
ПОМОЩЬ_НУЖНА
-------------------------------------------------------------------------------------------------------------------------------------
так же мне нужно написать программу которая бы удаляла из файла ту запись(и все остальное что находится на строке с этой записью) которая совпала с введеной с клавиатуры.

ЗЫ работа с нетипизироваными файлами(res, temp:text;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


присоединяешь файл AssignFile, открываешь его Rewrite, загоняешь в строку(или строки), проверяешь, сть ли такая же запись Pos, если есть,то удаляешь с позиции, которую возратила pos, до длины строки.
если нет, то втавляешь требуюмую строку append
зы путанно, но попробуй разобраться smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


сначала определись, с чем работа... с нетипизированными или с текстовыми?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


извеняюсь с текстовыми!! unsure.gif
я блин запарился уже не магу ничего написать не получается!!!
если не трудно напишите мне код программы я то я с ума ссойду я уже две недели от компа не отхожу!!!
и еще напишите для какого это случая программа wacko.gif

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

Добавлено через 6 мин.
если можно то поскорее пожалуйста у меня осталась последняя неделя до сдачи!!! я вас умоляю высокопочтеные умные дамы и господа!!!
я паскаль начал недавно изучать только в универе!!!

для курсовой я уже сделал сам графику в динамике поисковик сам сделал меню светящееся и реагируещее на стрелки и тд и тд а вот эти две штучки я сделать не могу

помогите пожалуйста
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 231
Пол: Женский

Репутация: -  6  +


Лови, по логике должно работать: smile.gif

var
f:text;
x,y:string;
i,n:integer;
Function Check(x:string):boolean;
Begin
Repeat
ReadLn(f,y);
If x=y then Check:=True;
Until Eof(f)=True;
Check:=False;
End;
Begin
ReadLn(n);
Assign(f,'input.txt');
ReWrite(f);
ReadLn(x);
WriteLn(f,x);
For i:=1 to n do
Begin
ReadLn(x);
If Check(x)=False then WriteLn(f,x);
End;
Close(f);
End.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Perfez, твою программу не запускал, но кажется мне что - то не то она делает ...
var
f: Text;
s, new: String;
begin

readln(new);

assign(f, 'text.txt'); reset(f);

if not(eof(f)) then begin

repeat
readln(f, s);
until eof(f) or (s = new);

if eof(f) and (s <> new) then begin
Append(f);
writeln(f, new);
end
end;

close(f);
end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


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

но все равно благодарен ты меня выручил очень сильно!!1
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


всем спасибо за все я сделал удаление сам!!!
но у меня к вам просьба вопрос: можно я выложу чуда код программы и вы посмотрите что у меня не так???потому что добавив коды добавления и удаления у меня они не работают,т.е. в добавлении независимо от того что введено добавляется всегда пустая строка в конец а удаление вообще не работает!!!хотя по отдельность как отдельные программки они работают!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Пионер
**

Группа: Пользователи
Сообщений: 86
Пол: Мужской

Репутация: -  0  +


думаю можно smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


я уже вс сделал сам всем большое спасибо и даже тем которые не помогли в частности мисс графити!!! give_rose.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 22:16
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name