VPF::Помогите оформить текст в файле

Pavelbej

Дата 19.2.2008, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Нужно дерево папок и файлов сохранить в файл в первозданном виде, а у меня получается не очень красиво. Посоветуйте что нибудь

Вот что получается:
user posted image

А вот что нужно:

Код


#FOLDER
    ID=11
    NAME=Корзина
    TRASH FOLDER=YES
    UNIQUEID=a86af3602b5641109de0dac709aeddbd

#FOLDER
    ID=31
    NAME=Software
    CREATED=1202893843

#FOLDER
    ID=34
    NAME=Soft
    CREATED=1202894476

#URL
    ID=35
    NAME=FreeTranslation.com
    URL=http://www.freetranslation.com/

#URL
    ID=36
    NAME=Front Page
    URL=http://www.nytimes.com/

Cохраняю так (в текстовый файл):

Код


procedure SaveToOperaBookmark(Node: PVirtualNode; str: TStrings);
var Node1: PVirtualNode;
    Data1: PLinksCollector;
begin
    Node1 := Node.FirstChild;
    if Assigned(Node1) then
    repeat
        Data1 := form1.VsT1.GetNodeData(Node1);
        if assigned(data1) then
          str.Add(data1^.Location);
        SaveToOperaBookmark(node1, str);
        Node1 := Node1.NextSibling;
    until Node1 = nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str1: TStrings;
begin
   str1:=TStringList.Create;
   try

   SaveToOperaBookmark(vst1.RootNode, str1);
   if savedialog1.Execute then
      str1.SaveToFile(savedialog1.FileName);
   finally
      str1.Free;
   end;
end;

Интересно вышло, когда копировал сюда текст, то он отобразился так как надо.
Так в чем тут дело?

VICTAR

Дата 20.2.2008, 00:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

То что на картинке, откуда это? В чем просматриваешь?

Pavelbej

Дата 20.2.2008, 02:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Странно, когда создавал тему, картинка была. Проверил в новом окне, все нормально. Что-то с форумом наверное.

Вот ссылка http://www.vscsoftware.com/result.gif

Esperito

Дата 20.2.2008, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 2.9.2007

Репутация: 1
Всего: 3

Какие у тебя символы конца строки? Должно быть #13#10, а у тебя похоже только какой-то один из них.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »