WINCC 脚本数据排序

Dim group1 ,group2,mytag(100),temp
Set group1=HMIRuntime.Tags.CreateTagSet
Set group2=HMIRuntime.Tags.CreateTagSet
group1.Add "tagA_1"
group1.Add "tagA_2"
group1.Add "tagA_3"
group1.Add "tagA_4"
group1.Add "tagA_5"
group1.Add "tagA_6"
group1.Add "tagA_7"
group1.Add "tagA_8"
group1.Add "tagA_9"
group1.Add "tagA_10"
group1.Add "tagA_11"
group1.Add "tagA_12"
group1.Add "tagA_13"
group1.Add "tagA_14"
group1.Add "tagA_15"
group1.Add "tagA_16"
group1.Add "tagA_17"
'''''''''''''''''''''''
'其他变量
'

''''''''''''''''''''''''''
group1.Read

group2.Add "tagB_1"
group2.Add "tagB_2"
group2.Add "tagB_3"
group2.Add "tagB_4"
group2.Add "tagB_5"
group2.Add "tagB_6"
group2.Add "tagB_7"
group2.Add "tagB_8"
group2.Add "tagB_9"
group2.Add "tagB_10"
group2.Add "tagB_11"
group2.Add "tagB_12"
group2.Add "tagB_13"
group2.Add "tagB_14"
group2.Add "tagB_15"
group2.Add "tagB_16"
group2.Add "tagB_17"
'''''''''''''''''''''''
'其他变量
'

''''''''''''''''''''''''''

mytag(0)=group1("tagA_1").Value
mytag(1)=group1("tagA_2").Value
mytag(2)=group1("tagA_3").Value
mytag(3)=group1("tagA_4").Value
mytag(4)=group1("tagA_5").Value
mytag(5)=group1("tagA_6").Value
mytag(6)=group1("tagA_7").Value
mytag(7)=group1("tagA_8").Value
mytag(8)=group1("tagA_9").Value
mytag(9)=group1("tagA_10").Value
mytag(10)=group1("tagA_11").Value
mytag(11)=group1("tagA_12").Value
mytag(12)=group1("tagA_13").Value
mytag(13)=group1("tagA_14").Value
mytag(14)=group1("tagA_15").Value
mytag(15)=group1("tagA_16").Value
mytag(16)=group1("tagA_17").Value
'''''''''''''''''''''''
'其他变量
'

''''''''''''''''''''''''''
mytag(99)=group1("tagA_100").Value
 For i=0 To 99
     For j=i To 99
         If mytag(i)> mytag(j) Then
            temp=mytag(i)
            mytag(i)=mytag(j)
            mytag(j)=mytag(i)
         End If
     Next
 
 Next
 
group2("tagB_1").Value=mytag(0)
group2("tagB_2").Value=mytag(1)
group2("tagB_3").Value=mytag(2)
group2("tagB_4").Value=mytag(3)
group2("tagB_5").Value=mytag(4)
group2("tagB_6").Value=mytag(5)
group2("tagB_7").Value=mytag(6)
group2("tagB_8").Value=mytag(7)
group2("tagB_9").Value=mytag(8)
group2("tagB_10").Value=mytag(9)
group2("tagB_11").Value=mytag(10)
group2("tagB_12").Value=mytag(11)
group2("tagB_13").Value=mytag(12)
group2("tagB_14").Value=mytag(13)
group2("tagB_15").Value=mytag(14)
group2("tagB_16").Value=mytag(15)
group2("tagB_17").Value=mytag(16)
'''''''''''''''''''''''
'其他变量
'

''''''''''''''''''''''''''
group2.Write 

wincc中分别建立变量tagA_1~tagA~100,tagB_1~tagB_100
以上脚本将tagA的值按从小到大排序后保存到tagB中