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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> работа со строками, удаление части строки после опр. символа 
:(
    Опции темы
neweraser
Дата 29.2.2008, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Как можно удалить часть строки, например -
строка:     "Ape Escape Academy | #0012 | Party | 292 | cso | ENG | 7-Party Game"
а после удаления - 
строка:     "Ape Escape Academy"
т.е. удаление всех символов начиная с "|" и пробелом перед ним
p.s. если можно не через файл, а если, допустим строка находится в memo или в listbox
Спасибо


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
volvo877
Дата 29.2.2008, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
Код
s := Trim(Copy(s, 1, Pos('|', s) - 1));
?
PM MAIL   Вверх
neweraser
Дата 29.2.2008, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
можно чуть поподробнее, что такое trim?

Добавлено через 7 минут и 3 секунды
а, все понял, дошло, спасибо


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
neweraser
Дата 4.3.2008, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
извините за глупый вопрос, а как можно сделать наоборот, чтоб осталось только 
7-Party Game?


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
diamondd
Дата 4.3.2008, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

  s = RightStr(s, Length(s) - LastDelimiter('|', S) - 1));
PM MAIL   Вверх
Qu1nt
Дата 4.3.2008, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 50
Можно как-нибудь так:
Код

procedure TForm1.Button1Click(Sender: TObject);
const
  s = 'Ape Escape Academy | #0012 | Party | 292 | cso | ENG | 7-Party Game';

  function Pos_(const Find, Src: string): Integer;

    function Invert(const S: string): string;
    var
      i, Len : Integer;
    begin
      Len := Length(S);
      SetLength(Result, Len);
      for i := 1 to Len do
        Result[i] := S[Len - i + 1];
    end;

  begin
    Result := Length(Src) - Length(Find) - Pos(Invert(Find), Invert(Src)) + 2;
  end;

begin
  Self.Caption := Trim(Copy(s, Pos_('|', s) + 1, Length(s)));
end;
PM MAIL   Вверх
neweraser
Дата 4.3.2008, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Цитата(diamondd @ 4.3.2008,  19:26)
Код

  s = RightStr(s, Length(s) - LastDelimiter('|', S) - 1));

пишет ошибку: rightstr - неизв переменная

Добавлено через 5 минут и 6 секунд
у меня заполняется все в цикле:  

for q:= 0 to listbox1.Count-1 do
listbox1.Items[q]:= Trim(Copy(listbox1.items[q], 1, Pos('|', listbox1.items[q]) - 1));

- это для слов до первой "|", вот точно так же для 2-го случая ну никак не могу сделать, подскажите пожалуйста


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
THandle
Дата 4.3.2008, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Цитата(neweraser @  4.3.2008,  20:39 Найти цитируемый пост)
пишет ошибку: rightstr - неизв переменная


Код

uses 
  StrUtils;

...

s := RightStr(s, Length(s) - LastDelimiter('|', S) - 1);
PM   Вверх
neweraser
Дата 4.3.2008, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
все работает, всем огромное спасибо!


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

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

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

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

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

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

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


 




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


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

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