На информационном ресурсе применяются cookie-файлы. Оставаясь на сайте, вы подтверждаете свое согласие на их использование.
Delphi. Вставить текст в файл.
        2695
                3
                
                
                    Midsummer
                
                
        
        veteran
            Всем доброго дня!
У меня имеется файл xml. Так получилось, что там по каким-то причинам не указана кодировка. С файлом я работаю при помощи TXMLDocument, а в таком виде он открывать файл решительно отказывается.
Соответственно, встала задача указать кодировку.
Как это лучше сделать? Была попытка через метод Write объекта TFileStream засунуть сведения о кодировке в файл:
price_enc.Seek(20, soFromBeginning);
price_enc.Write('encoding="windows-1251 "', 24);
Но тогда символы после 20-й позиции затираются новыми... Разумеется, это меня не устраивает.
Что посоветуйте?..
    У меня имеется файл xml. Так получилось, что там по каким-то причинам не указана кодировка. С файлом я работаю при помощи TXMLDocument, а в таком виде он открывать файл решительно отказывается.
Соответственно, встала задача указать кодировку.
Как это лучше сделать? Была попытка через метод Write объекта TFileStream засунуть сведения о кодировке в файл:
price_enc.Seek(20, soFromBeginning);
price_enc.Write('encoding="windows-1251 "', 24);
Но тогда символы после 20-й позиции затираются новыми... Разумеется, это меня не устраивает.
Что посоветуйте?..
Хм... а ручками залезть в файлик (в Блокноте например) и поправить кодировку? 
Но раз уж вы хотите программно это делать - то советую текстовые объекты - например загрузить в TStringList, поменять строку и выгрузить обратно))
    Но раз уж вы хотите программно это делать - то советую текстовые объекты - например загрузить в TStringList, поменять строку и выгрузить обратно))
Ручками нельзя, т.к. получившейся программой буду пользоваться не я, а исходный xml-файл будет постоянно меняться. 
А насчет TStringList... спасибо, это мысль попробую
попробую
    А насчет TStringList... спасибо, это мысль
 попробую
попробуюХм... с TStringList все получилось элементарно.
Наверное, у меня утром мозг совсем выключился
    Наверное, у меня утром мозг совсем выключился

ТОП 5
            2
                        
                    4