TStringlist.SaveToFile без спец символов

[IliaIT]

как сохранить без 3х спец символов в начале файла? коды символов (EF BB BF)
memo1.Lines.SaveToFile('1.xls', TEncoding.UTF8);
дельфи xe5

на эти символы ругается либероофис при открытии файла. хотя ексель открывает их нормально. если символы удалить из файла потом руками то файл открывается хорошо.

[Аватар]

Через TStringStream? Где-то читал, что его SaveToFile без маркера пишет

[Serge_Bliznykov]

кстати, а если содержимое TStringList сохранить в поток(Stream), а потом этот Stream записать в файл, маркеры будут?

Если да, то, имхо, поток можно записать не от начала, а сдвинув позицию на три байта...

[Stilet]

1.xls

Опа... А как ты в этот формат запихнул простой текст из мемо?
Всмысле на что расчет?

[Аватар]

Та тож наверно csv c таким расширением

[Serge_Bliznykov]

Сообщение от Stilet

Опа... А как ты в этот формат запихнул простой текст из мемо?
Всмысле на что расчет?

О! Точно! XLS!!!! Из мемо!!

я слона то и проглядел!!!

[Stilet]

О! Точно! XLS!!!! Из мемо!!

... из Мемо, Карл! МЕМО!!!!

[IliaIT]

на самом деле там структура xml. но если дать разрешение xml, то на компах без мс офиса открывает интернет експлоером и что бы не парится с настройкой компов на правильный формат дал расширение xls, которое по умолчанию открывает либероофис.

неплохо вы обосрали тему, но решение как оказалось простое, хотя видимо никто и не пытался поглядеть как на самом деле сохраняет весь класс TStrings.

memo1.Lines.WriteBOM:=false;
это свойство и отвечает за начальные кривые символы (преамбула) при ЛЮБОМ сохранении.
следовательно на добыло лишь чуток код подправить.

memo1.Lines.WriteBOM:=false;
memo1.Lines.SaveToFile('1.xls', TEncoding.UTF8);

из класса tstrings:

procedure TStrings.SaveToFile(const FileName: string; Encoding: TEncoding);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    SaveToStream(Stream, Encoding);
  finally
    Stream.Free;
  end;
end;
procedure TStrings.SaveToStream(Stream: TStream; Encoding: TEncoding);
var
  Buffer, Preamble: TBytes;
begin
  if Encoding = nil then
    Encoding := FDefaultEncoding;
  Buffer := Encoding.GetBytes(GetTextStr);
  if FWriteBOM then
  begin
    Preamble := Encoding.GetPreamble;
    if Length(Preamble) > 0 then
      Stream.WriteBuffer(Preamble, Length(Preamble));
  end;
  Stream.WriteBuffer(Buffer, Length(Buffer));
end;

[Stilet]

на самом деле там структура xml.

Где? В документе XLS? покажи скриншотом пожалуйста где ты там такое видел. Именно стандартный XLS, а не его ответвления. Я хочу увидеть.

[IliaIT]

ещё раз говорю, что разрешение выдано не верно специально, так как по умолчанию на компе без мс офиса файлы не удобно пользователям читать, а просили что бы и поглядеть легко было и структура была чёткая для совместимости со старой их прогой. вот и пришлось делать как просили но что бы и обычные пользователи могли посмотреть данные.
там вот это.

<?xml version="1.0"?>
<?mso-application 
progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-
microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-
com:office:office"
 xmlns:x="urn:schemas-microsoft-
com:office:excel"
 xmlns:ss="urn:schemas-
microsoft-com:office:spreadsheet"
 
xmlns:html="http://www.w3.org/T
R/REC-html40">
<Styles>
<Style ss:ID="Default" 
ss:Name="Normal">
 <Alignment ss:Vertical="Bottom"/>
 <Borders/>
<Font ss:FontName="Arial Cyr" 
x:CharSet="204"/></Style>
<Style 
ss:ID="s21"><NumberFormat 
ss:Format="dd/mm/yy\ 
hh:mm"/></Style>
<Style ss:ID="s22">
 <Font ss:FontName="Arial Cyr" 
x:CharSet="204" ss:Bold="1"/>
</Style></Styles>
<Worksheet ss:Name="Лист 1">
  <Table 
ss:ExpandedColumnCount="5" 
x:FullRows="1">
   <Column ss:Width="140"/>
  <Row ss:StyleID="s22">
   <Cell><Data 
ss:Type="String">Дружбы, 
2_Рє1</Data></Cell>
   <Cell><Data 
ss:Type="String">верхние 
этажи</Data></Cell>
   <Cell><Data 
ss:Type="Number">703</Data></
Cell>
   <Cell><Data 
ss:Type="String"></Data></Cell>
  </Row>
  <Row ss:Index="3" 
ss:StyleID="s22">
   <Cell><Data 
ss:Type="String">Дата</Data></
Cell>
   <Cell><Data 
ss:Type="String">m3</Data></Ce
ll>
  </Row>
   <Row ss:Index="5">
    <Cell ss:StyleID="s21"><Data 
ss:Type="DateTime">2015-07-
13T13:10</Data></Cell>
    <Cell><Data 
ss:Type="Number">23</Data></C
ell>
   </Row>
  </Table>
  <WorksheetOptions 
xmlns="urn:schemas-microsoft-
com:office:excel">
  
<Selected/><Panes><Pane><Nu
mber>3</Number></Pane></Pan
es>
</WorksheetOptions></Worksheet
></Workbook>

к этому содержимому по умолчанию при сохранении добавлялось 3 байта которые я не просил, как потом оказалось не отказался от них принудительно.