Code: Select all
Global base
base = {}
;; base:StripHTML(line$)
; Convert a string containing HTML codes into regular text
; Please note this is not an exhaustive list of character codes. Add more as required.
Function base:StripHTML(data$)
data$ = base:FindAndReplace(data$," "," ")
data$ = ReplaceStr(data$,"!","!")
data$ = ReplaceStr(data$,""","\"")
data$ = ReplaceStr(data$,"#","#")
data$ = ReplaceStr(data$,"$","$")
data$ = ReplaceStr(data$,"%","%")
data$ = ReplaceStr(data$,"&","&")
data$ = ReplaceStr(data$,"'","'")
data$ = ReplaceStr(data$,"(","[")
data$ = ReplaceStr(data$,")","]")
data$ = ReplaceStr(data$,"*","*")
data$ = ReplaceStr(data$,"+","+")
data$ = ReplaceStr(data$,",",",")
data$ = ReplaceStr(data$,"-","-")
data$ = ReplaceStr(data$,".",".")
data$ = ReplaceStr(data$,"/","/")
data$ = ReplaceStr(data$,"0","0")
data$ = ReplaceStr(data$,"1","1")
data$ = ReplaceStr(data$,"2","2")
data$ = ReplaceStr(data$,"3","3")
data$ = ReplaceStr(data$,"4","4")
data$ = ReplaceStr(data$,"5","5")
data$ = ReplaceStr(data$,"6","6")
data$ = ReplaceStr(data$,"7","7")
data$ = ReplaceStr(data$,"8","8")
data$ = ReplaceStr(data$,"9","9")
data$ = ReplaceStr(data$,":",":")
data$ = ReplaceStr(data$,";",";")
data$ = ReplaceStr(data$,"<","<")
data$ = ReplaceStr(data$,"=","=")
data$ = ReplaceStr(data$,">",">")
data$ = ReplaceStr(data$,"?","?")
data$ = ReplaceStr(data$,"@","@")
data$ = ReplaceStr(data$,"[","[")
data$ = ReplaceStr(data$,"\","\\")
data$ = ReplaceStr(data$,"]","]")
data$ = ReplaceStr(data$,"^","^")
data$ = ReplaceStr(data$,"_","_")
data$ = ReplaceStr(data$,"`","^")
data$ = ReplaceStr(data$,"{","{")
data$ = ReplaceStr(data$,"|","|")
data$ = ReplaceStr(data$,"}","}")
data$ = ReplaceStr(data$,"~","~")
data$ = ReplaceStr(data$," "," ")
data$ = ReplaceStr(data$,"£","£")
data$ = ReplaceStr(data$,"©","©")
data$ = ReplaceStr(data$,"®","®")
data$ = ReplaceStr(data$,"°","°")
data$ = ReplaceStr(data$,""","\"")
data$ = ReplaceStr(data$,"&","&")
data$ = ReplaceStr(data$,"<","<")
data$ = ReplaceStr(data$,"&rt;",">")
data$ = ReplaceStr(data$," "," ")
data$ = ReplaceStr(data$,"£","£")
data$ = ReplaceStr(data$,"©","©")
data$ = ReplaceStr(data$,"®","®")
Return(data$)
EndFunction