Как написать программу:Замена символов на другие символы

← →
evn © (2007-11-14 04:01) [0]

Как в дельфи написать программу которая из текстового файла находит символы и вместо них ставляет другой символ? Помогите пожалуйста начинаещему программисту решить эту проблему, заранее благодарен

← →
vasIZmax © (2007-11-14 04:07) [1]

а с чем сопсно проблема?
синтаксис не знаешь, или логику работы не можешь понять?

← →
Slym © (2007-11-14 04:10) [2]

evn © (14.11.07 4:01)
начинаещему программисту
решить эту проблему
это начинающий менеджер... На самом деле нужно так: "Решить проблему! Срок исполнения 1 час." время пошло...

← →
evn © (2007-11-14 04:15) [3]

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

← →
Slym © (2007-11-14 04:27) [4]

evn © (14.11.07 4:15) [3]
какой собственно код должен быть
это другой вопрос... Любой "Мастер" ответит: "Красивый и документированный"

← →
Slym © (2007-11-14 04:32) [5]

evn © (14.11.07 4:15) [3]
если по делу...
то спустись до уровня годовалова малыша:
имеем кубики одни (красные) нужно убрать и поставить другие (синие)... пока не кончились кубики делать находим первый красный кубик, и убираем его, ставим синий

← →
evn © (2007-11-14 04:34) [6]

Кто нибудь может подкинуть мне код программы, реально поможете!

← →
Slym © (2007-11-14 04:38) [7]

Slym © (14.11.07 4:32) [5]
да в твоем случае кубики нужно достать из коробки (файла) и вернуть в коробку (файл), а рабочим столом считай память...

итого:

имеем коробка с кубиками стол начало достать кубики из коробки на стол попытаться вызов процедуры (замена("красные на синие")) сложить кубики обратно в коробку конец попытки освобождаем стол от хлама// иначе стол в конце концов сломается от неосвобожденного мусора конец

← →
vasIZmax © (2007-11-14 04:41) [8]

> [5] Slym © (14.11.07 04:32)

имхо, не поможет ему сие:)

> [6] evn © (14.11.07 04:34)

смотри здесь http://www.delphiworld.narod.ru/
мож найдешь чего.
и&#133 и человек которому нужен просто код  не начинающий.

← →
Slym © (2007-11-14 04:49) [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:52) [10]

> "c:\boot.ini"

> s:=StringReplace(s,"0","1",[rfReplaceAll]);

:)

← →
evn © (2007-11-14 04:54) [11]

:))буду разбираться, спасибо!

← →
Riply © (2007-11-14 05:21) [12]

> [8] vasIZmax © (14.11.07 04:41)
> и… и человек которому нужен просто код — не начинающий.

Соглашусь с этим утверждением.
Правда можно чуть подправить: Не достоин звания "Начинающий" :)

← →
Правильный_Вася (2007-11-14 11:24) [13]

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

← →
pioner85 (2007-11-14 11:25) [14]

> > s:=StringReplace(s,"0","1",[rfReplaceAll]);

Куль, потом пишем аналогичную програмку на паскале со строчкой
"s:=StringReplace(s,"1","0",[rfReplaceAll]);", записываем на загрузочную дискетку о!чудо!все работает!

pioner85 (14.11.07 11:25) [14]
о!чудо!все работает!
от фигня-то! ntfs! :(

← →
Malik (2007-11-14 18:25) [16]

Да блин и по анкете не скажеш (если она конечно правдивая), что РГР решает да и выуживает тут решение одной из задач; хотя может быть он на второе высшее..., но блин с таким рвением к знаниям он просто штаны просиживает там..

← →
Vice____ (2007-11-14 18:36) [17]

> Как написать программу:Замена символов на другие символы

с функциями
Замена P3 на P4 и 256ОЗУ на 256*4 и win95 на XP
и чтобы все ето в трею)

Как написать программу:Замена символов на другие символы Найти похожие ветки