Substitute alphanumeric string into a comma separated string

[icyrius]

Hello,

Is there a way convert the following,

I have this alphanumeric string in a cell: / 974974 TE / 232839 SW / 232837 CA / 232838 SA
and need this: 974974,232839,232837,232838

I tried SUBSTITUTE, but I am still left with the characters.

Thanks.

[samba_ravi]

please give some more examples so that it is easy to understand your requirement

[Special-K]

Not much to go on with just one item of test data

So this DEFINITELY works on the example you've provided.

=MID(A1,3,6)&","&MID(A1,15,6)&","&MID(A1,27,6)&","&MID(A1,39,6)

You may find this doesnt work on other data in which case you'll need to supply any variations of your initial example but you should have realised that in the first place.

[icyrius]

Sorry for not providing enough details. Every day I receive an automated email generated by an inventory system that collects items running low. As this system detects an item running low throughout the day, it adds them to this string and separates them with a "/". At 12 AM it sends me an email with the collected items. These emailed strings do not contain the entire item description (only the ID and the first two characters of their name). I need to pull those numbers and run a query to understand what are the products running low. Therefore, the need for the comma separated "new" string containing only numbers (not characters).
Also, every day I receive a different collection of items. For example,
Monday's email: / 97497 TR / 23239 SW / 23837 CA / 23838 SA / 23735 SS / 24387 BA / 224577 OR / 23772 OG
Tuesday's email: / 22094 LH / 22120 UL
Wednesday's email: / 8608 MO / 86020 MT / 80998 MN / 8609 MH / 81156 ML / 86160 MY / 83661 MI
In other words, the numeric portion of the string could be located anywhere in these strings.

Thanks again for your help. I hope this clarifies my situation a little better.

[JohnTopley]

Function get_Numbers(Lstring As String) As String

Dim LArray() As String
outstr = ""
tempstr = ""
LArray = Split(Lstring, "/")

For i = 1 To UBound(LArray)
    tempstr = Replace(LArray(i), " ", "")
    tempstr = Left(tempstr, Len(tempstr) - 2)
    outstr = outstr & tempstr & ","
Next i

get_Numbers = Left(outstr, Len(outstr) - 1)

End Function

=get_Numbers(A1)

[icyrius]

Wow!!! This is fantastic. I love it. Thank you so much!!!