Question

我有一个4位数的字段，不断更新和价值变化。如果字段中的值变化超过4位，我需要打印字段例如：
FIELD_VALUE = 0111
if field_value = 0112（不打印）
if field_value = 0116（打印值）

Answer 1

由于我不了解您的规范 - 您的数据究竟是什么？您如何衡量这些差异？ - 我能给你的是：

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

输出：

cscript 25442674.vbs
-1 111 yes
111 112 no
111 116 yes
116 9990 yes
9990 9991 no
9990 9995 yes
9995 9996 no

如果您无法指定第一个超出范围值或需要以不同方式处理第一个值，则必须使用计数循环。

vbscript将最后一个值与新值进行比较

1 个答案: