[RESOLVED] Split String at first instance of Delimiter only

[tome10]

The Data looks like this:

057359-001 Pip Drt329 Auburndale, Fl (aub) - Pompano Beach, Fl (pob) 1:0 10gbe Lan Phy.

MyArr(0) ends up "057359-001" which is correct.
MyArr(1) ends up "Pip" only which is incorrect.
I need MyArr(1) to bring back the rest of the Data 'everything else after the first space'.
What do I need to do?

       Sub SplitProj()
            Dim myArr() As String
            Dim ProjNum As String
            Dim ProjName As String
        
            For Each Tcell In Sheets("Data").Range("E3:E100").Value
            myArr = Split(Tcell, " ")
            ProjNumber = myArr(0)
            ProjName = myArr(1)
              
    MsgBox myArr(0) & " " & myArr(1)

        Next
    End Sub

[.paul.]

try this:

Dim parts As New List(Of String)("057359-001 Pip Drt329 Auburndale, Fl (aub) - Pompano Beach, Fl (pob) 1:0 10gbe Lan Phy.".Split(" "c))
Dim myArr(1) As String
myArr(0) = parts(0)
parts.RemoveAt(0)
myArr(1) = String.Join(" ", parts.ToArray)

[jmcilhinney]

As always, you should be reading the documentation first whenever you have a question. Both the Split function and the String.Split method let you specify the maximum number of parts to split the String into. If you only want to split on the first delimiter then you would specify 2 as the maximum number of parts:

Dim parts As String() = myString.Split(New Char() {" "c}, 2)

[tome10]

Please bear with me as I am a Novice, and can't seem make either of these suggestions work.
@ Paul, I don't think I can just dim that one example as the macro is looping through the cells where that info changes. The only thing that remains the same is the first 10 characters are the project numbers. Maybe, if I just put in Tcell.value instead of the Example string I gave you.

Dim parts As New List(Of String)(Tcell.Value.Split(" "c))

it just seems there should be an easier way.

@jmcilhinney
This piece of code errors it's probably me not understanding what I need to edit.

Dim parts As String() = myString.Split(New Char() {" "c}, 2)

I keep running across things telling me all i need to do is add a ,2 after the delimiter, but it errors and doesn't work.

myArr = Split(Tcell, " ",2)

I've ran across this example, but I think it is for VB not VBA

myArr = Split(Tcell, " ")(2)

Also, what does the c in this example mean

myString.Split(New Char() {" "c}, 2)

Am I supposed to take out the {}'s it errors if they are present.

[.paul.]

using jm's code:

Dim parts As String() = Tcell.Split(New Char() {" "c}, 2)

[tome10]

       Sub whatever()
        Dim myArr() As String
        Dim parts As String()= Tcell.Split(New Char() {" "c}, 2) 'Errors here Expected end of statement.
        Dim ProjNum As String
        Dim ProjName As String
        Dim Tcell As Range
            For Each Tcell In Sheets("Data").Range("E3:E100").Value
            myArr = Split(Tcell, " ")
            ProjNumber = myArr(0)
            ProjName = myArr(1)
            
        MsgBox myArr(0) & " " & myArr(1)
        Next
    End Sub

[.paul.]

Dim parts() As String= Tcell.Split(New Char() {" "c}, 2)

[tome10]

Paul, it errors on the = expected end of statement.

[dbasnett]

This might produce different errors (I don't have excel referenced)

    Sub whatever()

        Dim ProjNum As String
        Dim ProjName As String
        Dim Tcell As Range
        For Each Tcell In Sheets("Data").Range("E3:E100").Value

            Dim myArr() As String = Tcell.Split(New Char() {" "c}, 2) 'Errors here Expected end of statement.
            myArr = Split(Tcell, " ")
            ProjNumber = myArr(0)
            ProjName = myArr(1)
            MsgBox(myArr(0) & " " & myArr(1))
        Next
    End Sub

[.paul.]

is this a vba question?

[.paul.]

ok. assuming it might need to cover vba, this should work:

Sub splitCellValue()
     Dim myArr() As String
     Dim ProjNum As String
     Dim ProjName As String
        
     For Each Tcell In Sheets("Data").Range("E3:E100").Value
        myArr = Split(Tcell, " ", 2)
        ProjNumber = myArr(0)
        ProjName = myArr(1)
        MsgBox ProjNumber & vbTab & ProjName
    Next
 
End Sub

[tome10]

This is VBA, I believe this should work but it doesn't.

myArr = Split(Tcell, " ", 2)

[tome10]

Disregard! Why is it working now when I tried the exact thing a dozen times?

[.paul.]

i'm not sure, but if vba is imperfect as vb.net is, that could happen but i don't know a simple solution to remedy it. you might get a useful answer in the office development forum.

[tome10]

haha oops i'm not in Office Develoment.. How did that happen? Sorry.. Cudos for the help though. ;-)