Dateipfade mit Umgebungsvariablen

Jeder Software-Entwickler kennt das Problem bei der Verwaltung von applikationsrelevanten Dateien unter Windows-Betriebssystemen: Je nach Version müssen die Dateien – seien es Programm-, Anwendungs- oder temporäre Dateien – in verschiedenen Verzeichnissen abgelegt werden.

Um dem Entwickler die Verwaltung zu vereinfachen, stellt Windows Umgebungsvariablen zur Verfügung, mit denen die Verzeichnisse unabhängig von der Version des Betriebssytems ermittelt werden können.

Schon einige Male wurde die Frage an uns gestellt ob man solche Variablen in Dateipfaden angeben kann.

Mit der nachfolgend aufgeführten Funktion haben Sie die Möglichkeiten in Ihrer Programmierung Umgebungsvariablen in Dateipfaden zu verwenden und automatisch durch ihren Wert ersetzen zu lassen:

// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// + Umgebungsvariablen ersetzen                                    +
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub Str.Env
(
  aStr                  : alpha(4096);  // Zeichenkette
  opt aChrEnv           : alpha(1);     // Umgebungsvariablenzeichen
  opt aChrEsc           : alpha(1);     // Maskierungszeichen
)
: alpha;                                // Zeichenkette
  local
  {
    tPos                : int;
    tPosBegin           : int;
    tPosEnd             : int;
    tStr                : alpha(4096);
  }
{
  // Kein Umgebungsvariablenzeichen angegeben
  if (aChrEnv = '')
  {
    // Standardzeichen verwenden
    aChrEnv # '%';
  }
  // Kein Maskierungszeichen angegeben
  if (aChrEsc = '')
  {
    // Standardzeichen verwenden
    aChrEsc # '^';
  }
  // Schleife über alle Zeichen
  while (true)
  {
    // Position inkrementieren
    inc (tPos);
    // Zeichen ermitteln
    tStr # StrCut(aStr, tPos, 1);
    // Kein Zeichen vorhanden (Ende der Zeichenkette)
    if (tStr = '')
    {
      // Abbruch
      break;
    }
    else
    {
      // Unterscheidung über Zeichen
      switch (tStr)
      {
        // Umgebungsvariablenzeichen
        case aChrEnv :
        {
          // Maskierungsanfang nicht gesetzt
          if (tPosBegin = 0)
          {
            // Maskierungsanfang setzen
            tPosBegin # tPos;
          }
          // Maskierungsanfang gesetzt
          else
          {
            // Maskierungsende setzen
            tPosEnd # tPos;
            // Maskierung ermitteln (ohne Maskierungszeichen)
            tStr # StrCut(aStr, tPosBegin + 1, tPosEnd - tPosBegin - 1);
            // Maskierung entfernen (mit Maskierungszeichen)
            aStr # StrDel(aStr, tPosBegin, tPosEnd - tPosBegin + 1);
            // Ersetzung (Umgebungsvariable) ermitteln
            tStr # SysGetEnv(tStr);
            // Ersetzung (Umgebungsvariable) einfügen
            aStr # StrIns(aStr, tStr, tPosBegin);
            // Position korrigieren
            tPos # tPosBegin + StrLen(tStr) - 1;
            // Maskierungsanfang löschen
            tPosBegin # 0;
            // Maskierungsende löschen
            tPosEnd # 0;
          }
        }
        // Maskierungszeichen
        case aChrEsc :
        {
          // Zeichen entfernen
          aStr # StrDel(aStr, tPos, 1);
        }
      }
    }
  }
  return(aStr);
}

In %-Zeichen eingeschlossene Variablennamen werden ersetzt. Falls in dem Dateipfad selbst %-Zeichen enthalten sind, müssen diese mit dem ^-Zeichen maskiert werden.

Diese Funktion können Sie an passender Stelle in Ihrer Applikation einsetzen um zu den variablen Pfadangaben das passende Verzeichnis zu ermitteln. Damit können Sie zum Beispiel Pfadangaben vom Anwender abfragen und in der Datenbank speichern, um sie bei Bedarf auszulesen und die variablen Bestandteile zu ersetzen.

Beispiel
main
  local
  {
    tProgramFiles : alpha(256);
    tProgramData  : alpha(256);
    tTemp         : alpha(256);
    tUserDesktop  : alpha(256);
  }
{
  // Verzeichnis für Programmdateien
  // z.B. bei Windows 7:
  // C:\Program Files\MyApp
  tProgramFiles # Str.Env('%ProgramFiles%\MyApp');
  // Verzeichnis für Programmdaten ermitteln
  // z.B. bei Windows 7:
  // C:\ProgramData\MyApp
  tProgramData  # Str.Env('%ProgramData%\MyApp');
  // Verzeichnis für temporäre Dateien ermitteln
  // z.B. bei Windows 7:
  // C:\Users\Administrator\AppData\Local\Temp\MyApp
  tTemp         # Str.Env('%Temp%\MyApp');
  // Desktop des aktuellen Benutzers ermitteln
  // z.B. bei Windows 7:
  // C:\Users\Administrator\Desktop
  tUserDesktop  # Str.Env('%UserProfile%\Desktop');
}

Klicken Sie hier, um die Nutzungsbedingungen für unseren Blog zu lesen.

Schreiben Sie einen Kommentar

Ihre E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

Leave the field below empty!

Wünsche, Fragen oder Feedback sind willkommen:

Nutzungsbedingungen der Kommentarfunktion im Blog

1. Allgemeines

Vectorsoft AG („Anbieter“) stellt für Internetnutzer („Nutzer“) auf der Website
vectorsoft.de einen öffentlichen Blog bereit. Der öffentliche Blog dient dem
Informations- und Gedankenaustausch. Die Nutzer, welche sich mit Beiträgen und
Kommentaren beteiligen, verpflichten sich dazu, die Blog-Nutzungsbedingungen
einzuhalten und tragen die Verantwortung für die Richtigkeit und Angemessenheit
sowie Freiheit von Rechtsverletzungen ihrer Beiträge. Mit Nutzung der
Kommentarfunktion in unserem Blog akzeptieren Sie diese Nutzungsbedingungen.

2. Netiquette

Wir bitten Sie von persönlichen Angriffen und Provokationen aufgrund anderer
Meinungen abzusehen. Bitte argumentieren Sie sachlich und bewegen Sie sich auf
der Basis einer konstruktiven Diskussionskultur. Ihr Kommentar sollte stets im
Zusammenhang mit dem jeweiligen Thema sein, um Ausschweifungen in andere
Themenbereiche zu vermeiden. Das mehrmalige Posten desselben Kommentars
oder mehrerer ähnlicher Kommentare ist nicht erlaubt.

3. Verbot rechtswidriger Inhalte

Mit Absenden Ihres Kommentars bestätigen Sie, dass Sie keine Urheberrechte oder andere Rechte Dritter verletzen. Volksverhetzende, rassistische Äußerungen, Anleitungen zu Straftaten und deren Verherrlichung, Gewaltdarstellungen, pornografische Inhalte und Äußerungen, die Persönlichkeitsrechte verletzen sind untersagt.

4. Keine Werbung

Die Nutzung der Kommentarfunktion ist für kommerzielle oder parteipolitische
Zwecke nicht erlaubt. Werbliche Beiträge aller Art werden von uns umgehend
gelöscht.

5. Angaben zum Namen

Bei der Eingabe Ihres Namens achten Sie auf die zuvor genannten Grundsätze.

6. Quellenangaben

Bitte geben Sie bei der beabsichtigten Veröffentlichung von Zitaten oder Beiträgen
Dritter die jeweiligen Quellen an und erläutern dessen Bezug zum Blogbeitrag.

7. Verstoß gegen die Nutzungsbedingungen

Beiträge, die gegen diese Richtlinie verstoßen werden umgehend gelöscht. Sollten
Sie selbst Verstöße bemerken, so senden Sie uns bitte den Link des betreffenden
Kommentars per E-Mail an . Wir weisen ausdrücklich daraufhin, dass wir einzelne Nutzer bei wiederholten oder schweren Verstößen gegen diese
Nutzungsbedingungen ausschließen werden.

Stand: Sept. 2024

Deine Trial Version - jetzt anfordern!

Teste yeet - unverbindlich und kostenfrei

IHRE EVALUIERUNGSLIZENZ - JETZT ANFORDERN!

TESTEN SIE DIE CONZEPT 16 VOLLVERSION - UNVERBINDLICH und KOSTENFREI

Melden Sie sich bei unserem Newsletter an

Anrede*
     
Zustimmung zur Datenverarbeitung gem. DSGVO*



WordPress Cookie-Hinweis von Real Cookie Banner