Visual basic script split input

Status
Niet open voor verdere reacties.

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:

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)
verander in:
Code:
MyArray = Split(MyString, "", -1, 1)
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??
 
geen idee - het werkt gewoon niet zo denk ik :p

Deze werkt wel:
Code:
dim sString
dim i
dim sTemp()
dim lTemp


sString = "voorbeeld"
lTemp = len(sString)
redim sTemp(lTemp)

for i = 1 to lTemp
   sTemp(i) = mid(sString, i,1)
next

De maximale lengte is dus lTemp.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan