加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

wincc7.5SP2下VBA编程学习练习15:批量删除变量

(2024-11-18 10:55:21)
标签:

西门子

wincc

vba编程

批量删除变量

分类: 西门子软硬件
这一篇学习笔记先在博客园发过,这里也记录一次。

在前面练习的基础上学习批量删除变量。

新建下面的脚本:

Sub DeleteTags()
'批量删除变量
Dim hmigo As hmigo
Dim strTagName As String
Dim i As Integer
Set hmigo = New hmigo
For i = 1 To 5
strTagName = "Real" & CStr(i)
hmigo.DeleteTag strTagName
Next
Set hmigo = Nothing
End Sub

保存,运行就会删除Real1至Real5共计5个变量。如果这些变量已经被删除了,运行脚本就会报错。

wincc7.5SP2下VBA编程学习练习15:批量删除变量

为了容错性,对上面的脚本重新编写如下,先判断要删除的变量是否存在,存在才做删除操作:

Sub DeleteTags()
'批量删除变量
Dim hmigo As hmigo
Dim strTagName As String
Dim i As Integer
Set hmigo = New hmigo
'For i = 1 To 5
' strTagName = "Real" & CStr(i)
' hmigo.DeleteTag strTagName
'Next
For i = 1 To 5
strTagName = "Real" & CStr(i)
hmigo.ListTag TAG_NAMES, Tags, strTagName
If (UBound(Tags) - LBound(Tags) + 1) > 0 Then
hmigo.DeleteTag strTagName
End If
Next
Set hmigo = Nothing
End Sub


0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有