bart2jes
Gebruiker
- Lid geworden
- 6 jul 2006
- Berichten
- 139
Hallo allemaal,
Ik ben al een tijdje bezig met programmeren, maar nu wil ik de input van een inputbox letter voor letters splitten. Dit is wat ik heb:
Ik moet bekennen: heb het ergens van internet gehaald, en doet in zoverre wat ik wil, dat het de input split bij elke x, maar wat ik dus zou willen is dat het de input split zodat elke letter apart als string opgeslagen zou kunnen worden. Als ik
verander in:
krijg ik een foutmelding out of range, "Het subscript valt buiten bereik: '[number: 1]'
code: 800A0009.
Heb al verschillende zoekacties verricht op deze foutmelding, maar vindt nergens echt de oplossing van mijn probleem.
Verder zou het ook nog handig als het programma aan de hand van de input het aantal nummers bepaalt (dus dat ik niet aangeef: MyArray(0) enz, maar dat het script dat zelf bepaald. Is dit mogelijk??
Ik ben al een tijdje bezig met programmeren, maar nu wil ik de input van een inputbox letter voor letters splitten. Dit is wat ik heb:
Code:
Dim MyString, MyArray, Msg
MyString = inputbox ("VBScriptXisXfun!")
MyArray = Split(MyString, "x", -1, 1)
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg
Ik moet bekennen: heb het ergens van internet gehaald, en doet in zoverre wat ik wil, dat het de input split bij elke x, maar wat ik dus zou willen is dat het de input split zodat elke letter apart als string opgeslagen zou kunnen worden. Als ik
Code:
MyArray = Split(MyString, "x", -1, 1)
Code:
MyArray = Split(MyString, "", -1, 1)
code: 800A0009.
Heb al verschillende zoekacties verricht op deze foutmelding, maar vindt nergens echt de oplossing van mijn probleem.
Verder zou het ook nog handig als het programma aan de hand van de input het aantal nummers bepaalt (dus dat ik niet aangeef: MyArray(0) enz, maar dat het script dat zelf bepaald. Is dit mogelijk??