URL Coralizing App
Ok. this is really a stupid little app i just wrote for the laugh, but i will post the code here becuase i can. First check out this post on my other site about coral. and now the code.
Try
Dim split2 As Array
split2 = Split(TextBox1.Text, "/")
TextBox2.Text = split2(0) + ".nyud.net:8090/"
For i As Integer = 0 To split2.Length - 1
If i = 0 Then
ElseIf i = 1 Then
TextBox2.Text = TextBox2.Text & "" & split2(i)
Else
TextBox2.Text = TextBox2.Text & "/" & split2(i)
End If
Next
Catch ex As Exception
MsgBox(ex)
End Try
So, the form is set out like this. 2 text boxes (TextBox1 and TextBox2) and a Button. code is for the button1_click event. You put a url into textbox 1, and the click the button and the Coralized URL comes out in Textbox2. you do not use a http:// infront of the URL as it will break the theory behind the code. This is a stupid little app, but i had to do it cause i havent posted here in a while!