Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Текст в Memo, Нужно вывести предложения, без запятых 
:(
    Опции темы
dddddd
Дата 11.12.2005, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.12.2005

Репутация: нет
Всего: нет
Помогите составить программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых
PM MAIL   Вверх
Snowy
Дата 11.12.2005, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
То есть не нужно такие предложения загружать вообще, или нужно в них все запятые поудалять?
PM MAIL   Вверх
dddddd
Дата 11.12.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.12.2005

Репутация: нет
Всего: нет
из текста должны остаться только те предложения, в которых нет запятых
PM MAIL   Вверх
F1reF0x
Дата 11.12.2005, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет
Код

var
  L: TStringsList;
  i: integer;  
begin
  L:= TStringsList.Create;
  L.LoadFromFile('1.txt');
  For i:= 0 to L.Counts -1 do
  begin  
    if pos(',' , L.Strings[i]) > 0 then
     begin
     end
    else
     Memo1.Lines.Add(L.Strings[i]);
     end;
  end;
end;


Компилируй %) Извиняюсь если есть опечатки в коде, писал не в дельфи.

Это сообщение отредактировал(а) F1reF0x - 11.12.2005, 18:36
PM MAIL   Вверх
Snowy
Дата 11.12.2005, 20:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Чуть поправлю.
Код

var
  L: TStringList;
  i: integer;
begin
  L:= TStringList.Create;
  L.LoadFromFile('1.txt');
  For i:= 0 to L.Count -1 do
  begin
    if pos(',' , L[i]) = 0 then
      Memo1.Lines.Add(L[i]);
  end;
  L.Free; 
end;
PM MAIL   Вверх
Guest
Дата 12.12.2005, 07:13 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Вообще то речь шла о предложениях, а не о строках...
  Вверх
<Spawn>
Дата 12.12.2005, 07:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64
Пардон, залогиниться забыл... Это был я smile


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Albinos_x
Дата 12.12.2005, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(Guest @ 12.12.2005, 07:13)
Вообще то речь шла о предложениях, а не о строках...

угу...
может попробовать так:
Код

var    
  L: TStringList;    
  i: integer;    
  s:string;
begin    
  L:= TStringList.Create;    
  L.LoadFromFile('1.txt');    
  For i:= 0 to L.Count -1 do    
     begin 
     if pos('.',L.strings[i])= 0 then                          // если в строке нет конеца предложения
        begin
        s:=s+L.strings[i];                                        // составляем предложения
        end
        else                                                              // если в строке есть конец предложения
        begin
        s:=s+copy(L.strings[i],1,pos['.',L.strings[i]);           // заканчиваем предложения
        if pos(',' ,s) = 0 then                                                    // если нет запятых
           Memo1.Lines.Add(L.strings[i]);                                  // пишем в мемо
        if pos('.',L.strings[i]))<>length(L.strings[i]) then          // если после точки есть ещё буквы
           begin
           s:=copy(L.strings[i],(pos('.',L.strings[i])+1),length(L.strings[i]));         // копируем остаток строки после точки
           if (i=(L.Count -1)) then      { если мы смотрим последнюю строку( и там были символы,то необходимо остаток проверить или потеряем её)}
              begin
              if pos(',' ,s) = 0 then    
                 Memo1.Lines.Add(L.strings[i]);
              end;
           end;
        end;    
     end;    
  L.Free;    
end;



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
dddddd
Дата 14.12.2005, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.12.2005

Репутация: нет
Всего: нет
А можно сделать так, чтобы все операции происходили в самом компоненте Memo
PM MAIL   Вверх
_hunter
Дата 14.12.2005, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
что значит "операции происходили в самом компоненте Memo"?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
wesadex
Дата 15.12.2005, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 21.6.2005

Репутация: нет
Всего: нет
Приведенный выше код воткни в TForm1.Create и будет тебе щастье или если ты хочешь прям совсем чтобы это было в компоненте, тады вот тебе такой компонент:
Код

unit memo1;

interface

uses
  SysUtils, Classes, StdCtrls;

type
  TMemo1 = class(TMemo)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure LoadDataFromFile(FileName:TFileName);
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMemo1]);
end;


procedure TMemo1.LoadDataFromFile(FileName:TFileName);
var
  L: TStringList;
  i: integer;
  s:string;
begin
  L:= TStringList.Create;
  L.LoadFromFile(FileName);
  For i:= 0 to L.Count -1 do     
     begin    
     if pos('.',L.strings[i])= 0 then                          // если в строке нет конеца предложения    
        begin    
        s:=s+L.strings[i];                                        // составляем предложения    
        end    
        else                                                              // если в строке есть конец предложения    
        begin    
        s:=s+copy(L.strings[i],1,pos('.',L.strings[i]));           // заканчиваем предложения    
        if pos(',' ,s) = 0 then                                                    // если нет запятых    
           Lines.Add(L.strings[i]);                                  // пишем в мемо
        if pos('.',L.strings[i])<>length(L.strings[i]) then          // если после точки есть ещё буквы    
           begin    
           s:=copy(L.strings[i],(pos('.',L.strings[i])+1),length(L.strings[i]));         // копируем остаток строки после точки    
           if (i=(L.Count -1)) then      { если мы смотрим последнюю строку( и там были символы,то необходимо остаток проверить или потеряем её)}    
              begin    
              if pos(',' ,s) = 0 then     
                 Lines.Add(L.strings[i]);
              end;    
           end;    
        end;     
     end;     
  L.Free;     
end;


end.


А вот так его можно использовать:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, memo1;

type
  TForm1 = class(TForm)
    Memo11: TMemo1;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo11.LoadDataFromFile('c:\1.txt');
end;

end.


Все работает - пробовал у себя только что!

Это сообщение отредактировал(а) wesadex - 15.12.2005, 11:43
PM MAIL   Вверх
Albinos_x
Дата 15.12.2005, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(Albinos_x @ 12.12.2005, 09:14)
угу...
может попробовать так:

приведённый мной код не расчитан на короткие предложения, когда в одной строке может быть больше одного предложения...вот исправленный:
Код

var     
  L: TStringList;     
  i: integer;     
  s:string;    
begin     
  L:= TStringList.Create;     
  L.LoadFromFile('1.txt');     
  For i:= 0 to L.Count -1 do     
     begin    
     if pos('.',L.strings[i])= 0 then                          // если в строке нет конеца предложения    
        begin    
        s:=s+L.strings[i];                                        // составляем предложения    
        end    
        else                                                              // если в строке есть конец предложения    
        begin    
        s:=s+copy(L.strings[i],1,pos['.',L.strings[i]);           // заканчиваем предложения    
        if pos(',' ,s) = 0 then                                                    // если нет запятых    
           Memo1.Lines.Add(s);                                              // пишем в мемо    
        if pos('.',L.strings[i]))<>length(L.strings[i]) then          // если после точки есть ещё буквы    
           begin    
           s:=copy(L.strings[i],(pos('.',L.strings[i])+1),length(L.strings[i]));         // копируем остаток строки после точки    
           while pos('.' ,s)>0 do                                                               {открываем цикл, пока в строке не закончатся точки}
               begin
               if (pos(',' ,s) = 0) or (pos(',' ,s)>pos('.' ,s)) then     {если нет запятых или находятся после точки}
                  Memo1.Lines.Add(copy(s,1,pos('.' ,s)));                    // добавляем строку
               if pos('.' ,s)<length(s) then                                            // если есть ещё символы
                  s:=copy(s,pos('.' ,s),length(s));                                  // записываем их
               end;
           if pos(',' ,s) = 0 then     
              Memo1.Lines.Add(L.strings[i]);    
           end;    
        end;     
     end;     
  L.Free;     
end;


при таком варианте это:
Код
...
if (i=(L.Count -1)) then      { если мы смотрим последнюю строку( и там были символы,то необходимо остаток проверить или потеряем её)}    
              begin    
              if pos(',' ,s) = 0 then     
                 Memo1.Lines.Add(L.strings[i]);    
              end;
...

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

и устраняется недостаток с короткими строчками

PS: не проверял, но по идее работать должно...
Добавлено @ 12:02
Цитата(wesadex @ 15.12.2005, 11:25)
Приведенный выше код воткни в TForm1.Create и будет тебе щастье или если ты хочешь прям совсем чтобы это было в компоненте, тады вот тебе такой компонент:

только в него необходимо внести поправку, с учётом указанной мной ошибки...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
iddqd
Дата 15.12.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: 0
Всего: 2
Гм.
StringList.LoadFromFile('file');
for i:=0 to StringList.Count-1 do
StringReplace(Stringlist.Strings[i], ',', '', [rfReplaceAll]);
Так не проще разве? Или я что-то пропустил?


--------------------
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0940 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.