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

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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 & "Libsite-packagespythonwinPythonwin.exe"
Set oShell = Nothing

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!