Посоветуйте каким образом в TIniFile лучше хранить многострочный текст. Надо сохранить\прочитать строковое значение такого вида:

Цитата

Line1 Line2 Line3

Хранить надо именно в ini-файлах, т.к. сторонние утилиты для, которых нужен этот файл требуют ini и ни чего другого.

Легче не придумать!!!

Заменяем ^M^J на какой-нить символ, например |

Запихиваем это в файл...

При чтении заменяем | на ^M^J

Запихиваем это в мемо....

Парадоксально, но именно так и пробовал, пишется нормально, а вот читается только до первой трубы (|), а дальше нет, пробовал на Windows XP Pro Eng SP2. Плюс к этому, в документации написано, что символы с кодами меньше 32 (пробел) могут не читаться.

Код

Var   slIni:TStringList; begin try   slIni:=TStringList.create;   slIni.Clear;   slIni.loadfromfile('c:\myfolder\file.ini'); или   slIni.savetofile('c:\myfolder\file.ini'); finally slIni.free; slIni:=nil; end;

Вот код на всякий случай:

Код

const  EnterI = '|'; // Переход на строку в файле  EnterM = ^M^J; // переход на строку в компоненте function IniEnter(Str: string):string; begin  if Pos(EnterI, Str) = 0   then    Result:=StringReplace(Str, EnterM, EnterI, [rfReplaceAll])   else    Result:=StringReplace(Str, EnterI, EnterM, [rfReplaceAll]) end;

Добавлено @ 08:48

Код

uses IniFiles; const  EnterI = '|';  EnterM = ^M^J; function IniEnter(Str: string):string; begin  if Pos(EnterI, Str) = 0   then    Result:=StringReplace(Str, EnterM, EnterI, [rfReplaceAll])   else    Result:=StringReplace(Str, EnterI, EnterM, [rfReplaceAll]) end; procedure TForm1.Button1Click(Sender: TObject); var  f: TIniFile; begin  f:= TIniFile.Create('C:\Demo.ini');  f.WriteString('Demo', 'Memo', IniEnter(Memo1.Lines.Text));  f.Free; end; procedure TForm1.Button2Click(Sender: TObject); var  f: TIniFile; begin  f:= TIniFile.Create('C:\Demo.ini');  Memo1.Text:=IniEnter(f.ReadString('Demo', 'Memo', ''));  f.Free; end;

Все работает... на достаточно больших мемо...

Это сообщение отредактировал(а) Pakshin A. S. - 16.6.2005, 08:48

Pakshin A. S., не работает в общем этот метод, попробую другие разделители...

У меня ХР Prof работает с 1000 строк по четыре буквы в каждой...

Не наю... Может не то что-то написал?

Может можно как-нибудь без разделителей обойтись? Хранить, например, каждую строку в отдельном значении... т.е. что-то вроде:

Цитата

Value_Line1=Line1 Value_Line2=Line2 Value_Line3=Line3 ...

или как-то проще можно?

НАФИГ? Проверь корректность кода... У меня свободно работает прога с цифрами в каждой строчке от 1 до 64000... Долго правда, но все-таки работает!

А все, понял в чем беда, при записи ^J оставался. Спасибо за то, что убедил, что метод рабочий, а то я уже начал всякие извращения выдумывать.

Т. е.? Что в итоге написал?
Добавлено @ 09:13
Кстати, а ини файл то не безразмерный!

Я бы все-таки в отдельном текстовом хранил... Или вообще для всего этого создал бы базу данных и работал с нею, т. к. по-моему это быстрее...
Добавлено @ 09:16
Вариант разонравился...
Плохой вариант Плохой вариант Плохой вариант...

О! Вот это больше нравится...

Код

uses IniFiles; const  EnterI = '|';  EnterM = ^M^J;  Ident = 'Memo';  NextIdent = 'Memo2'; function IniEnter(Str: string):string; var  i:integer; begin  if Pos(EnterI, Str) = 0   then    Result:=StringReplace(Str, EnterM, EnterI, [rfReplaceAll])   else    Result:=StringReplace(Str, EnterI, EnterM, [rfReplaceAll]) end; procedure TForm1.Button1Click(Sender: TObject); var  f: TIniFile; begin  f:= TIniFile.Create('C:\Demo.ini');  f.WriteString('Demo', Ident, IniEnter(Memo1.Lines.Text));  f.Free; end; procedure TForm1.Button2Click(Sender: TObject); var  s:string; begin  RichEdit1.Lines.LoadFromFile('C:\Demo.ini');  s:=RichEdit1.Text;  Delete(s, 1, Pos(Ident, s) + Length(Ident));  s:=Copy(s, 1, Pos(NextIdent+'=', s)-1);  Memo1.Lines.Text:=IniEnter(s); end;

Только RichEdit нуна спрятать или заменить его на что-нить создаваемое тут же...
Добавлено @ 09:29
Вместо NextIdent можно какой-нить постфикс использовать и дописывать его к преобразованному тексту...

Цитата(Pakshin @ 16.6.2005, 06:11)

Т. е.? Что в итоге написал?

Как у тебя, у меня замена была по ^M только.

Цитата(Pakshin @ 16.6.2005, 06:11)

Я бы все-таки в отдельном текстовом хранил... Или вообще для всего этого создал бы базу данных и работал с нею, т. к. по-моему это быстрее...

Я бы тоже, но нужно, как говориться, backward compatibility обеспечить.

Цитата

backward compatibility

А по-русски?

Pakshin A. S. Видимо, "обратная совместимость"

Добавлено @ 12:24
Имхо, плохая идея хранить такие массивы текста в Ini... Обязательно должен быть другой выход. Почему, к примеру, не хранить пути в INI к реальным файлам с данными?

Цитата

Видимо, "обратная совместимость"

Все-равно ен понял, что требуется...

Ребята, я может тормоз, но чем не подходит то, что dsergey предложил??????

Цитата(Pakshin @ 16.6.2005, 13:41)

Все-равно ен понял, что требуется...

Требуется хранить многострочный текст в одном из значений в ini файле, есть уже готовый софт (не мой), который эти ini файлы читает и переделывать его ни кто не собирется, следовательно так просто формат\способ хранения данных изменить нельзя, т.е. нужна обратная совместимость с этим софтом. Что бы хотя бы эти файлы коректно (без эксепшенов) читались без модификации софта, не важно что данные слегка кривоватые будут, надо что бы просто читалось.

Цитата

Имхо, плохая идея хранить такие массивы текста в Ini... Обязательно должен быть другой выход. Почему, к примеру, не хранить пути в INI к реальным файлам с данными?

Там тексты маленькие, максимум строчек 10, так что все ок.

Цитата(EKoshelev @ 17.6.2005, 04:28)

Ребята, я может тормоз, но чем не подходит то, что dsergey предложил??????

Пардон, но мне кажется, что его код к ini файлам имеет отношение только одним местом -- расширением, если его поменять на bmp, то можно будет сказать, что многострочный текст можно хранить и в графических файлах Надеюсь не нужно объяснять, что такое форматы файлов?

Цитата(cully @ 17.6.2005, 08:54)

Пардон, но мне кажется, что его код к ini файлам имеет отношение только одним местом -- расширением, если его поменять на bmp, то можно будет сказать, что многострочный текст можно хранить и в графических файлах  Надеюсь не нужно объяснять, что такое форматы файлов?

имелось ввиду, что твои ini-файлы именно как INI рассматривает, возможно та чужая прога, а что тебе мешает рассматривать их как обычные текстовые файлы и работать с ними обычным способом (см. совет dsergey)??

Лучше покажи один файлик и что с ним надо сотворить.

Многострочный текст лучше всего хранить в XML.

Цитата

Лучше покажи один файлик и что с ним надо сотворить.

Вот ини файл, в котором текс от двух компонентов:

Memo1=asdfasdfasdfkadhfkajdghfkjagfsdf...
Memo2=asdfasjdgfasdhfgkasjgfkasjfhgkasjfhgk...

Причем В тексте обоих компонентов может встречаться и Enter, который выводит в файле вот это:

Memo1=asdfasdfasdfkadhfkajdghfkjagfsdf...
asdfasdfasdfasdf...
Memo2=asdfasjdgfasdhfgkasjgfkasjfhgkasjfhgk...

Т. е. нарушается структура файла...

Pakshin A. S., это единственное, что мешает рассматривать файл как текстовый. Или есть ещё причины???

Впринцепе да...

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:25

Ну сохраняй типа такого:

Код

var i: integer; begin   with TStringList.Create do   try    Add(['Memo1']);    for i := 0 to Memo1.Count-1 do     Add('Part' + IntToStr(i+1) + '=' + Memo1.Lines[i]);   finally     free;   end;

Получишь свой ини:

Цитата

[Memo1] Part1=Строка1 Part2=Строка2 Part3=Строка3 .....

И так для всех мемо.

Т.к. наш ини файл не резиновый, то последний метод занимать будет больше места... Вообще по-нормальному соответственно нужен отдельный файл для инфы!

Автору топика, кажись, эта дискуссия уже неинтересна....

Наверное... ведь решение как я понимаю он получил...
Добавлено @ 12:20
Блин... не прочитал один пост:

Цитата

Требуется хранить многострочный текст в одном из значений в ini файле, есть уже готовый софт (не мой), который эти ini файлы читает и переделывать его ни кто не собирется, следовательно так просто формат\способ хранения данных изменить нельзя, т.е. нужна обратная совместимость с этим софтом. Что бы хотя бы эти файлы коректно (без эксепшенов) читались без модификации софта, не важно что данные слегка кривоватые будут, надо что бы просто читалось.

И ЭТИМ РЕАЛЬНО ВСЕ СКАЗАНО!

у меня такая проблема - в ini файл сохраняется даные из стороннего компонента, сохраняются цифры, компонет делит введенное число на сотни, например если в обычном Edit написать 1111111 - то так и будет написано, в этом компоненте остается 1 111 111 - и таким же образом сохраняется в ини файл. 
Я попробовал проверять на пробелы и заменять их. Не помогло. Сам ини выглядит так :


я посмотрел данный файл HEX редактором и вот что в нем. 


в HEX символ пробела  20, а здесь почемуто A0 между цифрами 1[A0]111[A0]111 - вот такая фигня по идеии  а при чтении ини файла в компоненте 1 111 111. 

кто знает как мне читать данный символ и заменять его ??? и что это вообще за символ ? 

решил проблему добавив chr($A0)