Текущий архив: 2005.06.06;
Скачать: CL | DM;

Вниз

разбить содержимое StringList на строки   Найти похожие ветки 

← →
lehich ©   (2005-05-18 17:30) [0]

помещаю в StringList сплошной текст... в тексте присутствуют комментарии начинающиеся со знака "<" как сделать чтобы каждый такой коментарий шёл с новой строки?

Заранее премного благодарен!

---

← →
Yanis ©   (2005-05-18 17:37) [1]


var
 l: TStringList;
begin
 L.Text := StringReplace(L.Text, "<", #13#10"<", [rfReplaceAll]);
end;


---

← →
BFG9k ©   (2005-05-18 17:58) [2]

Извращение.


L.Delimiter:="<";
L.DelimitedText:=Your_text;

for i:=0 to L.Count-1 do
  ...L[i]...//ваши действия


---

← →
lehich ©   (2005-05-19 10:15) [3]

спасибо! сразу побочный вопрос, необходимо чтобы "<" переносилось на новую строку, но если после идет слэш, т.е. "</" чтобы оставалось как было... использую пару строк:

StringReplace(L.Text, "<", #13#10"<", [rfReplaceAll]);
StringReplace(L.Text, #13#10"</", "</", [rfReplaceAll]);

есть что-то более компактное или рациональное???

Заранее спасибо!

---

← →
evvcom ©   (2005-05-19 10:27) [4]

> что-то более компактное или рациональное

Например, написать свой StringReplace или, находя конец строки, добавлять в StringList строки по очереди.

---

← →
BFG9k ©   (2005-05-19 12:23) [5]

< и </ ... похоже на HTML теги.

---

← →
Alexander Panov ©   (2005-05-19 13:38) [6]

BFG9k ©   (18.05.05 17:58) [2]
Проверь, что получишь в результате выполения таких действий:

 tL := TStringList.Create;
 tL.Delimiter := "<";
 tL.DelimitedText := "Text=Проверка присвоения строки с пробелами<Text1=Проверка присвоения строки с пробелами";
 ShowMessage(tL.Values["Text"]);
 tL.Free;


---

← →
lehich ©   (2005-05-19 16:34) [7]

> Alexander Panov ©   (19.05.05 13:38) [6]

вот и я подумал, может у меня чего не так работает? :-)))

---

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

Текущий архив: 2005.06.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.038 c