Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];

Вниз

Вырезать строку из буфера   Найти похожие ветки 

 
Jack   (2008-11-19 09:14) [0]

Здравствуйте!

У меня в буфере содержится текст в виде:

Строка Строка Строка
Строка Строка Строка

Как можно вырезать первую строку из содержимого буфера?


 
Сергей М. ©   (2008-11-19 09:21) [1]

Что значит "вырезать" ? Просто удалить что ли ?


 
Rouse_ ©   (2008-11-19 09:22) [2]

Буфер обмена не поддерживает редактирование хранимых данных. Только вставку и очистку данных.


 
Jack   (2008-11-19 09:24) [3]


> Что значит "вырезать" ? Просто удалить что ли ?


Да


> Буфер обмена не поддерживает редактирование хранимых данных.
>  Только вставку и очистку данных.


Как лучше это сделать подскажите, StringList нормально будет?


 
AIK ©   (2008-11-19 09:32) [4]

Я тут быстренько намудрил чтото
var
s, a: string;
i: integer;
begin
a:= "";
S:= Clipboard.AsText;
  for i:=1 to length(s) do
    If s[i]<>" " then
      a:= a+s[i] else break;


результет: a
Можно если сообразить и по лучше сделать но типа так новерное


 
Сергей М. ©   (2008-11-19 09:34) [5]


> StringList нормально будет?


Вполне, если размер данных в буфере относительно невелик.


 
AIK ©   (2008-11-19 09:37) [6]

Так ещё лучше

var
s, a: string;
i: integer;
begin
a:= "";
S:= Clipboard.AsText;
I:= Pos(" ", s);
a:= Copy(s, 1, i-1);


 
Jack   (2008-11-19 09:55) [7]


> var
> s, a: string;
> i: integer;
> begin
> a:= "";
> S:= Clipboard.AsText;
> I:= Pos(" ", s);
> a:= Copy(s, 1, i-1);


Из таких данных:


> Строка Строка Строка
> Строка Строка Строка


у меня осталось только одна строчка "Строка" :(


 
Сергей М. ©   (2008-11-19 10:01) [8]


> Jack


Не парься, загрузи содержимое буфера в стринглист, удали в стринглисте нужную строку и выгрузи стринглист назад в буфер


 
AIK ©   (2008-11-19 10:08) [9]

Ах непонял сразу так тебеж толь ко строку надо

var
s, a: string;
i: integer;
begin
a:= "";
S:= Clipboard.AsText;
I:= Pos(#13, s);
a:= Copy(s, 1, i-1);


 
Jack   (2008-11-19 10:37) [10]


> AIK ©   (19.11.08 10:08) [9]


Немного не то =)

Спасибо всем, СтрингЛист использовал ...


 
AIK ©   (2008-11-19 10:46) [11]

Я оказывается совсем тебя не понял, так значит тебе нужно было весь текст кроме первой строки типа так наверное

var
s: string;
i: integer;
begin
 S:= Clipboard.AsText;
 I:= Pos(#13, s);
 Delete(s, 0, i-1);


Теперь результат: s


 
AIK ©   (2008-11-19 11:19) [12]

Виноват, чёто самной не то сегодня

var
s: string;
i: integer;
begin
S:= Clipboard.AsText;
I:= Pos(#13, s);
Delete(s, 1, i+1);


 
Anatoly Podgoretsky ©   (2008-11-19 14:30) [13]

> Jack  (19.11.2008 9:14:00)  [0]

Copy - это не совет, а название функции.


 
Anatoly Podgoretsky ©   (2008-11-19 14:31) [14]

> Jack  (19.11.2008 10:37:10)  [10]

Ты всегда пушку применяешь, так где достаточно мухобойки?



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.005 c
2-1226994626
Костик
2008-11-18 10:50
2008.12.28
Создать файл


6-1197227156
Алекс_
2007-12-09 22:05
2008.12.28
SPX/IPX


2-1226816784
aNtId
2008-11-16 09:26
2008.12.28
работа с реестром


15-1225530974
Riply
2008-11-01 12:16
2008.12.28
О пользе закрытия Handle`ов :)


2-1226901427
Mery
2008-11-17 08:57
2008.12.28
Update





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский