Tag: vbscript

在VBScript上“继续”（到下一次迭代）: 我和一个同事试图找出一种在VBScript“For / Next”循环中做相当于“continue”语句的方法。在我们所看到的所有地方，我们发现人们无法在VBScript中做到这一点，没有讨厌的嵌套，这不是我们的select，因为它是一个相当大的循环。我们提出这个想法。它会像“继续（下一次迭代）”一样工作吗？有没有人有更好的解决方法或改进build议？ For i=1 to N For workaroundloop = 1 to 1 [Code] If Condition1 Then Exit For End If [MoreCode] If Condition2 Then Exit For End If [MoreCode] If Condition2 Then Exit For End If […] Next Next 感谢您的意见

将项目添加到VBScript中的数组: 如何将项目添加到VBScript中的现有数组？是否有一个VBScript等效于JavaScript中的推送function？即 myArray有三个项目，“苹果”，“桔子”和“香蕉”，我想添加“西瓜”到arrays的末尾。

正则expression式规则在Outlook 2007中？: 是否有可能基于正则expression式string在Outlook 2007中创build规则？我试图添加一个包含string的消息filter，例如： 4000-10 ，一个四位数字后跟一个破折号，然后是一个两位数字，可以是从0000-00到9999-99任何东西。我正在使用这个正则expression式： \b[0-9]{4}\-[0-9]{2}\b但filter不工作。我已经尝试了一些其他的修改，也没有运气。但是，我还没有find任何具体的网上关于Outlook甚至支持进入正则expression式的具体的networking，所以我想我会问在这里，以免浪费我的时间。编辑：感谢克里斯的评论下面，我能够实现这个filter通过macros。我想我会在下面分享我的代码，以便能够帮助其他人： Sub JobNumberFilter(Message As Outlook.MailItem) Dim MatchesSubject, MatchesBody Dim RegEx As New RegExp 'eg 1000-10' RegEx.Pattern = "([0-9]{4}-[0-9]{2})" 'Check for pattern in subject and body' If (RegEx.Test(Message.Subject) Or RegEx.Test(Message.Body)) Then Set MatchesSubject = RegEx.Execute(Message.Subject) Set MatchesBody = RegEx.Execute(Message.Body) If Not (MatchesSubject Is Nothing And MatchesBody […]

VBScript有一个substring（）函数吗？: VBScript中有一个substring()函数，类似于Java的string.substring()吗？

只返回string中的数字0-9: 我需要一个正则expression式，我可以在VBScript和.NET中使用，只返回在string中find的数字。例如下面的任何“string”应该只返回1231231234 123 123 1234 （123）123-1234 123-123-1234 (123)123-1234 123.123.1234 123 123 1234 1 2 3 1 2 3 1 2 3 4 这将在电子邮件parsing器中用于查找客户可能在电子邮件中提供的电话号码并执行数据库search。我可能错过了一个类似的正则expression式，但我在regexlib.com上search。 [编辑] – 增加了RegexBuddy在设置musicfreak的答案后生成的代码 VBScript代码 Dim myRegExp, ResultString Set myRegExp = New RegExp myRegExp.Global = True myRegExp.Pattern = "[^\d]" ResultString = myRegExp.Replace(SubjectString, "") VB.NET Dim ResultString As String Try Dim RegexObj As […]