Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
vbscript将上一个值与新值进行比较_Vbscript - Fatal编程技术网

vbscript将上一个值与新值进行比较

vbscript将上一个值与新值进行比较,vbscript,Vbscript,我有一个4位数的字段,它不断更新,值也不断变化。如果字段中的值更改超过4位,我需要打印该字段。 示例: 字段值=0111 如果字段_值=0112(不打印) 如果字段_value=0116(打印值)因为我不了解您的规格-您的数据到底是什么,如何测量差异我能给你的只有: Option Explicit Dim o : o = -1 ' definitely out of range Dim n For Each n In Split("0111 0112 0116 9990 9991 9995 9

我有一个4位数的字段,它不断更新,值也不断变化。如果字段中的值更改超过4位,我需要打印该字段。
示例:
字段值=0111
如果字段_值=0112(不打印)

如果字段_value=0116(打印值)

因为我不了解您的规格-您的数据到底是什么,如何测量差异我能给你的只有:

Option Explicit

Dim o : o = -1 ' definitely out of range
Dim n
For Each n In Split("0111 0112 0116 9990 9991 9995 9996")
    n = CLng(n)
    If 4 <= n - o Then
       WScript.Echo o, n, "yes"
       o = n ' <-- the important part
    Else
       WScript.Echo o, n, "no"
    End If
Next

如果无法指定第一个超出范围的值,或者需要对第一个进行不同处理,则必须使用计数循环。

我想知道他的
字段\u值是否可以减少?他只是说改变。你可能需要使用
4嗨,对不起,我的解释有点混乱。该值来自刻度,可以上下变化。
cscript 25442674.vbs
-1 111 yes
111 112 no
111 116 yes
116 9990 yes
9990 9991 no
9990 9995 yes
9995 9996 no