SHARE
TWEET

Untitled

a guest Apr 26th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Dim html As String
  4.     Dim startsearchfrom As Integer
  5.     'Dim letters() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "W", "X", "Y", "Z", "V"}
  6.     Dim letters As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  7.     Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  8.  
  9.         html = TextBox1.Text 'New System.Net.WebClient().DownloadString(TextBox1.Text)
  10.  
  11.  
  12.         TextBox2.Text = html
  13.  
  14.        
  15.     End Sub
  16.  
  17.     Function getname()
  18.         Dim name As String
  19.         name = TextBox1.Text
  20.  
  21.  
  22.  
  23.     End Function
  24.     Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
  25.        
  26.         removespikybrackets()
  27.         'html = removeweirdandsign()
  28.         TextBox2.Text = html
  29.     End Sub
  30.  
  31.     Sub removespikybrackets()
  32.         Dim i As Integer = 0
  33.         Dim j As Integer = 0
  34.         Do Until i = Len(html) - 1
  35.             If html(i) = "<" Then
  36.                 j = i
  37.                 Do Until html(j) = ">"
  38.                     j += 1
  39.                 Loop
  40.                 html = Mid(html, 1, i) + Mid(html, j + 2, Len(html) - j)
  41.                 If i <> 0 Then
  42.                     i -= 1
  43.                 End If
  44.             Else
  45.                 i += 1
  46.             End If
  47.         Loop
  48.  
  49.     End Sub
  50.  
  51.     Sub removeweirdandsign()
  52.         Dim i As Integer = 0
  53.         Dim j As Integer = 0
  54.         Do Until i = Len(html) - 1
  55.             If html(i) = "&" Then
  56.                 j = i
  57.                 Do Until letters.Contains(html(j))
  58.                     j += 1
  59.                 Loop
  60.                 html = Mid(html, 1, i) + Mid(html, j - 1, Len(html) - (j))
  61.                 If i <> 0 Then
  62.                     i -= 1
  63.                 End If
  64.             Else
  65.                 i += 1
  66.             End If
  67.         Loop
  68.  
  69.     End Sub
  70.  
  71.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  72.         removeweirdandsign()
  73.         TextBox2.Text = html
  74.     End Sub
  75. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top