☆論理式☆ (ID:124825)

名前

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

本文 ありがとうございます！中途半端さん！いえ中途半端じゃ全然ないです。 ここにいる人はなぜ検索して調べろというのでしょうか？ それまでに検索しても分からなかったから使用がなく ここに質問してくる人間もいるはずです。 回答者か釣師かしりませんが、回答する気もないのに 具体的なソースを聞いただけで教える気がないのか知識がないのか 血相をかえたようにMSDNで調べろとかぐぐれとかいいます。 そんなことするのであれば掲示板など最初から意味がないのです。 この掲示板の意図すら理解できてない人間が多いこと多いこと。 初心者だからこそ検索もままならないこともあるはずです。 中途半端(完璧）さんがいうように教える気がないなら 無視すればいいだけの話です。 こういう人は、道に迷ったとき地元の人がそこの地図で 自分で調べろと言われた時の気持ちは理解できないのでしょうか？ そういわれて嬉しい種族なのでしょうか？ まあ、文句はこれぐらいにして肝心のコードなんですが 中途半端(完璧）さんがおっしゃったとおりにコードを 打ちましたが私が欲しい変数ではなく10個のうちの頭の半分数が出てくるだけ 1 3 5 7 9といった等間隔の値が表示されません？ これは何がそうさせているのでしょう？↓にわたしがうったコードを示しますのでどこが悪いのか？見てください!!お手数ですがよろしくお願いします。 Dim i As Integer '配列の数字 i = 1 For i = 0 To UBound(nLOC) Step 1 nSTART = InStr(nSTART + 1, "sas(as(sda(ass(sasas(dasa(sas(s(((vrhr", "(") '"("の文字を探す nLOC(i) = CStr(nSTART) '検索位置を保存 nLOC(i) = CStr(Mid("sas(as(sda(ass(sasas(dasa(sas(s(((vrhr", nLOC(i) + 1, 2)) TextBox1.Text = TextBox1.Text + nLOC(i) + vbCrLf Next i