Ako čítať Premenné prostredia vo VB6

Premenné prostredia sú udržiavané v operačnom systéme Windows . Premenné prostredia možno použiť v skriptoch alebo Visual Basic programov odkazovať štandardný adresár , ktorý môže byť odlišný od jedného stroja k druhému . Napríklad , " PATH " Premenná prostredia pravdepodobne líšiť na každom počítači . " SYSTEM ROOT " je ďalšia premenná prostredia , ktorá sa líši pre každý operačný systém . Tam sú tiež preddefinované premenné prostredie , ako je " DATE " a " TIME " . VB aplikácie môžu čítať premenné prostredia s funkciou " Environ " . Pokyny dovolená 1

Vytvoriť nový štandardné EXE projekt jazyka Visual Basic . Formulár s názvom " Form1 " je predvolene vytvorený .
2

deklarovať lokálne premenné v " Form1 " udalosti zaťaženie . Budete potrebovať číslo , boolean a reťazec držať hodnotu premennej prostredia .

Dim i As Integer Dim

bFound As Boolean

Dim sEnvValue ako reťazec
3

Nastavte " i " premenné rovná jednej . Ďalej si prečítajte premennú prostredia na pozíciu jedného v indexe a uložiť ho do " sEnvValue . "

SEnvValue = Environ ( i )
4

slučka cez všetky premenné prostredia , kým nájsť ten , ktorý hľadáte . Urobte to s " While " vyhlásenie . Tento kód nastaví " bFound " na hodnotu true v prípade , že " PATH " premenná prostredia sa nachádza .

Keď nie bFound A sEnvValue < > " "

Ak UCAS ( ľavá ( sEnvValue , 5 ) ) = " PATH = " Potom

bFound = TRUE

Else

i = i + 1

sEnvValue = Environ ( i )

End If

Wend

funkcie " UCAS " prevedie " sEnvValue " pre všetky veľké písmená , pretože porovnanie je veľké a malé písmená . Je - li " PATH " nebol nájdený , prečítajte si nasledujúce premenné prostredie , kým sme si ich všetky .
5

Skontrolujte hodnotu " bFound " určiť, aké kroky je potrebné vykonať ďalšie . Teraz máme hodnotu " PATH " premenné prostredie sa nachádza v " sEnvValue " a môže analyzovať ho , zobraziť , vložte ju do tabuľky , napíšte ich do súboru alebo iné akcie , ktoré by za normálnych okolností vziať so reťazcové premenné .

• Predchádzajúca strana: Ako používať funkcie SUM v VB.net 
• Ďalšia strana: Ako používať odkazy na VB6