16
VBS: Mehrere Rückgabewerte einer Funktion -. Wie geht das?
Hallo an alle Forenteilnehmer,
wie kann ich einer VBS-Funktion mehrere Rückgabeparameter liefern lassen.
Hinergrund:
Habe eine VBS-Funktion geschrieben, die den Standort, die Stadt etc. aus den OUs liest.
Übergabeparameter sind keine
Rückgabeparameter sind vier String-Variablen.
Bei einer einzelnen Variable weiß ich das?
Muss ich das evtl. über ein Rückgabe-Array lösen?
Wenn ja, was muss ich in meiner Funktion wie schreiben und was in meinem Hauptprogramm?
Vielen Dank im Voraus!
Thomas
wie kann ich einer VBS-Funktion mehrere Rückgabeparameter liefern lassen.
Hinergrund:
Habe eine VBS-Funktion geschrieben, die den Standort, die Stadt etc. aus den OUs liest.
Übergabeparameter sind keine
Rückgabeparameter sind vier String-Variablen.
Bei einer einzelnen Variable weiß ich das?
Muss ich das evtl. über ein Rückgabe-Array lösen?
Wenn ja, was muss ich in meiner Funktion wie schreiben und was in meinem Hauptprogramm?
Vielen Dank im Voraus!
Thomas
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 207778
Url: https://administrator.de/contentid/207778
Printed on: April 23, 2024 at 15:04 o'clock
16 Comments
Latest comment
Moin,
Ja, das geht über Array - in etwa so:
lg,
Slainte
Ja, das geht über Array - in etwa so:
dim y(4)
y=blubb()
function blubb()
dim x(4)
blubb=x
end functionlg,
Slainte
Hallo Slainte,
danke für die Info.
Wie kann ich die 4 Variablen mit Werte zurückgeben.
Beispiel
In Funktion:
Var1 = "Wert1"
Var2 = "Wert2"
Var3 = "Wert3"
Var4 = "Wert5"
Wie sieht der Aufruf außerhalb der Funktion aus und in der letzten Zeile der Funktion?
lg
Thomas
danke für die Info.
Wie kann ich die 4 Variablen mit Werte zurückgeben.
Beispiel
In Funktion:
Var1 = "Wert1"
Var2 = "Wert2"
Var3 = "Wert3"
Var4 = "Wert5"
Wie sieht der Aufruf außerhalb der Funktion aus und in der letzten Zeile der Funktion?
lg
Thomas
Hier wird der Umgang mit Arrays in VBScript ausführlich erklärt.
Danke dir für den Link.
Das schau ich mir mal an.
Der Umgang mit Array ist mir im Allgemeinen klar, nur bei der Rückgabe von einer Funktion aus.
Mein erster Test war wie folgt:
Funktion Test1()
..Code..
..Code..
DIM ArrayRueckgabeWerte(4)
Test1 = join(ArrayRueckgabeWerte(Var1,Var2,Var3, Var4)
End Function
Aufruf:
DIM ArrayWerte(4)
ArrayWerte(0) = Test1
Wenn ich von 0-3 die Werte auslesen lasse, komme ich nicht an die einzelnen Werte.
Habe ich da einen Denkfehler?
Das schau ich mir mal an.
Der Umgang mit Array ist mir im Allgemeinen klar, nur bei der Rückgabe von einer Funktion aus.
Mein erster Test war wie folgt:
Funktion Test1()
..Code..
..Code..
DIM ArrayRueckgabeWerte(4)
Test1 = join(ArrayRueckgabeWerte(Var1,Var2,Var3, Var4)
End Function
Aufruf:
DIM ArrayWerte(4)
ArrayWerte(0) = Test1
Wenn ich von 0-3 die Werte auslesen lasse, komme ich nicht an die einzelnen Werte.
Habe ich da einen Denkfehler?
Test1 = join(ArrayRueckgabeWerte(Var1,Var2,Var3, Var4) ArrayRueckgabeWerte(0)=var1;
ArrayRueckgabeWerte(1)=var2;
....
Test1 = ArrayRueckgabeWerte;
end function;Aufruf:
DIM ArrayWerte(4)
ArrayWerte = Test1
Bekomme leider außerhalb der Funktion einen Typenkonflikt-Fehler Code: 800A000D
Hier der Code:
Funktion .....
Code...
Code..
DIM ArrayRueckgabeStandortdaten (4)
ArrayRueckgabeStandortdaten(0) = strStandortStadt
ArrayRueckgabeStandortdaten(1) = strStandortStadtName
ArrayRueckgabeStandortdaten(2) = strStandortLand
ArrayRueckgabeStandortdaten(3) = strStandortLandName
Netzwerk_Standort_ermitteln = ArrayRueckgabeStandortdaten
End Function
Außerhalb der Funktion:
Dim ArrayWerte(4)
ArrayWerte = Netzwerk_Standort_ermitteln ' hier kommt der Fehler!
Hier der Code:
Funktion .....
Code...
Code..
DIM ArrayRueckgabeStandortdaten (4)
ArrayRueckgabeStandortdaten(0) = strStandortStadt
ArrayRueckgabeStandortdaten(1) = strStandortStadtName
ArrayRueckgabeStandortdaten(2) = strStandortLand
ArrayRueckgabeStandortdaten(3) = strStandortLandName
Netzwerk_Standort_ermitteln = ArrayRueckgabeStandortdaten
End Function
Außerhalb der Funktion:
Dim ArrayWerte(4)
ArrayWerte = Netzwerk_Standort_ermitteln ' hier kommt der Fehler!
Hallo thl1966 und SlainteMhath!
Nur als Anmerkung: Natürlich ist die Verwendung einer
Grüße
bastla
P.S.: @ thl1966: Magst Du nicht auch Deine Codeschnipsel passend hier)?
Nur als Anmerkung: Natürlich ist die Verwendung einer
Function die elegantere und programmiertechnisch zu bevorzugende Variante - einfacher ginge es aber mit einem Sub: Da in VBS ja alle Variablen global sind, genügt es, die benötigten Variablen vor dem Aufruf des Sub zu deklarieren / initialisieren, und sie dann im Sub mit den Werten zu befüllen ...Grüße
bastla
P.S.: @ thl1966: Magst Du nicht auch Deine Codeschnipsel passend hier)?
Hallo Bastla,
vielen Dank für die Info.
Das hilft mir sehr.
PS: Mein Codeschnipsel ist ca. 500 Zeilen groß.
Mit ging es eigentlich nur um die Rückgabewerte.
Es sind zu vielen Firmenspezifische Dinge im Code, dass ich das nicht komplett posten kann.
Mich würde aber trotzdem interessieren, warum ich einen Typfehler bekomme?
Hast du das vielleicht eine Idee?
Gruß
Thomas
vielen Dank für die Info.
Das hilft mir sehr.
PS: Mein Codeschnipsel ist ca. 500 Zeilen groß.
Mit ging es eigentlich nur um die Rückgabewerte.
Es sind zu vielen Firmenspezifische Dinge im Code, dass ich das nicht komplett posten kann.
Mich würde aber trotzdem interessieren, warum ich einen Typfehler bekomme?
Hast du das vielleicht eine Idee?
Gruß
Thomas
Habs endlich hinbekommen, dank dem Hinweis von Bastla,
Hier der Code:
Function .....
' 4 Variablen als Array zurückgeben!
DIM ArrayRueckgabeStandortdaten (4)
ArrayRueckgabeStandortdaten(0) = strStandortLand
ArrayRueckgabeStandortdaten(1) = strStandortLandName
ArrayRueckgabeStandortdaten(2) = strStandortStadt
ArrayRueckgabeStandortdaten(3) = strStandortStadtName
Netzwerk_Standort_ermitteln = ArrayRueckgabeStandortdaten
End Function
'Dim ArrayWerte(4)
strStandortLand =Netzwerk_Standort_ermitteln
msgbox strStandortLand(0)
msgbox strStandortLand(1)
msgbox strStandortLand(2)
msgbox strStandortLand(3)
Jetzt werden die Werte einzeln außerhalb der Funktion ausgegeben.
Nochmals vielen Dank an alle.
Gruß
Thomas
Hier der Code:
Function .....
' 4 Variablen als Array zurückgeben!
DIM ArrayRueckgabeStandortdaten (4)
ArrayRueckgabeStandortdaten(0) = strStandortLand
ArrayRueckgabeStandortdaten(1) = strStandortLandName
ArrayRueckgabeStandortdaten(2) = strStandortStadt
ArrayRueckgabeStandortdaten(3) = strStandortStadtName
Netzwerk_Standort_ermitteln = ArrayRueckgabeStandortdaten
End Function
'Dim ArrayWerte(4)
strStandortLand =Netzwerk_Standort_ermitteln
msgbox strStandortLand(0)
msgbox strStandortLand(1)
msgbox strStandortLand(2)
msgbox strStandortLand(3)
Jetzt werden die Werte einzeln außerhalb der Funktion ausgegeben.
Nochmals vielen Dank an alle.
Gruß
Thomas
Hallo thl1966!
Das Array ist unnötig - Du kannst unmittelbar auf "strStandortLand" etc zugreifen, wenn es die Variable(n) vor dem Aufruf der
Grüße
bastla
P.S.: Ich hoffe, die Tatsache, dass Dein geposteter Code noch immer keine passende Formatierung aufweist, liegt nicht an daran, dass Dich das Verwenden von <code>- / </code>-Tags überfordert ...
Das Array ist unnötig - Du kannst unmittelbar auf "strStandortLand" etc zugreifen, wenn es die Variable(n) vor dem Aufruf der
Function / des Sub im Hauptprogramm bereits gibt ...Grüße
bastla
P.S.: Ich hoffe, die Tatsache, dass Dein geposteter Code noch immer keine passende Formatierung aufweist, liegt nicht an daran, dass Dich das Verwenden von <code>- / </code>-Tags überfordert ...
Hallo zusammen!
Der Vollständigkeit halber noch die Luxusvariante
Gruß Dieter
Der Vollständigkeit halber noch die Luxusvariante
Class StandortDaten
Public Land
Public LandName
Public Stadt
Public StadtName
End Class
Call Test
Sub Test()
With GetStandortDaten()
MsgBox .Land
MsgBox .LandName
MsgBox .Stadt
MsgBox .StadtName
End With
End Sub
Function GetStandortDaten()
Set GetStandortDaten = New StandortDaten
With GetStandortDaten
.Land = "Ein Land"
.LandName = "Ein LandName"
.Stadt = "Eine Stadt"
.StadtName = "Ein StadtName"
End With
End FunctionGruß Dieter
1
...und damit wir wirklich komplett sind: Es gibt auch noch die Möglichkeit, die Parameter einer Function/Sub als
Stichwort: Call by Reference
Gruß
Friemler
ByRef zu deklarieren:Sub Test(ByRef strStandortStadt, ByRef strStandortStadtName, ByRef strStandortLand, ByRef strStandortLandName)
strStandortStadt = "ABC"
strStandortStadtName = "DEFG"
strStandortLand = "USA"
strStandortLandName = "ASU"
End SubStichwort: Call by Reference
Gruß
Friemler
... und als Beispiel für die Verwendung:
Grüße
bastla
Test Stadt, StadtName, Land, LandName
WScript.Echo StadtName & " in " & Land bastla
und damit wir ganz, ganz, ganz komplett sind (um @friemlers Schlusswort noch zu toppen)...
Wenn du eine Function brauchst mit mehreren Rückgabewerten, dann überprüfe deinen Programmfluss und deine unterstellte Programmlogik.
Da muss ein (Denk-)fehler enthalten sein.
Wenn vermeintlich die Notwendigkeit für "mehrere Rückgabewerte" gegeben zu sein scheint, dann ist es (wenn die jeweilige Programmiersprache es zulässt) über "globale Variablen" lösbar - wa im Falle VBS ja keinen Rückschritt bedeutet (siehe bastlas Kommentar oben).
Friemlers Hinweis auf "ByRef"-Parameter-Übergabe ist auch okay, aber grundsätzlich führt diese Programmierung sehr schnell dazu, dass ganz schnell aus den oben beschriebenen 4 "Rückgabewerten" dann 4 plus ein Returnwert für "erfolgreich/Fehler" plus einen für den Fehlertext und einer für den Schweregrad des Errors...usw werden.
Versuche, dich auf einen Rückgabewert einer Funktion zu beschränken.
Grüße
Biber
Wenn du eine Function brauchst mit mehreren Rückgabewerten, dann überprüfe deinen Programmfluss und deine unterstellte Programmlogik.
Da muss ein (Denk-)fehler enthalten sein.
Wenn vermeintlich die Notwendigkeit für "mehrere Rückgabewerte" gegeben zu sein scheint, dann ist es (wenn die jeweilige Programmiersprache es zulässt) über "globale Variablen" lösbar - wa im Falle VBS ja keinen Rückschritt bedeutet (siehe bastlas Kommentar oben).
Friemlers Hinweis auf "ByRef"-Parameter-Übergabe ist auch okay, aber grundsätzlich führt diese Programmierung sehr schnell dazu, dass ganz schnell aus den oben beschriebenen 4 "Rückgabewerten" dann 4 plus ein Returnwert für "erfolgreich/Fehler" plus einen für den Fehlertext und einer für den Schweregrad des Errors...usw werden.
Versuche, dich auf einen Rückgabewert einer Funktion zu beschränken.
Grüße
Biber
Zitat von @Biber:
...dass ganz schnell aus den oben beschriebenen 4 "Rückgabewerten" dann 4 plus ein Returnwert für
"erfolgreich/Fehler" plus einen für den Fehlertext und einer für den Schweregrad des Errors...usw werden.
...dass ganz schnell aus den oben beschriebenen 4 "Rückgabewerten" dann 4 plus ein Returnwert für
"erfolgreich/Fehler" plus einen für den Fehlertext und einer für den Schweregrad des Errors...usw werden.
Falls aber der erste Parameter NULL ist, wird der zweite Parameter als Pointer auf eine SubSite-Structure interpretiert, über die...
Woher kenne ich das bloß?
Gruß
Friemler
Danke euch alle für die wertvollen Tipps.
beschäftige mich erst seit ca. 5 Woche mit VBA. Komme sonst aus der Powershell-Ecke.
Das mit der Codeformatierung habe ich nicht gewusst. Werde es in Zukunft beachten.
Gruß
Thomas
beschäftige mich erst seit ca. 5 Woche mit VBA. Komme sonst aus der Powershell-Ecke.
Das mit der Codeformatierung habe ich nicht gewusst. Werde es in Zukunft beachten.
Gruß
Thomas
