|
Вопрос # 5 172/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Мне нужно чтоб строке: "INSERT INTO `victorina` VALUES (1, 'Чeлoвeк, изyчaющий иcтopию мaлeнькoй чacти cтpaны', 'краевед');" без кавычек. Осталься текст "Чeлoвeк, изyчaющий иcтopию мaлeнькoй чacти cтpaны, (краевед" без кавычек. Как это осуществить?
 |
Вопрос задал: F.@.E.R (статус: 1-ый класс)
Вопрос отправлен: 10 апреля 2011, 14:48
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, F.@.E.R!
Если строки именно такие, как показано выше, то никаких проблем.
var s:string; //это строка с выражением
r :string; // а тут будет результат
i,j:integer;
begin
i := pos('''', s);
if i = 0 then exit;// или continue; - это примитивная обработка ошибок.
j := LastDelimeter(')', s);
if j = 0 then exit;
r := copy(s, i, j - i + 1);
end;
думаю, этот код решит 99% проблем. если же есть строки, которые этим кодом не обрабатываются - показывайте их, посмотрим, придумаем.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 11 апреля 2011, 16:14
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 11 апреля 2011, 16:11; участников в обсуждении: 3.
11 апреля 2011, 00:29: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 08:22 [#1]:
Ну вот, я скопировал из твоей строки нужную подстроку: "Чeлoвeк, изyчaющий иcтopию мaлeнькoй чacти cтpaны, (краевед", без кавычек. Выделяй, нажимай Ctrl+C и забирай.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
IlluminatI (статус: 2-ой класс), 11 апреля 2011, 12:35 [#2]:
^Кэп объясняет 
|
|
|
F.@.E.R (статус: 1-ый класс), 11 апреля 2011, 16:04 [#3]:
Мне нужно на программном уровне. Строк будет с разными предложениями.
|
|
|
F.@.E.R (статус: 1-ый класс), 11 апреля 2011, 16:05 [#4]:
Много
|
|
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 16:11 [#5]:
Тогда и вопрос надо было по-другому задавать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
