Forum Discussion

Anonymous's avatar
Anonymous
Not applicable
6 years ago
Solved

HTML Tags versus PowerBI

Hello people, I'm trying to solve a problem in my report.... There are a lot of content with HTML Tags in my date and I tried many ways that I found here at community and I was not able to solve the...
Need Help
  • camargos88's avatar
    camargos88
    6 years ago

    Hi Anonymous ,

     

    Try this code on New Source -> Blank Query -> Advanced Editor:

     

    let
    Fonte = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hVJNj9MwEP0rQ08gtU23i7poKw5DYhajJC5xWiG2K+Sm3tRSmkRxuqj/nnFcRNkLByeeeeM3bz4eH0fb02x2W7TDT6eNtQqOujo0HRRN3XdmdzIOmy+KQu9NtfSG6k2118sGvKlVcer1ErTtVQdtp62uez2mGwUW5FIEUYgCsl/U1CcNLllHT+NXOjDMWMRzAd/WDBKRsDQXEiIGYcYlfUUiAAeQyRwTwjZ8w9JIEJRK9rDmzocpxlxiBo4HiQKkcP6MxWxDNpPAgCc+s21VDbY/V/rjdlQ0VdPdd+Xu7d3dGD7c0Fm823qNeiWyfHjta693tl2uMEMg6jDmzEFTSIWUAvIMP2H8RcAGOSRrVxLGLAFSmrDQE2BhumKZ8pB8yKXDeLLC8FK+O44MqSD/IPSTEKQfQ8wyliOkSC2IKIbOtS5GKpDkRGzDXO2f8QfLIMQIgadyqMO30z9a+0EOYhgMrY4F5SAFEK8f6BJ5NVe1UqBLzL6vWEaekJPhRFNIwqRLelGEfmmIidofCTm9EnrZCDcF3+X/rUjRdJ0pTb1v7kHs6Kr2zfgyyr5r6tKHwddTZVRd6zfgQXMsQVU9DVk6BttsR3DQpjw41/yWLNsVdA3a6kT0NrBHU+lzYI6q1DaYTWzlgqvzxAGmLifPqtA/b54X7+fTltKOoDf9sEV/E/wy+/7whz/4p8Brsa9rfvoN", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [comentario = _t]),
    #"Added Custom" = Table.AddColumn(Fonte, "Custom", each Text.Combine
    (List.Transform(
    Text.Split([comentario], "<"),
    each Text.AfterDelimiter(_, ">")), " "))
    in
    #"Added Custom"

     

    Did I answer your question? Mark my post as a solution!
    Ricardo

camargos88's avatar
camargos88
Community Champion
6 years ago

Hi Anonymous ,

 

Try this code on New Source -> Blank Query -> Advanced Editor:

 

let
Fonte = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hVJNj9MwEP0rQ08gtU23i7poKw5DYhajJC5xWiG2K+Sm3tRSmkRxuqj/nnFcRNkLByeeeeM3bz4eH0fb02x2W7TDT6eNtQqOujo0HRRN3XdmdzIOmy+KQu9NtfSG6k2118sGvKlVcer1ErTtVQdtp62uez2mGwUW5FIEUYgCsl/U1CcNLllHT+NXOjDMWMRzAd/WDBKRsDQXEiIGYcYlfUUiAAeQyRwTwjZ8w9JIEJRK9rDmzocpxlxiBo4HiQKkcP6MxWxDNpPAgCc+s21VDbY/V/rjdlQ0VdPdd+Xu7d3dGD7c0Fm823qNeiWyfHjta693tl2uMEMg6jDmzEFTSIWUAvIMP2H8RcAGOSRrVxLGLAFSmrDQE2BhumKZ8pB8yKXDeLLC8FK+O44MqSD/IPSTEKQfQ8wyliOkSC2IKIbOtS5GKpDkRGzDXO2f8QfLIMQIgadyqMO30z9a+0EOYhgMrY4F5SAFEK8f6BJ5NVe1UqBLzL6vWEaekJPhRFNIwqRLelGEfmmIidofCTm9EnrZCDcF3+X/rUjRdJ0pTb1v7kHs6Kr2zfgyyr5r6tKHwddTZVRd6zfgQXMsQVU9DVk6BttsR3DQpjw41/yWLNsVdA3a6kT0NrBHU+lzYI6q1DaYTWzlgqvzxAGmLifPqtA/b54X7+fTltKOoDf9sEV/E/wy+/7whz/4p8Brsa9rfvoN", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [comentario = _t]),
#"Added Custom" = Table.AddColumn(Fonte, "Custom", each Text.Combine
(List.Transform(
Text.Split([comentario], "<"),
each Text.AfterDelimiter(_, ">")), " "))
in
#"Added Custom"

 

Did I answer your question? Mark my post as a solution!
Ricardo

Anonymous's avatar
Anonymous
Not applicable
6 years ago

Hi camargos88 .

 

That's works perfectly! Thank you!

 

I have just a question:

 

1 - Is there any way to decode this part of data that I put below in red? For example, this part of text would be: "Nossa melhor contribuição"

 

 

Thank you again and again 🙂

  • Anonymous's avatar
    Anonymous
    Not applicable
    6 years ago

    camargos88 - I got it 🙂

     

    I found the code below and it works to encode/decode html texts. Thank you 😉

     

    (Text as any) => let
    Source = Text,
    Custom1 = Web.Page(Source),
    Data = Custom1{0}[Data],
    Children = Data{0}[Children],
    Children1 = Children{1}[Children],
    Children2 = Children1{0}[Children],
    Text1 = Children2{0}[Text]
    in
    Text1

    • camargos88's avatar
      camargos88
      Community Champion
      6 years ago

      Anonymous ,

       

      With this code you dont need to split any text! Good one!

       

      Ricardo