Do Until Loop。满足一个或另一个条件

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