tage tre dele af en string

instr, mid og len

ok kan du evt gi mig et eksempel?

Dim str As String
Dim NickStart As Integer
Dim NickEnd As Integer
Dim Nick As String
str = ":slapstdfgdfgdfgick!hej@skodliv.dk PRIVMSG #kanal :!trivia homer simpson"

NickStart = InStr(1, str, ":")
NickEnd = InStr(1, str, "!")
Nick = Mid(str, NickStart + 1, NickEnd - NickStart - 1)
MsgBox Nick

osv.

læs om alle stringemanipulations-funktionerne i hjælåen eller på msdn.mocrosoft.com

Der er bla.

InStr, mid, Len, left, right, trim, Ltrim, Rtrim, replace mv.

smukt tak :)

PS: optimeret en smule:

NickStart = InStr(1, str, ":")
NickEnd = InStr(NickStart + 1, str, "!")

:o)

KanalStart = InStr(NickEnd + 1, str, "#")
KanalEnd = InStr(KanalStart + 1, str, ":")
Kanal = Mid(str, KanalStart + 1, KanalEnd - KanalStart - 1)

Så kan du selv finde den sidste :o)

smukt :)