(21-03-2024, 00:52)Grandamakulo escribió: Nunca lo he probado como tal, pero supongo que sí. si me dices qué buscas, podemos verlo.
<svg xmlns="http://www.w3.org/2000/svg" data-icon="zoom_out" viewBox="0 0 24 24" width="24" height="24">
(21-03-2024, 22:38)Harpo escribió: Sacar viewBox="0 0 24 24", o cualquier otro atributo.
Public Function Color(s As String, htx As String, i As Integer) As String
Dim htm As New HtmlDocument
Dim ele As XmlElement
Dim att As XmlNode
htm.FromString(htx)
For Each ele In htm.Body.GetChildrenByTagName("svg")
If ele.Attributes.Count > 0 Then
For Each att In ele.Attributes
If att.Name = "viewBox" Then
Print att.Value
Endif
Next
Endif
Next
Return htx
End