| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как написать программу:Замена символов на другие символы [D2005, XP]
evn © (2007-11-14 04:01:00)Как в дельфи написать программу которая из текстового файла находит символы и вместо них ставляет другой символ? Помогите пожалуйста начинаещему программисту решить эту проблему, заранее благодарен
Vice____ (2007-11-14 18:36:00) [1]
> Как написать программу:Замена символов на другие символы
с функциями
Замена P3 на P4 и 256ОЗУ на 256*4 и win95 на XP
и чтобы все ето в трею)
Malik (2007-11-14 18:25:00) [2]Да блин и по анкете не скажеш (если она конечно правдивая), что РГР решает да и выуживает тут решение одной из задач; хотя может быть он на второе высшее..., но блин с таким рвением к знаниям он просто штаны просиживает там..
Slym (2007-11-14 13:07:00) [3]pioner85 (14.11.07 11:25) [14]
о!чудо!все работает!
от фигня-то! ntfs! :(
pioner85 (2007-11-14 11:25:00) [4]
> > s:=StringReplace(s,'0','1',[rfReplaceAll]);
Куль, потом пишем аналогичную програмку на паскале со строчкой
"s:=StringReplace(s,'1','0',[rfReplaceAll]);", записываем на загрузочную дискетку о!чудо!все работает!
Правильный_Вася (2007-11-14 11:24:00) [5]надо символы "начинающий программист" в трудовой книжке заменить на символы "дворник без метлы"
Riply (2007-11-14 05:21:00) [6]> [8] vasIZmax © (14.11.07 04:41)
> и… и человек которому нужен просто код — не начинающий.
Соглашусь с этим утверждением.
Правда можно чуть подправить: Не достоин звания "Начинающий" :)
evn (2007-11-14 04:54:00) [7]:))буду разбираться, спасибо!
vasIZmax (2007-11-14 04:52:00) [8]> 'c:\boot.ini'
> s:=StringReplace(s,'0','1',[rfReplaceAll]);
:)
Slym (2007-11-14 04:49:00) [9]vasIZmax © (14.11.07 4:41) [8]
я седня добрый :)
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,Classes;
var
Stream:TFileStream;
s:string;
begin
Stream := TFileStream.Create('c:\boot.ini', fmOpenReadWrite or fmShareDenyWrite);
try
SetLength(s,Stream.Size);
Stream.ReadBuffer(PChar(s)^,Length(s));
s:=StringReplace(s,'0','1',[rfReplaceAll]);
Stream.Position:=0;
Stream.WriteBuffer(PChar(s)^,Length(s));
finally
Stream.Free;
end;
end.
vasIZmax (2007-11-14 04:41:00) [10]> [5] Slym © (14.11.07 04:32)
имхо, не поможет ему сие:)
> [6] evn © (14.11.07 04:34)
смотри здесь http://www.delphiworld.narod.ru/
мож найдешь чего.
и… и человек которому нужен просто код — не начинающий.
Slym (2007-11-14 04:38:00) [11]Slym © (14.11.07 4:32) [5]
да в твоем случае кубики нужно достать из коробки (файла) и вернуть в коробку (файл), а рабочим столом считай память...
итого:
имеем
коробка с кубиками
стол
начало
достать кубики из коробки на стол
попытаться
вызов процедуры (замена("красные на синие"))
сложить кубики обратно в коробку
конец попытки
освобождаем стол от хлама// иначе стол в конце концов сломается от неосвобожденного мусора
конец
evn (2007-11-14 04:34:00) [12]Кто нибудь может подкинуть мне код программы, реально поможете!
Slym (2007-11-14 04:32:00) [13]evn © (14.11.07 4:15) [3]
если по делу...
то спустись до уровня годовалова малыша:
имеем кубики одни (красные) нужно убрать и поставить другие (синие)...
пока не кончились кубики делать
находим первый красный кубик, и убираем его, ставим синий
Slym (2007-11-14 04:27:00) [14]evn © (14.11.07 4:15) [3]
какой собственно код должен быть
это другой вопрос... Любой "Мастер" ответит: "Красивый и документированный"
evn (2007-11-14 04:15:00) [15]Проблема в том что есть текстовый файл в котором надо вместо одних символов надо вставить другие, хотел бы знать возможно ли это реализовать на дельфи, и какой собственно код должен быть?
Slym (2007-11-14 04:10:00) [16]evn © (14.11.07 4:01)
начинаещему программисту
решить эту проблему
это начинающий менеджер... На самом деле нужно так: " Решить проблему!Срок исполнения 1 час." время пошло...
vasIZmax (2007-11-14 04:07:00) [17]а с чем сопсно проблема?
синтаксис не знаешь, или логику работы не можешь понять?
| |
