php code to vb.net?

[diego.net]

Hi,

I want to post this to see if anyone can help me, I need to convert a php function into vb.net but I have no idea, here the function:

echo spin('{an {option|choice|right}|the basic} element');

function spin($s){
	preg_match('#\{(.+?)\}#is',$s,$m);
	if(empty($m)) return $s;
	
	$t = $m[1];
	
	if(strpos($t,'{')!==false){
		$t = substr($t, strrpos($t,'{') + 1);
	}
	
	$parts = explode("|", $t);
	$s = preg_replace("+\{".preg_quote($t)."\}+is", $parts[array_rand($parts)], $s, 1);
	
	return spin($s);
}

I don't mind to move the question to the projects(to paid you) if you know the answer.

Thanks,

Diego

[kows]

Public Function spin(ByVal str As String) As String
        Static RNG As New Random(Now.Millisecond)
 
        Dim matches As Array = Regex.Split(str, "{(.+?)}")
 
        ' Discard if no matches
        If matches.Length <= 1 Then Return str
 
        Dim match As String = matches(1)
        Dim i As Integer = InStr(match, "{")
        If i <> 0 Then
            match = Mid(match, i + 1)
        End If
 
        Dim parts As Array = match.Split("|")
 
        ' Random index
        i = RNG.Next(0, parts.Length)
 
        ' Construct new string
        str = Regex.Replace(str, "{" & Regex.Escape(match) & "}", parts(i))
 
        Return spin(str)
    End Function