Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
Внизразбить содержимое 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.014 c