ABCD是什么？wincc变量？
vbs:
dim tag(5)
tag(0)=hmiruntime.tags("k1").read
tag(1)=hmiruntime.tags("k2").read
tag(2)=hmiruntime.tags("k3").read
tag(3)=hmiruntime.tags("k4").read
tag(4)=hmiruntime.tags("text").read
if tag(0) then
hmiruntime.tags("A").write tag(4)
end if
if tag(1) then
hmiruntime.tags("B").write tag(4)
end if
if tag(2) then
hmiruntime.tags("C").write tag(4)
end if
if tag(3) then
hmiruntime.tags("D").write tag(4)
end if