2012-04-03 2 views
-4

나는이 기능에 해당하는 vb.net을 찾고 있습니다. 나는 PHP에 대한 경험이 없지만 Google 이미지에서 무작위 이미지 URL을 제공하는이 코드를 발견했습니다.VB.net에서이 PHP 코드는 무엇입니까

function GetRandomImageURL($topic='', $min=0, $max=100) 
{ 
    // get random image from Google 
    if ($topic=='') $topic='image'; 
    $ofs=mt_rand($min, $max); 
    $geturl='http://www.google.ca/images?q=' . $topic . '&start=' . $ofs . '&gbv=1'; 
    $data=file_get_contents($geturl); 

    $f1='<div id="center_col">'; 
    $f2='<a href="/imgres?imgurl='; 
    $f3='&amp;imgrefurl='; 

    $pos1=strpos($data, $f1)+strlen($f1); 
    if ($pos1==FALSE) return FALSE; 
    $pos2=strpos($data, $f2, $pos1)+strlen($f2); 
    if ($pos2==FALSE) return FALSE; 
    $pos3=strpos($data, $f3, $pos2); 
    if ($pos3==FALSE) return FALSE; 
    return substr($data, $pos2, $pos3-$pos2); 
} 

답변

1

이미지 URL을 만드는 대부분 문자열 조작입니다. 그것은이 라인에 인덱스 0100 사이의 의사 랜덤 이미지를 선택합니다

Dim rnd As New Random() 
Dim ofs As Int = rnd.Next(min, max) 

내가 OP 그러나 그것으로 문자열 조작을 떠나 같은 닷넷에 Random 클래스를 달성 할 수

$ofs=mt_rand($min, $max); 

StringBuilder 클래스 또는 아마도 String.Format 하나를 사용하는 것이 좋습니다.

0에서 100 범위가 과도한 경우 고려해야 할 가치가 있습니다.

관련 문제