＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Par ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

357:350
 06/02/06 02:39:19 
ﾚｽありがとうございます。 
$ipになってましたがipのミスですorz 
 
検査してくれるような便利な関数があれば良いなぁと考えてたのですが無いのですか・・・。 
やはり/で2つに分けて地道にﾎｹﾞﾎｹﾞさせないと駄目なのでしょうか？

358:nobodyさん
 06/02/06 10:00:27 kQjET4Ig
文字列から検索対象文字がいくつあるかカウントする関数はありますでしょうか？ 
strTest　という変数からchar(10)の改行文字のカウントをしたいのですが。

359:nobodyさん
 06/02/06 21:24:02 
俺なら地道にFunctionステートメントで、InStr()関数と 
For～Next文でループさせて数えるけどね

360:nobodyさん
 06/02/06 22:22:25 
>>350 
ipaddrとipnetの間で比較する流れを完全に想像だけで書いてみるｗ 
 
function conv(ip) 
  Dim ipary 
  ipary = split(ip,".") 
  conv = clng(ipary(0)*256^3) + clng(ipary(1)*256^2) + clng(ipary(2)*256) + clng(ipary(3)) 
end function 
 
function bitmask(masklng) 
  Dim mask 
  mask = clng(0) 
  for i = 31 to 31-masklng 
   mask = mask + clng(2^i) 
  next 
  bitmask = clng(mask) 
end function 
 
function check(ipaddr,ipnet) 
  ary = split(ipnet,"/") 
  netaddr = conv(ary(0)) 
  mask = bitmask(ary(1)) 
  if (clng(netaddr) = clng(conv(ipaddr)) and clng(mask)) then 
    check = true 
  else 
    check = false 
  end if 
end function   
 
clngの挟み方は適当。多分使いすぎ。 
bitmask辺りは99%の確率でバグってる悪寒ｗ

次ページ