IXMLDocument.SaveToFile() boşluk yerine girinti için sekme karakterini kullanır

Question

Özgün olarak boşluk girintileri (her iç içe geçmiş öğe için 2 boşluk) kullanılarak biçimlendirilmiş bir XML dosyasına sahibim.

Bu dosyayı IXMLDocument kullanarak yükleyip kaydettiğimde, boşluk girintileri sekme karakterlerini değiştiriyor (kod no. 9). İşte

kodudur:

var 
    FileName: String; 
    Document: IXMLDocument; 
... 
Document := XMLDoc.LoadXMLDocument(FileName); 
Document.SaveToFile(FileName); 

Ben NodeIndentStr özelliğini kullanmaya çalıştı - hayır sonucu:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.NodeIndentStr := ' '; 
Document.SaveToFile(FileName); 

çok FormatXMLData kullanılmış - hayır sonucu:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.XML.Text := XMLDoc.FormatXMLData(Document.XML.Text); 
Document.Active := True; 
Document.SaveToFile(FileName); 

Ben nasıl sekme karakterleri yerine boşluk girintileriyle kaydetmek

Answer 1

IXMLDocument'da ayrıştırıcının beyaz alanları korumak için söylenebileceği bir seçenek var.

böyle kullanın:

Document.ParseOptions := 
    Document.ParseOptions+[poValidateOnParse]+[poPreserveWhiteSpace]; 

Yasal Uyarı: Ben denemedim.

Answer 2

Farklı olandan emin değilim ama Document.ParseOptions + [poValidateOnParse, poPreserveWhiteSpace]; benim için uygun değildi. benzer

şey çalıştı:

var 
    xmlDoc: IXMLDOMDocument2; 

xmlDoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument2; 
xmlDoc.validateOnParse := True; 
xmlDoc.preserveWhiteSpace := True;