![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Delphi Master
Форумчанин Подтвердите свой е-майл
Регистрация: 31.03.2008
Сообщений: 803
|
![]()
Столкнулся с проблемой, необходимо удалить все строки в Excel таблице, в которых в первом столбце содержится символ "х"? Помогите советом
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 26.12.2008
Сообщений: 146
|
![]()
Я бы макрос написал...
Вот чтото типа процедуры проверки существованя "х" - латинской прописной буквы икс. Код:
Код:
"Hello, world!" - 17 errors 56 warnings
Последний раз редактировалось Тупой; 04.02.2009 в 22:58. |
![]() |
![]() |
![]() |
#3 |
Delphi Master
Форумчанин Подтвердите свой е-майл
Регистрация: 31.03.2008
Сообщений: 803
|
![]()
Спасибо, но я наверно неправильно сформулировал задачу. Необходимо это сделать из Дельфи..
|
![]() |
![]() |
![]() |
#4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]() Цитата:
По объектной модели Excel мы тебе можем ещё что-то подсказать (как получить какое-то свойство какого-то объекта), а как реализовать это всё на Дельфи - тут мы тебе ничем не поможем... Алгоритм поиска символа в ячейке тебе уже подсказали... Но можно сделать и проще: Код:
|
|
![]() |
![]() |
![]() |
#5 |
Delphi Master
Форумчанин Подтвердите свой е-майл
Регистрация: 31.03.2008
Сообщений: 803
|
![]()
Пробую так, но видать где-то ошибка:
Код:
|
![]() |
![]() |
![]() |
#6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Вместо for I2 := 0 to 200 do
напиши for I2 := 1 to 200 do Строки в Excel нумеруются с единицы. Ну а правильнее будет так: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
![]() Последний раз редактировалось EducatedFool; 04.02.2009 в 23:39. |
![]() |
![]() |
![]() |
#7 |
Delphi Master
Форумчанин Подтвердите свой е-майл
Регистрация: 31.03.2008
Сообщений: 803
|
![]()
Спасибо, заменил на 1, заработало, однако странно, если подряд идет две строки в которых находится символ "х", первая удаляется, а вторая нет... что это может быть?
Последний раз редактировалось Dux; 05.02.2009 в 00:58. |
![]() |
![]() |
![]() |
#8 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]() Цитата:
2. До или после этого символа присутствует пробел - ты сравниваешь значение ячейки с символом (XL.Cells[I2,1].value= 'x'), а я, чтобы этого избежать, предлагал определять наличие этого символа внутри ячейки: If Row.Cells(1) Like "*x*" Then (добавлено) Понял, в чём проблема. Надо уменьшать счётчик на единицу при удалении строки. Должно получиться что-то вроде этого: (не помню, можно ли в Дельфи изменять переменную цикла изнутри самого цикла...) Код:
Код:
(добавлено) Забыл совсем... В дельфи нет аналога оператора step И переменную внутри цикла трогать нельзя - вылетит ошибка Assignment to FOR-Loop variable 'i'. Ну, тут уже Ваша очередь что-нибудь изобретать...
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
![]() Последний раз редактировалось EducatedFool; 05.02.2009 в 01:14. |
|
![]() |
![]() |
![]() |
#9 |
Delphi Master
Форумчанин Подтвердите свой е-майл
Регистрация: 31.03.2008
Сообщений: 803
|
![]()
Значение "x" добавляется автоматически (при определенном условии), а не в ручную, так, что разница символов исключена... в сообщении выше я описал проблему более точно..
Здесь пример файла из которого надо удалить строки: book.xls Последний раз редактировалось Dux; 05.02.2009 в 01:05. |
![]() |
![]() |
![]() |
#10 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Есть еще более простой вариант (см. вложение. Запустите макрос "DelRows"). Вообще без организации цикла. Вот код, удаляющий строки, в столбце "A" которых значение "x", примененный во вложении:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 05.02.2009 в 05:54. Причина: Добавлено |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Excel. как удалить из таблицы все гиперссылки? и запретить что бы URL ими становились | 9go | Microsoft Office Excel | 2 | 17.01.2009 10:19 |
Удалить из строки S1 первую, последнюю, все подстроки совпадающие с S2 | ТРОЯН=) | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.12.2008 23:28 |
Удалить из строки все группы букв вида abcd | Григорийpnz | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 27.11.2008 12:48 |
Удалить из строки все группы вида abcd | Григорийpnz | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 18.11.2008 19:40 |
Надо в RichEdit Удалить все строки между двумя пустыми | Stas))) | Компоненты Delphi | 7 | 28.05.2007 16:49 |