Aus Array Dropdown erstellen in einem Sub

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von p41n.

    Aus Array Dropdown erstellen in einem Sub

    Hi Jungs und Mädls,


    leider habe ich ein Problem das sich nicht so einfach lösen lässt zumindest für mich.

    Ich schreibe gerade mit einem beschnittenen Compiler in VBScript Macro ein paar Abläufe.

    Sachen wie

    Visual Basic-Quellcode

    1. Sub Asdf( i ....)
    2. Dim i As Integer


    sind deaktiviert.

    Visual Basic-Quellcode

    1. Sub Asdf()
    2. Dim i 'wird automatisch als String definiert!!



    funktioniert

    Alles läuft Zyklisch ab dh. ich führe ein Skript, Per Button, einmal aus und dann muss alles abgehandelt werden.

    Nun habe ich ein eindimensionales Array welches dynamisch mit Werten befüllt wird. Diese Werte möchte ich in einem Dropdown anzeigen lassen. Bsp: wäre Arraywerte: 1, 2, 3. Bei der Auswahl "3" soll auch die "3" aus der Listbox/Combobox zurückgegeben werden.

    Egal wie ich komme mit dem Code nicht hin das es funktioniert. Standardbeispiele aus dem Netz gehen auch nicht.

    Dies geht schonmal vll kann man darauf aufbauen. In dem Stil sollte das Programm zyklisch ablaufen.

    Visual Basic-Quellcode

    1. Sub LosslessTracer()
    2. Dim strInputDim WScript
    3. strInput = UserInput( "Enter some input:" )
    4. Msgbox "Output: " &strinput'WScript.Echo "You entered: " & strInput <- geht nicht!
    6. End Sub



    Ich hoffe Ihr wisst einen Weg :love: .

    Vielen Dank schon mal

    Grüße ^^

    Hallo,

    Ich hatte eine ähnliche Problemstellung vor einigen Wochen, welche ich dann folgendermaßen gelöst habe:


    Zuerst wird das DopDown-Menu geladen:

    Visual Basic-Quellcode

    1. Sub Window_Onload
    2. LoadDropDown
    3. End Sub



    Dies ist das eigentliche DropDown-Menu, welches zuvor geladen wird.
    In Zeile 4 wird die Textdatei geladen, die Elemente des DropDown-Menus beinhaltet.

    Visual Basic-Quellcode

    1. Sub LoadDropDown
    2. ClearListBox
    3. Set objFS = CreateObject("Scripting.FileSystemObject")
    4. Set objFile = objFS.OpenTextFile("TextdateimitInhalt.txt")
    5. strTextdateimitInhalt = objFile.ReadAll
    6. objFile.Close
    7. arrTextdateimitInhalt = Split(strTextdateimitInhalt,vbNewLine)
    8. For Each strNumber in arrTextdateimitInhalt
    9. Set objOption = Document.createElement("OPTION")
    10. objOption.Text = strNumber
    11. objOption.Value = strNumber
    12. TextdateimitInhalt.Add(objOption)
    13. Next
    14. End Sub



    Dies ist die Unterfunktion, um das DropDown-Menu zuerst einmal wieder zu resetten, bevor der Code geladen wird:

    Visual Basic-Quellcode

    1. Sub ClearListbox
    2. For Each objOption in TextdateimitInhalt.Options
    3. objOption.RemoveNode
    4. Next
    5. End Sub



    Da ich das Ganze in eine hta-Applikation eingebaut habe, hier noch der passende html-Code für das DropDown-Menu:

    HTML-Quellcode

    1. <tr>
    2. <td>
    3. <center>Elemente der Textdatei:</center>
    4. <center><select name="TextdateimitInhalt"></select></center>
    5. </td>
    6. </tr>



    Ich hoffe, das hilft Dir ein wenig weiter!


    Gruß p41n

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „p41n“ ()

Facebook
Telefonspende