プログラムコードの指導を御願い致します。 (ID:125941)

名前

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

本文 【開発環境】 ・VB6 SP6 【質問内容】 ・Name という変数の中にある"-"の個数を調べたいのですが、 簡単に分かる方法はないでしょうか？ 下記コードの場合、永遠にあると対応が出来なくなってしまいます。 初歩的な事とは思いますが、ご指導の程宜しく御願い致します。 Dim Name as string Dim S As Long Dim Count as long Count=0 Name="001-002-003-004-005・・・・" S = InStr(1, Name, "-") '管理番号 If S > 0 Then Count=Count+1 S = InStr(S+1, Name, "-") '管理番号 If S > 0 Then Count=Count+1 End if ・・・ ・・・ ・・・ ・・・ End If