VBScript自动配置Python语言(3.3)的环境变量

大佬教程收集整理的这篇文章主要介绍了VBScript自动配置Python语言(3.3)的环境变量，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Option Explicit
Dim pSysEnv
Dim objFSO
Set pSysEnv = CreateObject("WScript.SHell").Environment("System")
Set objFSO=CreateObject("ScripTing.FileSystemObject")

Function Ismatch(Str,Patrn)  
  Dim r
  Set r = new RegExp
  r.Pattern = Patrn  
  Ismatch = r.test(Str)
  Set r = Nothing 
End Function  
  
Sub 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
  
Sub WriteEnv(pPath,pvalue)
    pSysEnv(pPath) = pValue
End Sub

WriteEnv "PYTHONHOME",objFSO.GetFolder(".").Path
WriteEnv "PYTHONPATH",objFSO.GetFolder(".").Path
SetEnv "Path",objFSO.GetFolder(".").Path
Set pSysEnv = Nothing
Dim oSHell
Set oSHell = WScript.CreateObject("WScript.SHell")
oSHell.Exec objFSO.GetFolder(".").Path & "\Lib\site-packages\pythonwin\Pythonwin.exe"
Set oSHell = Nothing

大佬总结

以上是大佬教程为你收集整理的VBScript自动配置Python语言(3.3)的环境变量全部内容，希望文章能够帮你解决VBScript自动配置Python语言(3.3)的环境变量所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。