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

【问题标题】：Do Until Loop. One or another condition is met做直到循环。满足一个或另一个条件
【发布时间】：2019-09-19 05:31:41
【问题描述】：

我正在尝试创建一个循环，让 Excel 告诉基于 DOS 的系统搜索条件。如果它没有找到条件，我就会陷入无限循环。我发现很多情况下循环会一直运行直到它满足条件。但是有没有办法让它运行直到满足条件或整数达到一个点？我对 VBA 很陌生，所以请轻视我缺乏知识。

我已经尝试了几个单一条件指南，并为傻瓜购买了 VBA，（帮助不大）

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

    Do Until StrLoop = "TXT"

    Loop
End Sub

我希望有一个整数计数到某个点，如果它到达一个点，让它退出循环。我只是不确定该怎么做。

【问题讨论】：

【解决方案1】：

你需要改变变量 strloop ，直到得到一个值

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

【讨论】：

【解决方案2】：

Dim StrLoop as string, i as long

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

【讨论】：