11、突破单调数组：VBScript 数组操作全解析

电竞养老选手

于 2025-11-06 09:04:15 发布

阅读量3

点赞数

CC 4.0 BY-SA版权

分类专栏： VBScript自动化实战文章标签： VBScript 数组操作文本文件读取

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

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

40 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

突破单调数组：VBScript 数组操作全解析

1. 从文本文件读取数据到数组

在 VBScript 中，我们可以通过脚本将文本文件的数据逐行解析并存储到数组中。以下是一个名为 ArrayReadTxtFile.vbs 的示例脚本：

Option Explicit
'On Error Resume Next
Dim objFSO
Dim objTextFile
Dim arrServiceList
Dim strNextLine
Dim i
Dim TxtFile
TxtFile = "ServersAndServices.txt"
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
  (TxtFile, ForReading)
Do Until objTextFile.AtEndOfStream
  strNextLine = objTextFile.Readline
  arrServiceList = Split(strNextLine , ",")
  WScript.Echo "Server name: " & arrServiceList(0)
  For i = 1 to UBound(arrServiceList)
    WScript.Echo vbTab & "Service: " & arrServiceList(i)
  Next
Loop
WScript.Echo("all