Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Я что то совсем запутался с функцией pos. Вопрос следующий. Есть три переменные типа string, допустим s1,s2,s3, есть строка состоящая из 3 слов разделённых подчёркиваем, примерно так
1слово_2слово_3слово (количество знаков в словах может быть разным). В s1 занести 1слово в s2 2слово и т.д. соответственно без подчёркивания.

Вопрос задал: GAZ (статус: Посетитель) Вопрос отправлен: 10 ноября 2009, 17:37 Состояние вопроса: открыт, ответов: 3.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, GAZ!
Воспользуйся библиотекой RxLib. В частности функцией:

function ExtractDelimited(N: Integer; const S: string; const Delims: TCharSet): string;

Ответ отправил: DNK (статус: Студент) Время отправки: 10 ноября 2009, 17:49

Ответ #2. Отвечает эксперт: Вадим К

Здравствуйте, GAZ!
никаких проблем, всё примитивно.
s - исходная строка, s1, s2,s3 - результат.

i := pos('_', s);
s1 := copy(s,1,i-1);
delete(s,1,i);
i := pos('_', s);
s2 := copy(s,1,i-1);
delete(s,1,i);
s3 := s;

var sl:TStringList;
begin
sl:= TStringList.Create;
sl.Delimiter := '_';
sl.DelimiterText := s;
//всё, текст распарсен.
//sl.count  колво слов
//sl[0] - первое слово
sl.free;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 10 ноября 2009, 17:52

Ответ #3. Отвечает эксперт: min@y™

Ну типа вот:

procedure Split(const Source: string; var S1, S2, S3: string);
var
  Temp: TStringList;
begin
  Temp:= TStringList.Create();
  try
    Temp.Delimiter:= '_';
    Temp.DelimitedText:= S;
 
    if Temp.Count > 0
      then S1:= Temp[0];
 
    if Temp.Count > 1
      then S1:= Temp[1];
 
    if Temp.Count > 2
      then S1:= Temp[2];
  finally
    Temp.Free();
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 10 ноября 2009, 17:57

Мини-форум вопроса

GAZ (статус: Посетитель), 10 ноября 2009, 19:29 [#1]: Ершов Денис а как подключить библиотеку RxLib, и ещё для разных версий delphi есть разница.

DNK (статус: Студент), 10 ноября 2009, 20:10 [#2]: Библиотеку можно скачать здесь. Я в свое время работал на Delphi 7. Библиотека была в виде исходников, поэтому устанавливал как пакет. "Digital Networked Knight"

10 ноября 2009, 20:40: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.