下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。
内存溢出小编现在分享给大家,也给大家做个参考。
Option ExplicitDim pSysEnvDim objFSOSet 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 IFEnd Sub Sub WriteEnv(pPath,pValue) pSysEnv(pPath) = pValueEnd SubWriteEnv "PYTHONHOME",objFSO.GetFolder(".").PathWriteEnv "PYTHONPATH",objFSO.GetFolder(".").PathSetEnv "Path",objFSO.GetFolder(".").PathSet pSysEnv = nothingDim oShellSet oShell = WScript.CreateObject("WScript.Shell")oShell.Exec objFSO.GetFolder(".").Path & "\lib\site-packages\pythonwin\Pythonwin.exe"Set oShell = nothing
以上是内存溢出(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
总结以上是内存溢出为你收集整理的VBScript自动配置Python语言(3.3)的环境变量全部内容,希望文章能够帮你解决VBScript自动配置Python语言(3.3)的环境变量所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)