投稿日	： 2005/03/15(Tue) 15:39
投稿者	： yuta
Ｅメール	：
ＵＲＬ	：
タイトル	： IPアドレスの分割取得

いつもお世話になっています。

現在テキストボックスに入力されたIPアドレスをチェックする処理を作成しているのですが、
うまくいきません。

やり方としては、入力されたIPアドレスをInStr関数で区切りの"."までの文字数を取得し
てから、
Mid関数でString型の配列に格納するようにしています。

実際のソースは以下のようになっています。

-------------------------------------------------------------------------------------------
  Dim ChkIP(3)    As String             '分割したIPアドレス
  Dim Leng        As Long               '"."までの文字数
  Dim Sep         As Integer            '分割時の開始文字位置
  Dim i           As Integer

  For i = 0 To 3
        If i = 0 Then                                                
            Leng = InStr(1, Text3(0).Text, ".", vbTextCompare)
            ChkIP(i) = Mid(Text3(0).Text, 1, Leng - 1)
            Sep = Leng + 1
        ElseIf i <= 2 Then                                              
            Leng = InStr(Sep, Text3(0).Text, ".", vbTextCompare)
            ChkIP(i) = Mid(Text3(0).Text, Sep, Leng - 1)
            Sep = Leng + 1
        Else
            ChkIP(i) = Mid(Text3(0).Text, Sep, Sep = Sep - Len(Text3(0).Text))
        End If
    Next i
-------------------------------------------------------------------------------------------
MaskedEditを使ってもよかったのですが、できればテキストボックスで処理を行ないたいと思ってい
ます。

もしご存知の方がいらっしゃいましたら、ご教授よろしくお願いします。

★ - IPアドレスの分割取得 - yuta 03/15-15:39No.2459
• Re: IPアドレスの分割取得 - ダンボ 03/15-16:09 No.2460
  • Re^2: IPアドレスの分割取得 - yuta 03/15-16:19 No.2461
    • [解決]: IPアドレスの分割取得 - yuta 03/15-16:36 No.2462