Shoutbox

how could i make an sCommandArg but for tags in VB? I've noticed that feature in stuffplug: (!XTALK<language> <text>). I've tried to make it like this:

code:

---

If (StrComp(sTag, "(!XTAG)", vbTextCompare) = 0) Then
        sResult = Mid$(sTag, 7, 1)
        ParseTag = True
        Exit Function
End If

---

(it should get the next 2 characters after (!XTAG. If the user types (!XTAG23) then sResult = 23)
Is it even possible in VB?

code:

---

If (StrComp(Left$(sTag, 6), "(!XTAG", vbTextCompare) = 0) Then
    sResult = Mid$(sTag, 7, Len(sTag) - 7) '<----edited
    ParseTag = True
    Exit Function
End If

---

You can also check at the if if Right$(sTag, 1) = ")" but i don't think you'll need that

doesnt work for me

quote:

---

Originally posted by zigomar10
doesnt work for me

---

What's the problem?

when i type (!XTAG23) it sends (!XTAG23) . have u tested it?

quote:

---

Originally posted by zigomar10
when i type (!XTAG23) it sends (!XTAG23) . have u tested it?

---

No, I haven't. But it should work. Try this (it's the same, but other way of doing it):

code:

---

Public Function ParseTag(ByVal sTag As String, ByVal oConversationWnd As Object, ByRef sResult As String) As Boolean
If LCase$(Left$(sTag, 6)) = "(!xtag" Then
    sResult =  Mid$(sTag, 7, Len(sTag) - 7)
    ParseTag = True
    Exit Function
End If
End Function

---

And make sure you haven't got any other pluging trying to capture the "(!XTAG)" tag. Also, be careful if your tag is something like "(!Xlongertag)", because then the code changes.

it still doesnt work

Which tag are you trying to use? (!Xwhat?)

(!xtag23)

i did my grabbing using

code:

---

    If Tag Like "(!XSSHVOL?)" = True Then 'volume name of drive ?
        DriveLetter = LCase(Mid(Tag, 10, 1))
        'rest of code here
    End If

---

the only limitation(tho major) is that you need to make sure the user types an exact number of digets else it wont pick it up