

Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
Procedure.s get_outer_html(html$)
trennzeichen$="|"
anz=CountString(html$,"<") ; zählt die Anzahl der HTML Tags
outerhtml$=Trim(StringField(html$,1,"<")) ; liest den ersten, voranstehenden OuterHTML
If outerhtml$>"" ; (wenn vorhanden ;-)
outerhtml$=outerhtml$+trennzeichen$
EndIf ;
For i=1 To anz
text$=StringField(html$,i+1,">") ;
text$=Trim(StringField(text$,1,"<"))
If text$>""
outerhtml$=outerhtml$+text$+trennzeichen$ ;Trennzeichen, wenn erwünscht zwischen den einzelnen OuterHTML.
EndIf
Next
ProcedureReturn outerhtml$
EndProcedure
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
Procedure.s GetInnerOrOuterHTML(html$, OuterOrInner.l=0, trennzeichen$="") ; 0=Outer, 1=Inner
Protected result.s, *pos.Character=@html$, tag.l=OuterOrInner
While *pos\c
Select *pos\c
Case '<'
tag=1
Case '>'
tag=0
result+trennzeichen$
Default
If tag = OuterOrInner
result+Chr(*pos\c)
EndIf
EndSelect
*pos+SizeOf(Character)
Wend
ProcedureReturn result
EndProcedure
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End