Пересечение числовых диапазонов

[Valera]

Добрый день.
Есть текстовый файл:
красные,501-1000
желтые,701-1000
красные,2001-3000 и т.д., где цифры - это номера на картах.
Задача: поступил заказ на карты - красные,701-1000. Нужно узнать есть ли уже карты с такой нумерацией?
Т.е. есть ли пересечение диапазонов?
Подскажите логику как искать это пересечение.

[Stilet]

Т.е. есть ли такие в файле, или есть ли в файле повторы?

[Valera]

Да. Т.е. были ли уже карты с такой нумерацией?

[VIK_aka_TOR]

Обозначим проверяемый диапазон как а1 и b1, а то что считываем из файла как а и b ( начало диапазона и конец соответственнр) тогда
Читаем файл пока не закончен
Если ( а1 >=а и а1 <= б) или ( b1 >= a и b1 <= b)
Вхождение есть
Иначе продолжаем смотреть файликз

Если сработало на Вхождение диапазона - прерывает цикл и выводим сообщение, если все отработали второй ветке - вхождений нет

[Valera]

Мне кажется, что такое решение не описывает случай, когда проверяемый диапазон, например, шире того, что есть в файле. (в файле 500-600, а проверяемый 400-700).

[Stilet]

Ну тады загружать файл в память и делать поиск. Зависит от языка программирования.
Скажем на Делфи:

With TStringList.Create do begin
 if Lines.IndexOf('красные,701-1000')<>-1 then Были такие
 free;
end;

[VIK_aka_TOR]

Сообщение от Valera

Мне кажется, что такое решение не описывает случай, когда проверяемый диапазон, например, шире того, что есть в файле. (в файле 500-600, а проверяемый 400-700).

Что ж... Верное замечание, тогда еще добавить через или и обратную проверку аналогично мной приведенную, но уже будет а1 на месте а и наоборот, аналогично с b и b1

[Valera]

Язык Делфи. Уровень моей подготовки не позволяет быстро понять или мне достаточен такой ответ.

Сообщение от Stilet

Ну тады загружать файл в память и делать поиск. Зависит от языка программирования.
Скажем на Делфи:

With TStringList.Create do begin
 if Lines.IndexOf('красные,701-1000')<>-1 then Были такие
 free;
end;

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

[VIK_aka_TOR]

flag := true;
while not f.eof do // читаем покуда не конец файла
begin
// тут считываем а и b из файла
if (((a1 >= a) and (a1<= b)) or ((b1 >= a) and (b1<= b))) or (((a >= a1) and (a<= b1)) or ((b >= a1) and (b<= b1))) then
  begin
    flag := false;
    break;
  end;

end;

if flag then
 showmessage('Не пересекаются')
else
 showmessage('Пересекаются');

[Poma][a]

Хорошо..

for i := 1 to n do
   if (a[i].name = t.nm) and (p.lw >= a[i].lw) and (p.hg <= a[i].hg) then {}