change text in string

[CG Rosen]

Hi Group,

Need some hints how to approach this problem;

In a cell I have a text string like "10-1,10-2,10-3,10-4" or the string
could be as
"1-1,1-2,1-3" or even "100-1,101-2"

I want the string to be converted to look like "1,2,3,4....etc

Grateful for some help.

Brgds

CG Rosen

 

[SMS]

I would look at the string to find the hyphen, then take all
characters after it.

MyPos = Instr(1, searchstring, "-", 1)
MyString = Mid(searchstring, MyPos+1)

 

[Ron Rosenfeld]

Hi Group,

Need some hints how to approach this problem;

In a cell I have a text string like "10-1,10-2,10-3,10-4" or the string
could be as
"1-1,1-2,1-3" or even "100-1,101-2"

I want the string to be converted to look like "1,2,3,4....etc

Grateful for some help.

Brgds

CG Rosen

Assuming what you want is the number following a hyphen, and terminated by a
comma or the end of the line, then:

===================
Const s1 As String = "1-1,1-2,1-3"
Dim a() As String
Dim s As String
Dim i As Long

a = Split(s1, ",")
For i = 0 To UBound(a)
a(i) = Split(a(i), "-")(1)
Next i

s = Join(a, ",")
Debug.Print s
=================
--ron