Hallo da ich häufig mit VBS aber nicht dem vollen Programmierumfang zu tun habe, benötige ich für ein Projekt eure Hilfe.
Ich habe bereits mehere Beispiele getestet, die ich finden konnte. Unteranderem die Split funktion.
Also,
es geht um folgenden Fall. Ich möchte meine Variable HIERARCHY
auswerten, diese enthält je nach Projekt mal mehr oder mal weniger
Untergruppen.
Bsp: HIERARCHY=\Theke\Alle_Container\1_Container_Wand\Boden
Das bedeutet, es geht um ein Objekt das als Theke in einem CAD Programm definiert wurde, darin enthalten ist die Gruppe Alle_Container und in dieser Gruppe wieder eine Gruppe namens 1_Container
Ich hatte nun die idee, diesen Pfad von rechts nach links auszulesen und jedes Verzeichnis in eine neue Variable zu schreiben.
Das war mein erster Versuch. Hat jemand vielleicht einen Tip oder ein besseres Beispiel ?
*Thema verschoben und CodeTags eingefügt - Bitte etwas mehr mühe geben!!* ~NoFear23m
Ich habe bereits mehere Beispiele getestet, die ich finden konnte. Unteranderem die Split funktion.
Also,
es geht um folgenden Fall. Ich möchte meine Variable HIERARCHY
auswerten, diese enthält je nach Projekt mal mehr oder mal weniger
Untergruppen.
Bsp: HIERARCHY=\Theke\Alle_Container\1_Container_Wand\Boden
Das bedeutet, es geht um ein Objekt das als Theke in einem CAD Programm definiert wurde, darin enthalten ist die Gruppe Alle_Container und in dieser Gruppe wieder eine Gruppe namens 1_Container
Ich hatte nun die idee, diesen Pfad von rechts nach links auszulesen und jedes Verzeichnis in eine neue Variable zu schreiben.
Das war mein erster Versuch. Hat jemand vielleicht einen Tip oder ein besseres Beispiel ?
VB.NET-Quellcode
- Dim strPfad
- Dim strVerzeichnis1
- Dim strVerzeichnis2
- Dim strVerzeichnis3
- Dim strVerzeichnis4
- Dim strVerzeichnis5
- 'strPfad = HIERARCHY
- strPfad = "\Theke\Alle_Container\1_Container_Wand\Boden"
- ' Verzeichnis 1
- If Mid(strPfad, 1, 1) = "\" Then
- strVerzeichnis1 = Left(strPfad, 8)
- Else
- strVerzeichnis1 = vbNullString
- End If
- MsgBox "Verzeichnis 1: " & strVerzeichnis1
- ' Verzeichnis 2
- strVerzeichnis2 = Left(strPfad, InStrRev(strPfad, "\") - 1)
- MsgBox "Verzeichnis 2: " & strVerzeichnis2
- ' Verzeichnis 3
- strVerzeichnis3 = Mid(strPfad, InStrRev(strPfad, "\") + 1)
- MsgBox "Verzeichnis 3: " & strVerzeichnis3
- ' Verzeichnis 4
- If InStrRev(strPfad, "\") = 0 Then
- strVerzeichnis4 = ""
- Else
- strVerzeichnis4 = Mid(strPfad, InStrRev(strPfad, "\"))
- End If
- MsgBox "Verzeichnis 4: " & strVerzeichnis4
- 'MsgBox "Zeile 172: " & HIERARCHY
*Thema verschoben und CodeTags eingefügt - Bitte etwas mehr mühe geben!!* ~NoFear23m
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nofear23m“ ()