VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/03/15(Tue) 16:09 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： Re: IPアドレスの分割取得 |
IPアドレスチェックの基準が書いてなかったので、単にtext3(0).Textに入力された
IPアドレスを"."で分解して、0〜255であれば良しと仮定します。
こんなもので良いのでは。(未試験です)。
Stop文はエラー処理に変える。IPv6は応用で。
Dim ChkIP() As String '分割したIPアドレス
Dim i As Integer
ChkIP() = Split(text3(0).Text, ".")
If UBound(ChkIP) <> 3 Then Stop
For i = 0 To 3
If Not IsNumeric(ChkIP(i)) Then Stop
If (Val(ChkIP(i)) < 0) Or (Val(ChkIP(i)) > 255) Then Stop
Next i
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）