Считать файл и заменить запятые переводом строки

Posted by Chas under Delphi, Пост-обзор

в тхт находится информация в виде тратата, тратата, тратата. т.е. через запятую. Нужно преобразовать в вид
тратата
тратата
тратата
т.е. заменить запятую на перенос строк.. как и чем лучше посимвольно считать тхт?

Человек_Борща
Стандартными TTextFile,Read,Write,Seek,Rewrite.. .
Ну и кто мешает зделать так?:

var

  i:LongInt;

  ts:TstringLIst;

begin

Ts:=TstringList.Create;

try

Ts.LoadFromFile('myMegabitFile.txt');

For i:=0 to Length(ts.Text) -1 do

begin

   if Ts.Text = Chr(',') then

   begin
   end;

end;

finally

FreeAndNil(ts);

end;

end;

а вообще лучше считать весь текст в строку а затем зделать так:

var

 NewS,OldS:string;

begin

OldS:=mySomethingText;

NewS:=StringReplase(OldS,PChar(','),#10#13,[rfReplaceAll]);

end;

тема на форуме

Похожие статьи

• Если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста
• Как проверить, что структура txt файла не нарушена
• Чтение дробных чисел из текстового файла
• Случайная строка из текстового файла
• Использовать переменную окружения в пути файла
• Загрузить два файла в Memo
• Как удалить все строки из txt в которых нет символа «+» ?
• Как из загруженного файла брать рандомную строку
• Заполнить текстовый файл случайными числами
• Удалить повторяющихся строк в текстовом файле