change text in string
On Mon, 5 Oct 2009 22:02:51 +0200, "CG Rosen" wrote:
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
|