代码之家 › 专栏 › 技术社区 › AlliDeacon

VBS循环返回预期的NEXT行

vbscript loops

AlliDeacon · 技术社区 · 1 年前

我试图在平面文件中找到一个字段值,并根据该值设置一个变量。这是我的代码:

Set file = fso.OpenTextFile(DataFileName, 1)
do until file.AtEndOfStream
    if StrComp(left(file.readLine, 3) , "H23") = 0 Then
        WScript.Echo file.ReadLine
        If StrComp(Split(file.readLine, "~")(4) , "1") = 0 Then
            ExportMapName = "ExportMap_1"
        Else
            ExportMapName = "ExportMap_2"
        End If

    End If
loop
Wscript.Echo ExportMapName

然而,当它给我 ReadLine 值,它显示 H24 就像,它跳过了 H23 线我确信我的循环嵌套错误,但我找不到任何能给我指导的地方。TIA!

0 回复 | 直到 1 年前

Rno 1 年前

使命感 ReadLine 上 TextStream 返回的对象 OpenTextFile 将读者推进到下一行。您的问题的简化说明:

do until file.AtEndOfStream
    WScript.Echo file.ReadLine 'returns a line
    WScript.Echo file.ReadLine 'returns the next line
loop

还要注意逻辑错误:如果第一个 ReadLine 是文件中的最后一行,第二行将发生错误 ReadLine .

推荐文章

Keren · 如何使变量大1

1 年前

smg_08 · 使用for循环在pandas数据帧中进行筛选[重复]

1 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前

nickolakis · 基于R中的列名复制列

2 年前

khalid Morrshid · 循环语法C语言

2 年前

Onur · R中矩阵的循环

2 年前

Alex · 如何向嵌套字典json添加值?

2 年前

George carrick · 如何在R中检测时间序列数据中的缺失年份?

2 年前

CS Geek · 如何实现一个循环,其中:数字不能在输入的中间使用;他们最后一定要来?

2 年前

Klang · 我怎么做我自己的绳子。Split()和数组。Reverse()一个用户定义函数中的内置函数,用于反转给定字符串?

2 年前