Делай до петли.То или иное условие выполнено

Question

Я пытаюсь создать цикл, чтобы Excel сообщал системе на основе DOS о поиске условия.Если это не находит условия, я застреваю в бесконечном цикле.Я обнаружил много ситуаций, когда цикл будет идти, пока не будет выполнено условие.Но есть ли способ запустить его, пока не будет выполнено условие ИЛИ целое число не достигнет точки?Я ОЧЕНЬ новичок в VBA, поэтому, пожалуйста, отнеситесь к моей нехватке знаний.

Я перепробовал несколько руководств по отдельным условиям и купил VBA для манекенов (небольшая помощь)

Sub Test ()
    DOS.readscreen StrLoop 3, 1, 4  

    Do Until StrLoop = "TXT"

    Loop
End Sub

Я надеюсь получить целое число доопределенная точка, и если она достигает точки, она выходит из цикла.Я просто не уверен, как это сделать.

Answer 1

Dim StrLoop as string, i as long

Do
    DOS.readscreen StrLoop 3, 1, 4
    i = i + 1
Loop Until StrLoop = "TXT" or i = 1000

Answer 2

Вам нужно изменить переменную strloop, пока не получите значение

dim i as long 
Do Until StrLoop = "TXT" or i = 1000
      DOS.readscreen StrLoop 3, 1, 4  
      i = i + 1 
Loop