VPF::Как в Excel выбрать определенные строки

ASHA

Дата 25.5.2010, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Здравствуйте, Уважаемые!
Подскажите новичку...

Как средствами Delphi из файла Excel
выбрать все строки с определенным значением.
К примеру файл Excel содержит данные
Наименование                    Количество
Яблоки красные                   5
Груши зеленые                     10
Яблоки гнилые                      5

Мне надо выбрать все строки, содержащие "Яблоки"
и показать их в StringGrid
Заранее благодарен
Alex

cyberstream

Дата 25.5.2010, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: 1
Всего: 4

Считывание из Excel

Cчитывание в StringGrid

И выводи в StringGrid по условию.

--------------------

Не знаешь кого спросить? - Спроси google!

Akella

Дата 25.5.2010, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

Цитата(ASHA @ 25.5.2010, 06:30

)

Как средствами Delphi из файла Excel
выбрать все строки с определенным значением.

В этом разделе есть функция поиска

Код


Function TfmImpFromExcel.Find(sText:String;Var iRow:Integer;Var sCol:String;WorkSheetF:_WorkSheet):Bool;
Var
 UsedRange, Range: OLEVariant;
 t,y:Integer;//вспомогат для импорта
 FirstAddress: string;
begin //поиск
  Result:=False;
  UsedRange := WorkSheetF.Range['A1','Z5000'];
  Range := UsedRange.Find(What:=sText, LookIn := xlValues, LookAt := xlWhole,SearchDirection := xlNext);
  if not VarIsClear(Range) then begin
    try
      FirstAddress := Range.Address;
      //вычисляем номер строки из полученного адреса(абсолютные координаты)
      //он начинается после второго значка доллара
      t:=PosEx('$',FirstAddress,2);
      iRow:=StrToInt(Copy(FirstAddress,t+1,length(FirstAddress)-t));
      //вычисляем номер столбца из полученного адреса(абсолютные координаты)
      //буква начинается со второго символа
      y:=PosEx('$',FirstAddress,2);
      sCol:=Copy(FirstAddress,2,y-2);
      Result:=true;
      VarClear(Range);
      VarClear(UsedRange);
    except
      Result:=False;
    end;//try-except
  end;//if
end;

ASHA

Дата 25.5.2010, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Спасибо всем откликнувшимся.....

Alex

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »