直到循环。满足一个或另一个条件

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