Question

c#的函数翻译成vb.net的语句，快快 在线等

private static string[] GetLinks(string html)
{
const string pattern = @"http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?";
Regex r = new Regex(pattern, RegexOptions.IgnoreCase);
MatchCollection m = r.Matches(html);
string[] links = new string[m.Count];
for (int i = 0; i < m.Count; i++)
{
links[i] = m[i].ToString();
}
return links;
}

Answer 1

Private Static Function GetLinks(ByVal html As String) As String()
Const pattern As String = "http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"
Dim r As Regex = New Regex(pattern, RegexOptions.IgnoreCase)
Dim links As String()
ReDim links(m.Count)
For i As Integer = 0 To m.Count - 1
links(i) = m(i).ToString()

Next
Return links
End Function