GoTo文以外のジャンプ命令のようなものについて

ぞう 2004-12-06 20:51:51 No: 87147

ex01:
   Do Until i >= Len(Add) + 1
        ・
      GoTo  ex01
        ・
        ・
   loop
のように、GoTo文を使ってループのところまで戻りたいのですが、GoTo文以外で戻る方法はありますか？？Exitの逆(？)みたいなかんじで。。お願いします。

0123 2004-12-06 21:18:05 No: 87148

ループ中からGotoでループ外のところに処理を移すのは良くないです。

もう１つうえにDo〜Loopブロックを作ればいいんじゃないですか？
下記例ではラベルを書いてますが戻ってくる位置を示しているだけで使いません。

Dim blnContinue As Boolean

blnContinue=True

Do While blnContinue
ex01:
  Do While Until i >= Len(Add) + 1
    If 〜 Then
      Exit Do
    End If

    〜  処理  〜
    blnContinue=False
  Loop
Loop

その他の手段でも目的の事は達成できそうなので考えてみてください。

ぞう 2004-12-06 21:34:48 No: 87149

はい、ありがとうございます。早速やってみたのですが、処理の内容のほうが記述を間違っていたみたいなので、うまくいきませんでした。もう一度最初から処理を見直して、０１２３さんに教えていただいた方法でやってみます。今度はできそうです。本当にありがとうございました。