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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск в строке, Поиск в строке 
V
    Опции темы
mfn9
Дата 8.8.2007, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Добрый день
вопрос как осуществить поиск в строке.найти определённое значение
и присвоить переменной три знака после найденного значения

пример строки: нужно найти r8 и следующие три символа присвоить переменным

eirtuyior8jskdjgieor8sd645sdf8sdg

результат 
1=jsk
2=sd6
....
PM MAIL   Вверх
MetalFan
Дата 8.8.2007, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


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

Репутация: 22
Всего: 128
Pos/PosEx (StrUtils)
или за тебя код написать?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
mfn9
Дата 8.8.2007, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ну если не сложно то и код smile
или хотябы примерчик использования этой функции
PM MAIL   Вверх
somewhere
Дата 8.8.2007, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
mfn9, по функциям читаем Help
Код

s:='eirtuyior8jskdjgieor8sd645sdf8sdg';
a:=copy(s, pos('r8',s)+2, 3);
PM MAIL ICQ   Вверх
mfn9
Дата 8.8.2007, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
сории за наглость
но еще один вопросик
а как мне найденные значения присвоить разным переменным

Код

s:='eirtuyior8jskdjgieor8sd645sdf8sdg';
a:=copy(s, pos('r8',s)+2, 3);


a=jsk
b=sd6
....
заранее спасибо
PM MAIL   Вверх
Snowy
Дата 8.8.2007, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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

var
  sl: TStringList;
  i:  integer;
begin
  sl := TStringList.Create;
  sl.Text := StringReplace('eirtuyior8jskdjgieor8sd645sdf8sdg', 'r8', #13#10, [rfRaplaceAll]);
  for i := 0 to sl.Count-1 do
    ShowMessage(sl[i]);
  sl.Free;
end;
PM MAIL   Вверх
mfn9
Дата 8.8.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
результат получился такой

eirtuyio
jskdjgieo
sd645sdf8sdg

а нужно такой:
jsk
sd6

Спасибо за помощь smile
PM MAIL   Вверх
Snowy
Дата 8.8.2007, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 484
Ну так отрежь 3 первые символа от каждой строки через copy ;-)
PM MAIL   Вверх
mfn9
Дата 8.8.2007, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
отрезал smile
получилосьsmile
а как сделать что бы не записывалась самая первая строка
eir
jsk
sd6
'eir' - перед ней ведь не стоит r8

Это сообщение отредактировал(а) mfn9 - 8.8.2007, 12:49
PM MAIL   Вверх
Snowy
Дата 8.8.2007, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 484
Просто не бери её ;-)
Берии с 1-й, а не с нулевой smile
PM MAIL   Вверх
mfn9
Дата 8.8.2007, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Snowy, 
спасибо большое smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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