[help] Spliting like irc

[cosconub]

Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click

        If txtPost.Text <> "" Then
            If txtUsername.Text <> "" Then
                
            
                ShoutBox.AddPost(frmMain.txtLid.Text, txtPost.Text, )
                txtPost.Text = ""

            Else

            End If

        Else
            MsgBox("Please fill in a post.", MsgBoxStyle.Information)
        End If
    End Sub

this is the submit chat code

how would i split the text so i can code irc type commands

such as

/title {input}

| = split

i want to split the / | my.settings.title | "{input}"

and the
if txtpost.text = "/title" split {input} then
lable1.text = "{output}"
end if

please and thankyou

[Jason]

Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click

        If txtPost.Text <> "" Then
            If txtUsername.Text <> "" Then
                
            
                ShoutBox.AddPost(frmMain.txtLid.Text, txtPost.Text, )
                txtPost.Text = ""

            Else

            End If

        Else
            MsgBox("Please fill in a post.", MsgBoxStyle.Information)
        End If
    End Sub

this is the submit chat code

how would i split the text so i can code irc type commands

such as

/title {input}

| = split

i want to split the / | my.settings.title | "{input}"

and the
if txtpost.text = "/title" split {input} then
lable1.text = "{output}"
end if

please and thankyou

I don't get what you're trying to say lol. Needs moar English

[cosconub]

let me some it up...

i want to beable to type

/title mytext in to my chatbox and click submit
and instead of posting it changes lable1.text to mytext

[Blubb1337]

Dim yourstring as string = "/title blubb"
Dim x() as string = yourstring.split(" ")

msgbox(x(1))

If that does not work, use regex.split.

[Jason]

Or something like this:

[php]
If TextBox1.Text.StartsWith("/") Then
Dim firstInd As integer = TextBox1.Text.IndexOf(" "c)
Dim command As String = TextBox1.Text.Substring(1, firstInd)
Dim content As String = TextBox1.Text.SubString(firstInd+1)
If command.ToLower = "title" then
Label1.Text = content
End If
End If
[/php]