SHARE
TWEET

Untitled

a guest Apr 25th, 2019 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim html As String
  3.     Dim startsearchfrom As Integer
  4.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  5.  
  6.         html = New System.Net.WebClient().DownloadString(TextBox1.Text)
  7.  
  8.  
  9.         TextBox2.Text = html
  10.     End Sub
  11.     Function removeextras(i) As String
  12.         For j = i To Len(html) - 1
  13.             If html(j) = ">" Then
  14.  
  15.                 html = Mid(html, 1, i) + Mid(html, j + 2, Len(html) - j)
  16.  
  17.                 Return html
  18.             End If
  19.         Next
  20.     End Function
  21.     Function getname()
  22.         Dim name As String
  23.         name = TextBox1.Text
  24.  
  25.  
  26.  
  27.     End Function
  28.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  29.         Dim i As Integer = 0
  30.         Do Until i = Len(html) - 1
  31.             If html(i) = "<" Then
  32.  
  33.                 html = removeextras(i)
  34.                 'startsearchfrom = i - 1
  35.                 If i <> 0 Then
  36.                     i -= 1
  37.                 End If
  38.  
  39.             Else
  40.                 i += 1
  41.             End If
  42.  
  43.  
  44.         Loop
  45.         TextBox2.Text = html
  46.     End Sub
  47. 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