Wie Umgebungsvariablen in VB6 Lesen

Mitglieder-Login

InformationenVisual Basics Programmierung

Visual Basic Standards Jede Programmiersprache hat einige Reihe von Standards , die auf ein Maß an Übereinstimmung mit dem
Wie Visual Basic verwenden, um die … Microsoft entwickelte die Programmiersprache Visual Basic auf eine viel einfachere Umgebung für diej
Wie Kratzen in VBA Bildschirm Beim Erstellen einer Anwendung mithilfe von Visual Basic für Applikationen-Sprache , können Sie ein
Wie zu Word-Dokumenten mit VB6 erst… Seit Microsoft Word ist ein weit verbreitetes Programm , Word-Dokumente können eine praktische Mögli

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie Umgebungsvariablen in VB6 Lesen

Umgebungsvariablen werden durch das Windows -Betriebssystem beibehalten . Umgebungsvariablen können in Skripten oder Visual Basic -Programmen verwendet werden, um eine Standard-Verzeichnis , die sich von einer Maschine zur nächsten könnte verweisen. Zum Beispiel wird die "PATH" Umgebungsvariablen wahrscheinlich anders auf jedem Computer. "SYSTEM ROOT " ist eine weitere Umgebungsvariable, die für jedes Betriebssystem . Es gibt auch vordefinierte Umgebungsvariablen wie "Datum" und "Zeit". VB-Anwendungen können Umgebungsvariablen mit dem " Umwelt "-Funktion zu lesen. Anleitung
1

Erstellen Sie ein neues Standard EXE Visual Basic-Projekt . Ein Formular mit dem Namen " Form1 " wird standardmäßig erstellt .
2

Declare lokalen Variablen in der " Form1 " load-Ereignis . Sie müssen eine ganze Zahl , eine boolean und eine Zeichenfolge , um den Wert der Umgebungsvariablen halten .

Dim i as Integer Dim

bFound als Boolean Dim

sEnvValue als String
3

Stellen Sie die "i "-Variable gleich eins ist. Weiter , lesen Sie die Umgebungsvariablen an Position eins im Index und speichern Sie es in " sEnvValue . "

SEnvValue = Environ ( i)
4

Schleife durch alle Umgebungsvariablen , bis Sie finden die, die Sie suchen. Tun Sie dies mit einem "Während "-Anweisung. Dieser Code setzt " bFound " true, wenn die "PATH" Umgebungsvariablen befindet.

While Not bFound UND sEnvValue <> ""

Wenn Ucase ( Left ( sEnvValue , 5) ) = " PATH = " Dann

bFound = True Else

i = i + 1

sEnvValue = Environ ( i)
< p> End If Wend

" Ucase " function " sEnvValue " in Großbuchstaben konvertiert , weil der Vergleich ist Groß-und Kleinschreibung . Wenn "PATH" nicht gefunden wird, lesen Sie den nächsten Umgebungsvariablen , bis wir sie alle gelesen haben.
5

Überprüfen Sie den Wert von " bFound " , um festzustellen, welche Schritte als nächstes auszuführen. Wir haben jetzt den Wert der "PATH" Umgebungsvariablen in " sEnvValue " und kann es zu analysieren , zeigen Sie es , legen Sie sie in eine Tabelle , schreiben Sie es in eine Datei oder andere Aktionen, die Sie normalerweise mit einem String-Variable nehmen würde.