FOR THE WIZARD... get part of string.

[sal21]

i can have i MyVar

+1-242-BAHAMAS-(BS).gif
+1-869-SAINT KITTS AND NEVIS-(KN).gif
+591-BOLIVIA-(BO).gif
+39-ITALY-(IT).gif
....
ecc

In effect variuos states have a phone code and sub phone code, else for example, Italy have only a code phone

i need to get the name of state

Note:
the part of (XX).gif if fixed for all

[HansV]

Mid(MyVar, InStr(MyVar, "(") + 1, InStr(MyVar, ")") - InStr(MyVar, "(") - 1)

[sal21]

Mid(MyVar, InStr(MyVar, "(") + 1, InStr(MyVar, ")") - InStr(MyVar, "(") - 1)

hummm...
for myvar="+1-242-BAHAMAS-(BS).gif"

have (BS)

i need BAHAMAS

[HansV]

Sorry, I misinterpreted your question.

Code: Select all

    Dim p As Long, q As Long
    p = InStrRev(MyVar, "-")
    q = InStrRev(MyVar, "-", p - 1)
    MsgBox Mid(MyVar, q + 1, p - q - 1)

or

Code: Select all

    Dim v As Variant
    v = Split(MyVar, "-")
    MsgBox v(UBound(v) - 1)

[sal21]

Sorry, I misinterpreted your question.

Code: Select all

    Dim p As Long, q As Long
    p = InStrRev(MyVar, "-")
    q = InStrRev(MyVar, "-", p - 1)
    MsgBox Mid(MyVar, q + 1, p - q - 1)

or

Code: Select all

    Dim v As Variant
    v = Split(MyVar, "-")
    MsgBox v(UBound(v) - 1)

G R E A T!
Tks bro.

[SpeakEasy]

Might be an entertaining time to introduce regular expressions ...

e,g.

Code: Select all

    With CreateObject("vbscript.regexp") 
        .Pattern = "\b([^\d\W])+\b"
        MsgBox .Execute(MyVar)(0)
    End With

[sal21]

Might be an entertaining time to introduce regular expressions ...

e,g.

Code: Select all

    With CreateObject("vbscript.regexp") 
        .Pattern = "\b([^\d\W])+\b"
        MsgBox .Execute(MyVar)(0)
    End With

nice, tks

but... i can use the same method to get the phone code from:

i can have i MyVar

+1-242-BAHAMAS-(BS).gif
+1-869-SAINT KITTS AND NEVIS-(KN).gif
+591-BOLIVIA-(BO).gif
+39-ITALY-(IT).gif
....
ecc

and i need:

vaphone="+1-242"
vaphone="+1-869"
vaphone="+591"
vaphone="+39"

...ecc

[SpeakEasy]

Code: Select all

With CreateObject("vbscript.regexp") 
	.Pattern = "\+([\d-]+)-"
	MsgBox .Execute(MyVar)(0).SubMatches(0)
End With

[sal21]

Code: Select all

With CreateObject("vbscript.regexp") 
	.Pattern = "\+([\d-]+)-"
	MsgBox .Execute(MyVar)(0).SubMatches(0)
End With

Great!
Never used regex, very powerful!