Cleans block of string (HTML block) from characters that are not needed
Can have more to add to list of cleaning characters
Function HTML_CleanNumber(HTMLBlock)
' Cleans block of string (HTML block) from characters that are not needed
' like / ' "
' More to add later
'
Rett = HTMLBlock
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' =
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "—": ReplaceWith = "0": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' — = —
ReplaceCharList = ",": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "’": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "'": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "’": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' Zero with space
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
HTML_CleanNumber = Rett
End Function
' Cleans block of string (HTML block) from characters that are not needed
' like / ' "
' More to add later
'
Rett = HTMLBlock
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' =
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "—": ReplaceWith = "0": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' — = —
ReplaceCharList = ",": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = " ": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "’": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "'": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "’": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' Zero with space
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
ReplaceCharList = "": ReplaceWith = "": Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
HTML_CleanNumber = Rett
End Function
HTMLBlock
Views 163
Downloads 52
CodeID
DB ID
ANmarAmdeen
614
Revisions
v1.0
Wednesday
January
31
2024