c语言编辑器怎么用vbs手机版,如何用VBS脚本 或者用c语言设置windows环境变量

匿名用户

1级

2013-11-10 回答

Set pSysEnv = CreateObject("WScript.Shell").Environment("System") 'Check whether a character string matches a regular expression

' ^\w+[@]\w+[.]\w+$ E-MailAddress

' ^[0-9-]+$ Numeral

Function IsMatch(Str, Patrn)

Set r = new RegExp

r.Pattern = Patrn

IsMatch = r.test(Str)

End FunctionSub SetEnv(pPath, pValue)

Dim ExistValueOfPath

IF pValue <> "" Then

ExistValueOfPath = pSysEnv(pPath)

IF Right(pValue, 1) = "\" Then pValue = Left(pValue, Len(pValue)-1)

If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit Sub '已经存在该环境变量设置

If ExistValueOfPath <> "" Then pValue = ";" & pValue

pSysEnv(pPath) = ExistValueOfPath & pValue

Else

pSysEnv.Remove(pPath)

End IF

End SubSet pSysEnv = CreateObject("WScript.Shell").Environment("System") 'Check whether a character string matches a regular expression

' ^\w+[@]\w+[.]\w+$ E-MailAddress

' ^[0-9-]+$ Numeral

Function IsMatch(Str, Patrn)

Set r = new RegExp

r.Pattern = Patrn

IsMatch = r.test(Str)

End FunctionSub SetEnv(pPath, pValue)

Dim ExistValueOfPath

IF pValue <> "" Then

ExistValueOfPath = pSysEnv(pPath)

IF Right(pValue, 1) = "\" Then pValue = Left(pValue, Len(pValue)-1)

If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit Sub '已经存在该环境变量设置

If ExistValueOfPath <> "" Then pValue = ";" & pValue

pSysEnv(pPath) = ExistValueOfPath & pValue

Else

pSysEnv.Remove(pPath)

End IF

End Sub