Dúvida
Como quebrar linha em um XML gerado pela classe FWMsExcel?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões
Solução
Na utilização de quebra utilizando a ASCII, que seria CR + LF (alimentação de linha - CHR(13)+CHR(10) ) não tem qualquer efeito na leitura/execução do XML, alterando apenas a escrita do arquivo de texto extensão .XML.
Para execução da "quebra de linha" deve-se passar o comando em HTML codes junto a String que deseja quebrar:
Conforme tabela:
| Code | Name | Displayed as |
| 	 | Horizontal tab | non-printing |
| | Line feed | non-printing |
| | Carriage Return | non-printing |
|   | Space | non-printing |
| ! | Exclamation mark | ! |
| " | Quotation mark | " |
| # | Number sign | # |
| $ | Dollar sign | $ |
| % | Percent sign | % |
| & | Ampersand | & |
| ' | Apostrophe | ' |
| ( | Left parenthesis | ( |
| ) | Right parenthesis | ) |
| * | Asterisk | * |
| + | Plus sign | + |
| , | Comma | , |
| - | Hyphen | - |
| . | Period | . |
| / | Slash | / |
| : | Colon | : |
| ; | Semi-colon | ; |
| < | Less than | < |
| = | Equals sign | = |
| > | Greater than | > |
| ? | Question mark | ? |
| @ | At | @ |
| [ | Left square bracket | [ |
| \ | Bbackslash | \ |
| ] | Right square bracket | ] |
| ^ | Caret | ^ |
| _ | Underscore | _ |
| ` | Acute accent | ` |
| { | Left curly brace | { |
| | | Vertical bar | | |
| } | Right curly brace | } |
| ~ | Tilde | ~ |
Exemplo:
#include 'totvs.ch'
#DEFINE CRLF " "
User Function TSTEXCEL()
Local oExcel := FWMSEXCEL():New()
oExcel:AddworkSheet("Teste - 1")
oExcel:AddTable ("Teste - 1","Titulo de teste 1")
oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col1",1,1)
oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col2",2,2)
oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col3",3,3)
oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col4",1,1)
oExcel:SetLineHeight(30.6)
oExcel:AddRow("Teste - 1","Titulo de teste 1",{"Titulo de teste 1 " +CRLF+" Titulo de teste 2",12,13,14})
oExcel:AddRow("Teste - 1","Titulo de teste 1",{21,22,23,24})
oExcel:AddRow("Teste - 1","Titulo de teste 1",{31,32,33,34})
oExcel:AddRow("Teste - 1","Titulo de teste 1",{41,42,43,44})
oExcel:Activate()
oExcel:GetXMLFile("TESTE.xml")
Return
Saiba mais
FWMsExcel
0 Comentários