6、VBScript 循环结构与对象创建详解

最新推荐文章于 2025-11-01 15:11:00 发布

电竞养老选手

最新推荐文章于 2025-11-01 15:11:00 发布

阅读量1

点赞数

CC 4.0 BY-SA版权

分类专栏： VBScript自动化实战文章标签： VBScript Do Until Loop Do Loop

本文链接：https://blog.youkuaiyun.com/tensor9flow/article/details/155584300

VBScript自动化实战专栏收录该内容

40 篇文章 ¥99.00

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

VBScript 循环结构与对象创建详解

1. Do Until…Loop 结构

Do…Loop 结构可使脚本持续执行特定操作，直至特定条件发生。其中，Do While…Loop 会在指定条件为真时持续执行操作，一旦条件为假则退出循环；而 Do Until…Loop 与之相反，脚本会持续执行操作，直到某个条件满足。

Do Until…Loop 有以下常见用途：
- 从文件中读取文本
- 遍历记录集中的记录
- 创建用于监控目的的循环条件

以下是一个使用 Do Until…Loop 结构的典型脚本 ReadTextFile.vbs：

Option Explicit
'On Error Resume Next
Dim strError
Dim objFSO
Dim objFile
Dim strLine
Dim intResult
CONST ForReading = 1
strError = "Error"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\windows\setuplog.txt", ForReading)
strLine = objFile.ReadLine
Do Until objFile.AtEndofStream
  strLine = objFile.ReadLine
  intResult = InStr(strLine, strError)
  If intResult <> 0 Then