7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim reg As Object
OracleHome = "D:\Oracle10g"
sPath = "d:\Oracle10g\BIN;D:\Oracle10g\BIN;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\WebCallCtrl"
newPath = Replace(sPath, OracleHome & "\BIN;", "")
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.IgnoreCase = True
reg.Pattern = Replace(OracleHome & "\BIN;", "\", "\\")
Debug.Print sPath
sPath = reg.Replace(sPath, "")
Debug.Print sPath
End Sub
Option Explicit
Private Sub Form_Load()
Dim OracleHome As String, SPATH As String, newpath$
OracleHome = "D:\Oracle10g"
SPATH = "d:\Oracle10g\BIN;D:\Oracle10g\BIN;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\WebCallCtrl"
newpath = Replace(SPATH, OracleHome & "\BIN;", "", , , vbTextCompare)
Debug.Print newpath
End Sub
newPath = Replace(UCASE(sPath), UCASE(OracleHome) & "\BIN;", "")