topic Ilogic split a string in Inventor Programming Forum

Ilogic split a string

Anonymous — Wed, 08 May 2019 07:20:32 GMT

Goodday,

I am searching for a way to split strings. Where:

Dim Separators() As Char = {";"}

Doesnt seem to work at my code.

As you see in the code the separator is-> ;

for example, if the string is 1;2, it must be separated into 1 and 2 given to 2 parameters,

so spot1 -> "1" and spot2 -> "2"

This also applies to, for example, 4;6;13 in 4, 6 and 13 given to 3 parameters, etc.

I hope i can find the solution im looking for over here!

Kind Regards,

Thomas

Re: Ilogic split a string

Sergio.D.Suárez — Wed, 08 May 2019 08:12:22 GMT

Hi Thomas, this should be the snippet you use to split the string.

Dim Separators() As Char = {";"} 
Sentence = "1;2;3;4;5"
Words = Sentence.Split(Separators)
i = 0
For Each wrd In Words
MessageBox.Show("Word Index #" & i & " = " & Words(i))
i=i+1
Next

and for your specific case you could use

Dim Separators() As Char = {";"} 
Sentence = "10;20;3;4;5"
Words = Sentence.Split(Separators)

spot1 = Words(0)
spot2 = Words(1)

Parameter.UpdateAfterChange = True
iLogicVb.UpdateWhenDone = True

Where spot1 and spot2 are your user parameters to redefine.
I hope this helps solve your problem. regards

Re: Ilogic split a string

Anonymous — Wed, 08 May 2019 08:32:29 GMT

Thank you Sergio!

It worked did work, i changed it a bit to this;

Dim Separators() As Char = {";"} 
Sentence = StringParameter
If Sentence = "1;1" Then
Words = Sentence.Split(Separators)
spot1 = Words(0)
spot2 = Words(1)
Parameter.UpdateAfterChange = True
iLogicVb.UpdateWhenDone = True
Else If Sentence = "1;5;7" Then
Words = Sentence.Split(Separators)
spot1 = Words(0)
spot2 = Words(1)
spot3 = Words(2)
Parameter.UpdateAfterChange = True
iLogicVb.UpdateWhenDone = True
End If 
InventorVb.DocumentUpdate()

Re: Ilogic split a string

Sergio.D.Suárez — Wed, 08 May 2019 08:44:27 GMT

I'm glad you solved it. The fragment is just an update

Parameter.UpdateAfterChange = True
iLogicVb.UpdateWhenDone = True

so I usually place it at the end of the code, it is not necessary to repeat it many times, you can eliminate those that are higher and leave only the last one. regards

Re: Ilogic split a string

LSKELLY — Wed, 26 Feb 2020 17:36:45 GMT

Hi Sergio

Thanks. This code has worked well for me but I find only one frustrating quirk with it. If I try to split on line breaks it splits it so that each split segment is preceded by a line break rather than deleting the splitting character as it did with the semi-colons. The modified code below will illustrate the problem:

Dim Separators() As Char = {";",vbCrLf} Sentence = "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5"
Words = Sentence.Split(Separators)
i = 0
For Each wrd In Words
MessageBox.Show("Word Index #" & i & " = " & Words(i))
i=i+1
Next

Do you have any idea how to elegantly work around this or prevent it?

Re: Ilogic split a string

Curtis_W — Wed, 26 Feb 2020 17:59:23 GMT

Hi @LSKELLY

I think this should work for you:

Sentence = "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" Words = Sentence.Split(vbCrLf) For Each wrd In Words 'strip out carraige returns & linefeeds wrd = wrd.Replace(vbCr, "").Replace(vbLf, "") MessageBox.Show("Word Index #" & i & " = " & wrd) Next

Also just as a reminder, you can search and ask programming questions of this type on the Inventor Customization forum:
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/bd-p/120

(I've asked the moderators that this topic be moved to that forum to help in the future)

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Re: Ilogic split a string

LSKELLY — Wed, 26 Feb 2020 18:17:00 GMT

Excellent! Thanks Curtis!

Kicking myself right now.

Re: Ilogic split a string

Jesse_Glaze — Thu, 25 Sep 2025 20:11:38 GMT

Hello! I'm just curious about something.. if I have multiple separators in a single string, can this method still work? How would the "Dim Separators() As Char..." line be written for my example below?

Sentence = "XX.YY.ZZZZ-R0 PROJECT DESCRIPTION"

Separators = ".", "-", " "

Result:

Words(0) = XX

Words(1) = YY

Words(2) = ZZZZ

Words(3) = R0

Words(4) = PROJECT

Words(5) = DESCRIPTION

Re: Ilogic split a string

WCrihfield — Fri, 26 Sep 2025 11:47:52 GMT

Hi @Jesse_Glaze. Below is an example code like what you just described. We could have used a 'For...Next' loop to show each 'word' in a MessageBox or MsgBox, but I just put it all in one big one, to present it the way you have it laid out above.

Dim Sentence As String = "XX.YY.ZZZZ-R0 PROJECT DESCRIPTION"
Dim Separators() As Char = {".", "-", " " }
Dim Words() As String = Sentence.Split(Separators)
Dim Word1 As String = Words(0)
Dim Word2 As String = Words(1)
Dim Word3 As String = Words(2)
Dim Word4 As String = Words(3)
Dim Word5 As String = Words(4)
Dim Word6 As String = Words(5)
MsgBox("Word1 = " & Word1 & _
vbCrLf & "Word2 = " & Word2 & _
vbCrLf & "Word3 = " & Word3 & _
vbCrLf & "Word4 = " & Word4 & _
vbCrLf & "Word5 = " & Word5 & _
vbCrLf & "Word6 = " & Word6, vbInformation, "Sentence Split Into Words")

Here is another version of the same, but using shorter report code at end.

Dim Sentence As String = "XX.YY.ZZZZ-R0 PROJECT DESCRIPTION" Dim Words() As String = Sentence.Split({".", "-", " " },StringSplitOptions.RemoveEmptyEntries) Dim sResults As String For i As Integer = 0 To Words.Length - 1 sResults &= "Word " & i & " = " & Words(i) & vbCrLf Next MsgBox(sResults, vbInformation, "Sentence Split Into Words")