Mid関数のエラー”プロシージャの呼び出し、または引数が不正です” (ID:81112)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 解決しました！！InStr関数の使い方を間違えていました！ みなさんどうもです＾＾ 以下に訂正後のソースを書きます＾＾ Public Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim strData As String 'strDataには”H01kibo3H02kibo5H03kibo1H04kibo2H05kibo3H.....H09kibo2”が入る Dim a As Integer, b As Integer, c As Integer, k As Integer Dim check As String Winsock.GetData strData '受信データをstrdataに格納する Text1.Text = strData 'test用 a = 1 b = 0 c = 0 Do Until check = "Fin" a = InStr(a, strData, "H") 'a番目以降のどこにHがあるかをaに返す b = InStr(a + 1, strData, "H") 'Ｈの隣（a+1番目）以降のどこにHがあるかをｂに返す '次のＨの場所がｂに入っている If b = 0 Then '次のＨが見つからないとき b = InStr(a + 1, strData, "END") 'エンドがある場所を返す check = "Fin" End If For k = 1 To 9 'a（Ｈが入っている場所）からb（次のＨが入っている場所）までのデータ群を解析 If Mid(strData, a + 1, 2) = "0" & k Then Select Case Mid(strData, a + 3, 4) '何のデータなのかを調べる Case "kibo" hanbaigaisha(k).Kibo = Mid(strData, a + 7, b - (a + 7)) Case "info" hanbaigaisha(k).Info = Mid(strData, a + 7, b - (a + 7)) Case "keir" hanbaigaisha(k).Keiretsu = Mid(strData, a + 7, b - (a + 7)) Case "dist" hanbaigaisha(k).Dist = Mid(strData, a + 7, b - (a + 7)) Case "mzai" hanbaigaisha(k).Max_zaiko = Mid(strData, a + 7, b - (a + 7)) Case "zcos" hanbaigaisha(k).Zaiko_cost = Mid(strData, a + 7, b - (a + 7)) Case "mrie" hanbaigaisha(k).Min_rieki = Mid(strData, a + 7, b - (a + 7)) Case "ijih" hanbaigaisha(k).Ijihi = Mid(strData, a + 7, b - (a + 7)) End Select End If Next a = b Loop End Sub