Sub StripHTML(Text As String) As String
Dim temp As Int ,temp2 As Int
Do While temp>-1 'remove GMAIL quote <div class=3D"gmail_quote"> to <br>
temp = Instr(Text, "<div class=3D" & vbQuote & "gmail_quote" & vbQuote & ">", 0)
If temp =-1 Then temp = Instr(Text, "<div class=" & vbQuote & "gmail_quote" & vbQuote & ">",0)
If temp >-1 Then'is gmail
temp2 = Instr(Text, "</blockquote></div>", temp)
If temp2=-1 Then
temp=-1
Else
Text = Left(Text, temp) & Right(Text, Text.Length - (temp2+19))
End If
End If
Loop
Text = Text.Replace("<br>", CRLF).Replace("<p>", CRLF)
temp=0
Do While temp>-1'remove all HTML
temp = Instr(Text, "<", 0)
If temp>-1 Then
temp2=Instr(Text,">", temp)
If temp2=-1 Then
temp=-1
Else
Text = Left(Text, temp) & Right(Text, Text.Length - (temp2+1))
End If
End If
Loop
Do While Instr(Text, CRLF & CRLF,0)>-1 'remove double new lines
Text=Text.Replace(CRLF & CRLF, CRLF)
Loop
Return Text.Trim'.Replace(STimer.ReplyWarning, "").Trim
End Sub
Sub Left(Text As String, Length As Long)As String
If Text.Length>0 AND Length>0 Then
'If Length>Text.Length Then Length=Text.Length
Return Text.SubString2(0, Min(Text.Length,Length))
End If
Return ""
End Sub
Sub Right(Text As String, Length As Long) As String
If Text.Length>0 AND Length>0 Then
'If Length>Text.Length Then Length=Text.Length
Return Text.SubString(Text.Length-Min(Text.Length,Length))
End If
Return ""
End Sub
Sub Mid(Text As String, Start As Int, Length As Int) As String
If Length>0 AND Start>-1 AND Start< Text.Length Then Return Text.SubString2(Start,Start+Length)
End Sub
Sub Instr(Text As String, TextToFind As String, Start As Int) As Int
Return Text.IndexOf2(TextToFind,Start)
End Sub