一些经常会用到的vbscript检测函数

最新推荐文章于 2021-02-16 10:11:45 发布
最新推荐文章于 2021-02-16 10:11:45 发布
阅读量79 收藏
点赞数
本文提供了一系列使用正则表达式实现的数据验证函数，包括日期、时间、邮箱等常见格式的有效性校验。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

'----------------------------------------------------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的实际长度, 一个汉字算2个长度
'----------------------------------------------------------------------------------------------------
Public Function Length(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "[^\x00-\xff]"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
Length = Len(oRegExp.Replace(sInput, "**"))

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDate
' Function Desc : 判断输入是否是有效的短日期格式 - "YYYY-MM-DD"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDate(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidDate = IsDate(sInput)
Else
IsValidDate = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidTime
' Function Desc : 判断输入是否是有效的时间格式 - "HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidTime(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidTime = IsDate(sInput)
Else
IsValidTime = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidEmail
' Function Desc : 判断输入是否是有效的电子邮件
'----------------------------------------------------------------------------------------------------
Public Function IsValidEmail(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidEmail = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDatetime
' Function Desc : 判断输入是否是有效的长日期格式 - "YYYY-MM-DD HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDatetime(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidDatetime = IsDate(sInput)
Else
IsValidDatetime = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidInteger
' Function Desc : 判断输入是否是一个整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^(-|\+)?\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPositiveInteger
' Function Desc : 判断输入是否是一个正整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidPositiveInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^(\+)?\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPositiveInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNegativeInteger
' Function Desc : 判断输入是否是一个负整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidNegativeInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^-\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidNegativeInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNumber
' Function Desc : 判断输入是否是一个数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidNumber(sInput)

IsValidNumber =  IsNumeric(sInput)

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidLetters
' Function Desc : 判断输入是否是一个由 A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidLetters(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidLetters = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDigits
' Function Desc : 判断输入是否是一个由 0-9 组成的数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidDigits(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[1-9][0-9]*$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidDigits = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidAlphanumeric
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidAlphanumeric(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidAlphanumeric = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidString
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z / . / _ 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidString(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9\s.\-_]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidString = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPostalcode
' Function Desc : 判断输入是否是一个有效的邮政编码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPostalcode(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\d{6}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPostalcode = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPhoneNo
' Function Desc : 判断输入是否是一个有效的电话号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPhoneNo(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "(^0\d{2,3}\-[1-9]\d{2,7}$)|(^[1-9]\d{2,7}$)|(^\(0[1-9]{2,3}\)[1-9]\d{2,7}$)"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPhoneNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidMobileNo
' Function Desc : 判断输入是否是一个有效的手机号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidMobileNo(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^0?13\d{9}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidMobileNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

c语言 strcpy函数实现,自己实现strcpy函数的实现方法
weixin_39560245的博客
05-19 2118
自己实现strcpy函数的实现方法复制代码 代码如下:#include#include using namespace std;void myStrcpy(char* Dest, const char *Src){assert((Dest!= NULL)&&(Src!=NULL));while((*Dest = *Src)!='\0'){Dest++;Src++;}}int mai...
javascript,VBScript关键字and保留字
10-08
保留字是指尚未用作关键字，但未来可能会被用到的词汇。例如，`abstract`、`boolean`、`byte`、`char`等，虽然在JavaScript中目前不是关键字，但不应作为变量名使用，以防未来版本中被定义为关键字。 VBScript ...
java validateutils_ValidationUtils 验证工具
weixin_39944146的博客
02-16 575
package com.appnirman.vaidationutils;import android.content.Context;import java.util.regex.Matcher;import java.util.regex.Pattern;public class ValidationUtils {private final Context mContext;public Va...
手机号码和电话号码的正则表达式
我是一只有梦想的攻城狮
09-25 2456
电话号码正则表达式（支持手机号码，3-4位区号，7-8位直播号码，1－4位分机号） ((\d{11})|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1}))$)   匹配格式： 11位手机号码
if(modelstate.isvalid)这句话是啥意思呀？？？？求解释！！！！！
热门推荐
Jacky的专栏
03-30 1万+
是编程语言里的一个代码片断。ASP.NET MVC单元测试Action测试时会用到ModelState.IsValid 单纯从意思方面看可以理解为： 如果(模型状态.有效),则.......
文章标题
D.K专栏
01-03 180
case R.id.change: // 转移 if (phoneNum != null && phoneNum.length() > 0) { if (IsValidMobileNo(phoneNum)) { intent = new Intent();
iOS_校验手机号
翱翔的魁魁
10-13 2403
///检测手机号码的合法性 BOOL isValidMobile(NSString * _Nullable mobile){ /** * 移动号段正则表达式 */ NSString *CM_NUM = @"^((13[4-9])|(147)|(15[0-2,7-9])|(178)|(18[2-4,7-8]))\\d{8}|(1705)\\d{7}$"; /
VBScript 基础知识
Johnny_Timmy的博客
05-22 5901
1.     VBS介绍VBS是一种Windows脚本，全称是 : Microsoft Visual Basic ScriptEdition. VBS是VisualBasic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各...
VBScript
Alpssoul的博客
09-27 6092
Vbs 脚本编程简明教程之一—为什么要使用Vbs？ 在 Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周 也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情 就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造 一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的
webshell函数回调
zwish的信安之路
07-02 3599
目录 经典一句话 利用简单的拼接字符串 利用php回调函数等技巧绕过WAF的方法（姑且简称“回调后门”吧） 利用 array_filter+base64_decode 2.利用array_map+base64_decode 3.利用uasort+base64_decode 4.利用array_walk+preg_replace 5.利用array_walk_recursive+preg_rep...
VBScript函数大全及详细使用方法
这些函数在编写VBScript脚本时经常会被用到，熟悉它们的用法对于进行自动化任务和编写高效的脚本非常关键。在实际应用中，根据具体需求选择合适的函数组合使用，能够极大地提高开发效率和脚本的执行性能。
ASP中常用到的函数，给大家分享
Gunter's Blog
07-25 832
//----------本站公用函数----------------//    *******************************************************    函数名：checkVb()    作  用：检测数据库操作否正确    参  数：无    返回值：true    --出错             false   --正确    *
计算机科学知识体系全面整理与系统归纳项目-包含数据结构与算法分析计算机网络协议详解操作系统原理剖析数据库系统设计编译原理实现计算机组成结构软件工程方法论人工智能基础.zip
08-23
计算机科学知识体系全面整理与系统归纳项目_包含数据结构与算法分析计算机网络协议详解操作系统原理剖析数据库系统设计编译原理实现计算机组成结构软件工程方法论人工智能基础.zipAI工具在开发实践中的应用
ForestBlog 是基于 go 语言开发的，适合用来学习和展示 markdown 文档的精美博客_).zip
最新发布
08-23
ForestBlog 是基于 go 语言开发的，适合用来学习和展示 markdown 文档的精美博客_).zip
### 企业架构设计方法论详解（豪华版）
08-23
内容概要：该PPT详细介绍了企业架构设计的方法论，涵盖业务架构、数据架构、应用架构和技术架构四大核心模块。首先分析了企业架构现状，包括业务、数据、应用和技术四大架构的内容和关系，明确了企业架构设计的重要性。接着，阐述了新版企业架构总体框架（CSG-EAF 2.0）的形成过程，强调其融合了传统架构设计（TOGAF）和领域驱动设计（DDD）的优势，以适应数字化转型需求。业务架构部分通过梳理企业级和专业级价值流，细化业务能力、流程和对象，确保业务战略的有效落地。数据架构部分则遵循五大原则，确保数据的准确、一致和高效使用。应用架构方面，提出了分层解耦和服务化的设计原则，以提高灵活性和响应速度。最后，技术架构部分围绕技术框架、组件、平台和部署节点进行了详细设计，确保技术架构的稳定性和扩展性。 适合人群：适用于具有一定企业架构设计经验的IT架构师、项目经理和业务分析师，特别是那些希望深入了解如何将企业架构设计与数字化转型相结合的专业人士。 使用场景及目标：①帮助企业和组织梳理业务流程，优化业务能力，实现战略目标；②指导数据管理和应用开发，确保数据的一致性和应用的高效性；③为技术选型和系统部署提供科学依据，确保技术架构的稳定性和扩展性。 阅读建议：此资源内容详尽，涵盖企业架构设计的各个方面。建议读者在学习过程中，结合实际案例进行理解和实践，重点关注各架构模块之间的关联和协同，以便更好地应用于实际工作中。
基于Python+Django的旅游景点及路线推荐系统：协同过滤与机器学习的应用
08-23
如何使用Python和Django框架构建一个旅游景点及路线推荐系统。系统不仅实现了常见的登录、查看景点信息、搜索景点、评论评分等功能，还特别引入了四种推荐算法——热门推荐（基于评分）、随机推荐、猜你喜欢（基于协同过滤）以及类似推荐（基于地点）。作者深入探讨了每种推荐算法的具体实现方法和技术细节，如利用Django ORM进行高效查询、使用geopy库计算地理距离、优化协同过滤算法等。此外，文中还提到了一些实用技巧，如通过记录用户的登录位置来提高首次推荐的准确性，以及使用Django Admin快速搭建管理员后台。 适合人群：对Web开发感兴趣的开发者，尤其是熟悉Python和Django框架的技术人员。 使用场景及目标：适用于希望深入了解推荐系统实现机制并应用于实际项目的开发者。通过学习本文，读者能够掌握如何结合多种推荐算法提升用户体验，同时了解如何优化系统性能。 其他说明：作者强调推荐系统的设计不仅要考虑算法的有效性，还要兼顾用户的实际需求和体验。未来计划进一步改进系统，加入更多个性化元素，如实时用户画像等。
【Matlab语音处理】独立分量分析 Independent Component Analysis.zip
08-23
资 源 简 介 独立分量分析(Independent Component Analysis，简称ICA)是近二十年来逐渐发展起来的一种盲信号分离方法。它是一种统计方法，其目的是从由传感器收集到的混合信号中分离相互独立的源信号，使得这些分离出来的源信号之间尽可能独立。它在语音识别、电信和医学信号处理等信号处理方面有着广泛的应用，目前已成为盲信号处理，人工神经网络等研究领域中的一个研究热点。本文简要的阐述了ICA的发展、应用和现状，详细地论述了ICA的原理及实现过程，系统地介绍了目前几种主要ICA算法以及它们之间的内在联系， 详 情 说 明 独立分量分析(Independent Component Analysis，简称ICA)是近二十年来逐渐发展起来的一种盲信号分离方法。它是一种统计方法，其目的是从由传感器收集到的混合信号中分离相互独立的源信号，使得这些分离出来的源信号之间尽可能独立。它在语音识别、电信和医学信号处理等信号处理方面有着广泛的应用，目前已成为盲信号处理，人工神经网络等研究领域中的一个研究热点。 本文简要的阐述了ICA的发展、应用和现状，详细地论述了ICA的原理及实现过程，系统地介绍了目前几种主要ICA算法以及它们之间的内在联系，在此基础上重点分析了一种快速ICA实现算法一FastICA。物质的非线性荧光谱信号可以看成是由多个相互独立的源信号组合成的混合信号，而这些独立的源信号可以看成是光谱的特征信号。为了更好的了解光谱信号的特征，本文利用独立分量分析的思想和方法，提出了利用FastICA算法提取光谱信号的特征的方案，并进行了详细的仿真实验。 此外，我们还进行了进一步的研究，探索了其他可能的ICA应用领域，如音乐信号处理、图像处理以及金融数据分析等。通过在这些领域中的实验和应用，我们发现ICA在提取信号特征、降噪和信号分离等方面具有广泛的潜力和应用前景。
MATLAB实现虚拟电厂日前鲁棒优化调度——应对源荷双重不确定性
08-23
内容概要：本文介绍了基于MATLAB和CPLEX工具实现的虚拟电厂日前鲁棒优化调度模型。该模型针对光伏出力和负荷功率的双重不确定性进行了处理，采用了鲁棒优化方法来提升系统稳定性并降低风险。文中详细解析了从数据准备到模型构建、求解过程再到结果分析的具体步骤。通过引用相关文献，进一步完善了模型的理论基础和技术细节。最终，该模型能够有效提高电力系统的稳定性和可靠性，为虚拟电厂的实际运行提供了重要的参考依据。 适合人群：对电力系统优化调度感兴趣的科研人员、工程师及研究生。 使用场景及目标：适用于需要处理源荷双重不确定性的虚拟电厂或微网单元的日前调度任务，旨在提高调度决策的经济性和稳定性。 其他说明：本文不仅提供了详细的MATLAB代码实现，还深入探讨了鲁棒优化法的应用及其在电力系统中的意义。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值