| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Разбиение текста [D7, WinXP]
Newby © (2005-01-18 10:15:00)Вообщем есть текст типа (Hiall gohome stfuok) нужно зделать так, чтобы он был разбит на (Hiall), (gohome) и (stfuok), но пробелов между словами может любое кол-во..
Пробовал зделать с Copy, но там нужно знать скока будет пробелов.
Knight (2005-01-20 15:27:00) [1]
> Newby (20.01.05 15:24) [26]
Эт Борланду спасибо... %)
Newby (2005-01-20 15:24:00) [2]Knight
вот то что я искал, я знал что есть что то такое, из раздела стандартного, полность удовлетворяет моим требованиям и имеет более быструю скорость... спасибо..
Knight (2005-01-20 15:16:00) [3]
> Separator © (20.01.05 15:11) [24]
> //Knight © (20.01.05 14:46) [23]
> А если разделитель не только пробел?
А кто тебе мешает перегнать это в функцию и передать в неё нужный разделитель?
Separator (2005-01-20 15:11:00) [4]//Knight © (20.01.05 14:46) [23]
А если разделитель не только пробел?
Knight (2005-01-20 14:46:00) [5]А чем это не устраивает?
Memo1.Lines.Delimiter:=' ';
Memo1.Lines.DelimitedText:=Edit1.Text;
Alexander Panov (2005-01-20 13:54:00) [6]Newby (20.01.05 13:21) [20]
Alexander Panov ты вообще проверял свою процедуру, вылетает ошибка....
Проверял. У меня нет ошибки в процедуре.
Можзет быть, у тебя в коде вызова ошибка?
Alex_Bredin (2005-01-20 13:48:00) [7]все делается одной строкой
StringList.CommaText := твоя строка
Newby (2005-01-20 13:21:00) [8]Alexander Panov ты вообще проверял свою процедуру, вылетает ошибка....
Separator (2005-01-20 12:50:00) [9]Вот ещё мой код тут можно посмотреть:
http://delphibase.endimus.ru/?action=viewfunc&topic=strchange&id=10352
Alexander Panov (2005-01-20 11:46:00) [10]В принципе, реализация заняла 7 минут.
procedure ProcessString(const Src: String; var tL: TStringList);
var
i,pz: Integer;
s: String;
begin
s := Src;
while s<>'' do
begin
pz := Pos(' ',s);
if pz>0 then tL.Add(Trim(Copy(s,1,pz-1)))
else
begin
tL.Add(Trim(s));
Exit;
end;
Delete(s,1,pz);
end;
end;
Alexander Panov (2005-01-20 11:37:00) [11]Newby (20.01.05 11:34) [16]
хм добавить пару строк у тебя нет времени, а вот вести темы на то какой я нуб и что я вообще здесь делаю(т.е флудить) у тебя есть время... так?
Так лень добавлять. Неинтересно... Я такие вещи десяток раз писал уже - реализация алгоритма занимает от 5 до 20 минут. А вот поговорить настроение есть. Да и тебе польза - ветка плавает. Только вот модераторы могут перенести в потрепаться или удалить за оффтопик. Так это мелочи по сравнению с удовольствием от общения;)
Newby (2005-01-20 11:34:00) [12]хм добавить пару строк у тебя нет времени, а вот вести темы на то какой я нуб и что я вообще здесь делаю(т.е флудить) у тебя есть время... так?
Alexander Panov (2005-01-20 11:24:00) [13]Newby (20.01.05 11:22) [14]
Ну если тебе интересно программа состоит не только из этой функции... я попросил помощи так как идти некуда больше.. конкретно тебе я вообще ни очём непросил... так что ненадо тут флудить... тем более несмешно, если хочешь показать что ты умнее чем кажешся помоги и не нужно строить из себя неизвестно кого...
Я тоже не люблю флуд.
Вижу, что у тебя запарка жуткая, и некогда изменить код, который уже дали, добавиви пару строк...
Newby (2005-01-20 11:22:00) [14]Ну если тебе интересно программа состоит не только из этой функции... я попросил помощи так как идти некуда больше.. конкретно тебе я вообще ни очём непросил... так что ненадо тут флудить... тем более несмешно, если хочешь показать что ты умнее чем кажешся помоги и не нужно строить из себя неизвестно кого...
Alexander Panov (2005-01-20 11:11:00) [15]Newby (20.01.05 11:03) [11]
Нелюблю флуд и невнимательных людей, я уже выше написал что программистом небыл, и быть несобираюсь.. но нужда заставила написать такую вот прогу...
т.е. ты полностью предлагаешь реализовать за тебя задачу, палец о палец не ударив?
Ну так это называется договор о выполнении работ.
заказчик, подрядчик, и пр., и т.п.
WinLamka (2005-01-20 11:04:00) [16]TParser
Newby (2005-01-20 11:03:00) [17]Alexander Panov
Нелюблю флуд и невнимательных людей, я уже выше написал что программистом небыл, и быть несобираюсь.. но нужда заставила написать такую вот прогу...
REA (2005-01-20 10:40:00) [18]Кавычечки там есть.
А вообще надо прикрывать темы с пробелами или статью писать "Пробелы и как с ними бороться"
Alexander Panov (2005-01-20 10:36:00) [19]Newby (20.01.05 10:35) [8]
но в указании пути тоже есть пробел, я хз что делать...
Головой думать.
Newby (2005-01-20 10:35:00) [20]Спасибо всем кто решил помоч
но забыл сказать, что в тексте будет наподобии такого:
VOL+ EXEC "C:\Program Files\Winamp\winamp.exe"
нужно получить
VOL+,
EXEC,
"C:\Program Files\Winamp\winamp.exe"
но в указании пути тоже есть пробел, я хз что делать...
Как вообще строят такие программы которые читают подобные конфиги..
| |
Страницы: 