change text in string
 

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

change text in string
 

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)



On Oct 5, 1:02*pm, "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

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