VBSCRIPT在许多行中检查相同的值,但在不同的位置
我需要这个问题的帮助,我有一个文本文件(.txt)中的多行作为示例VBSCRIPT在许多行中检查相同的值,但在不同的位置,vbscript,Vbscript,我需要这个问题的帮助,我有一个文本文件(.txt)中的多行作为示例 0001 0002 0005 0007 0004 0005 0009 0004 0004 0009 0006 0004 xxxx 0006 zzzz kkk xxxx zzzz 我必须检查每一行的第三个元素(第一行中的0005)是否与下一行的第二个元素(第二行中的0005)相同,我必须继续检查每一行(第二行中的0009与第三行中的0009) 如何检查值是否相等?也许放在阵列里 感谢您的回答保留阵列是一种过激的行为。只需保留两个变
感谢您的回答保留阵列是一种过激的行为。只需保留两个变量,一个包含数组中一行的元素,另一个包含下一行的元素。比如:
Option Explicit
Dim fso,f,problem, i, lineone, linetwo
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(WScript.Arguments.Item(0),1,true)
lineone = Split(Trim(f.ReadLine))
i = 1
problem = false
Do While f.AtEndOfStream <> True
linetwo = Split(Trim(f.ReadLine))
i = i+1
If lineone(2) <> linetwo(1) Then
MsgBox "Problem at line " & i
problem = True
Exit Do
End If
lineone = linetwo 'for next pass through the loop
Loop
f.close
If Not problem Then MsgBox "File is Okay"
脚本打印“文件正常”
但是,当我将此文件馈送给它时:
0001 0002 0005 0007
0004 0005 0009 0004
0004 0006 0006 0004
0004 0006 0006 0004
0004 0006 0006 0008
脚本打印“第3行的问题”
我没有做任何错误检查来处理文件中少于两行或某些行缺少预期条目数的情况。显然,您应该使其更加健壮。一行中可能有相同的数字(第一行0005 0005 0005 0005第二行0005 0005 0005 0005)如何检查第一行的第三个元素在第二行的第二个元素中是否相同?读取-拆分-提取-检查
0001 0002 0005 0007
0004 0005 0009 0004
0004 0006 0006 0004
0004 0006 0006 0004
0004 0006 0006 0008