Работа с текстовыми файлами. Разбиение текста на строки определенной длины.

@LIFE4RUS · Регистрация: 04.10.2011

Author24 — интернет-сервис помощи студентам

Разбить произвольный текст находящийся в файле, на строки определенной длины. При переносе слов предусмотреть вывод дефиса.

@Arcor · 16.10.2011, 15:58

перенос должен производиться по грамматике? т.е. чтобы по слогам перенести, а не в каком-то месте? если так, то очень мощная программа это будет - анализ слов

@LIFE4RUS · 17.10.2011, 18:17 **[ТС]**

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

Добавлено через 21 час 32 минуты

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var f,g:textfile;
i,j,k,l:integer;
s,s1,s2:string;
begin
assignfile(f,'c:\1.txt');
{$I-}
reset(f);
{$I+}
while not eof (f) do
 
    begin
readln(f,s);
memo1.Lines.add(s);
    end;
     k:=strtoint(edit1.Text);
      i:=1;
      l:=length(s) div k;
     while i<=length(s) do
        begin
        s1:=COPY(S,i,k+1);
      if i+k*l<(s1[k+1]<>(' ')) and (s1[k]<>(' ')) and (s1<>copy(s,length(s)-k+1,k)) then
         begin
    s1:=concat(copy(s1,0,k),'-');
    memo2.lines.add(s1);
         end
    else
 memo2.lines.add(copy(s1,0,k)) ;
    i:=i+k ;
         end;
 
end;

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

@LIFE4RUS 0 / 0 / 1 Регистрация: 04.10.2011 Сообщений: 4
		1
	Работа с текстовыми файлами. Разбиение текста на строки определенной длины. 16.10.2011, 15:33. Показов 2318. Ответов 2 Метки нет (Все метки) Разбить произвольный текст находящийся в файле, на строки определенной длины. При переносе слов предусмотреть вывод дефиса. 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	16.10.2011, 15:58	2
	перенос должен производиться по грамматике? т.е. чтобы по слогам перенести, а не в каком-то месте? если так, то очень мощная программа это будет - анализ слов 0

	17.10.2011, 18:17

Опции темы

Работа с текстовыми файлами. Разбиение текста на строки определенной длины.

Решение