VB.net

2012-04-03 4 views
-4

で、このPHPコードはどのようなものです:私は、PHPの経験がないが、明らかにVB.net

Google画像検索からあなたにランダムな画像のURLを与えるこのコードに出くわしました
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が、そのに文字列操作を残す同じことが.NETでRandomクラスで達成することができる

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

おそらくStringBuilderクラス、あるいはおそらくはString.Formatでそれを行う方がよいでしょう。

0100の境界が過度に不合格であると考える価値があります。