Parsing a txt line in VBScript

[Guest_imported]

How would I parse a text line that looks like "member 123.123.123.132:HTTP" into just 123.123.123.123?
The txt line is a var and I am trying to do this in a function.
Thanks
Arthur

 

[JohnYingling]

Dim aryW

aryW = Split(strIn,":&quot
' * Prevent subscript out of range
if Ubound(aryW) < 1 then Redim Preserve aryW(1)
OR
Dim lngInstr
Dim strOut
lngInstr = Instr(1,strIn,&quot;:&quot
if lngInstr = 0 then
strOut = strIn
Else
strOut = Left(strIn, lngInstr - 1)
End if

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[cornboy88]

Try this

txt = &quot;member 123.123.123.132:HTTP&quot;
lenRev = InStrRev(txt, &quot;:&quot;, -1, 1)- 1
almost = left(txt, lenrev)
answer = Mid(almost, InStrRev(almost, &quot; &quot;, -1, 1) + 1)

msgbox answer



cornboy88