Interaction.Environ 方法

來源:

Interaction.vb

來源:

Interaction.vb

來源:

Interaction.vb

public:
 static System::String ^ Environ(System::String ^ Expression);

public static string Environ (string? Expression);

public static string Environ (string Expression);

static member Environ : string -> string

Public Function Environ (Expression As String) As String

參數

傳回

與作業系統環境變數關聯的字串。

例外狀況

範例

此範例會 Environ 使用 函式，從環境字串數據表提供語句的專案 PATH 編號和長度。

Sub tenv()
    Dim envString As String
    Dim found As Boolean = False
    Dim index As Integer = 1
    Dim pathLength As Integer
    Dim message As String

    envString = Environ(index)
    While Not found And (envString <> "")
        If (envString.Substring(0, 5) = "Path=") Then
            found = True
        Else
            index += 1
            envString = Environ(index)
        End If
    End While

    If found Then
        pathLength = Environ("PATH").Length
        message = "PATH entry = " & index & " and length = " & pathLength
    Else
        message = "No PATH environment variable exists."
    End If

    MsgBox(message)
End Sub

備註

如果 Expression 包含字串，函式會 Environ 傳回指派給指定環境字串的文字，也就是該環境變數的環境字串數據表中，等號 (=) 後面的文字。 如果在環境字串數據表中找不到中的 Expression 字串，則會傳回長度為零的字串 (“”) 。

如果 Expression 包含整數，則會傳回佔用環境字串數據表中該數值位置的字串。 在此情況下， Environ 會傳回所有文字，包括環境變數的名稱。 如果指定的位置中沒有環境字串， Environ 則傳回長度為零的字串。

另請參閱

• ArgumentException
• Visual Basic Run-Time 連結庫成員

來源:

Interaction.vb

來源:

Interaction.vb

來源:

Interaction.vb

public:
 static System::String ^ Environ(int Expression);

public static string Environ (int Expression);

static member Environ : int -> string

Public Function Environ (Expression As Integer) As String

參數

傳回

與作業系統環境變數關聯的字串。

例外狀況

範例

此範例會 Environ 使用 函式，從環境字串數據表提供語句的專案 PATH 編號和長度。

Sub tenv()
    Dim envString As String
    Dim found As Boolean = False
    Dim index As Integer = 1
    Dim pathLength As Integer
    Dim message As String

    envString = Environ(index)
    While Not found And (envString <> "")
        If (envString.Substring(0, 5) = "Path=") Then
            found = True
        Else
            index += 1
            envString = Environ(index)
        End If
    End While

    If found Then
        pathLength = Environ("PATH").Length
        message = "PATH entry = " & index & " and length = " & pathLength
    Else
        message = "No PATH environment variable exists."
    End If

    MsgBox(message)
End Sub

備註

如果 Expression 包含字串，函式會 Environ 傳回指派給指定環境字串的文字，也就是該環境變數的環境字串數據表中，等號 (=) 後面的文字。 如果在環境字串數據表中找不到中的 Expression 字串，則會傳回長度為零的字串 (“”) 。

如果 Expression 包含整數，則會傳回佔用環境字串數據表中該數值位置的字串。 在此情況下， Environ 會傳回所有文字，包括環境變數的名稱。 如果指定的位置中沒有環境字串， Environ 則傳回長度為零的字串。

另請參閱

• ArgumentException
• Visual Basic Run-Time 連結庫成員