Hvordan splitter jeg denne string op

strArr = SPLIT(mvarString,\"|~|\")

/nute

denne metode returnerer en array... hvor mange tegn er variabel kan inneholde ? vel...så mye du har minne til :)

denne array kan du iterer igjennom ved å bruke:
<%
for i = 0 to UBOUND(strArr)
  response.write strArr(i) & \"<br>\"
next
%>

Tak du. Det virker fint

400 point for sådan en smule !?!?!

400 point, damn det var da vildt...

tdaugaard >> hvis du leser formuleringen på spørsmålet:

\"Er der en der ude som kan lave en rutine som splitter et variable op\"...med andre ord kjenner nok ikke elsa til SPLIT funksjonen og håper at noen kunne lage det for han/henne.

At 400 points er i det meste laget skal jeg ikke si meg uenig i...

/nute

jeg synes liiige det er i overkanten .. det er et spm. til MAX 100 point (og så skal man være desperat)

nute:> ja, det kan godt være men selvom man selv skulle lave den er 400 point stadig for meget! Det havde jeg da gerne lavet for 100-150...

tdaugaard >> Ja det er helt vanv!  jeg havde bruge for en løsning her og nu til min VisualBasic opgave og jeg havde regnet med en rutine til at løse det uden Split.. men nu er det sket!

Her er koden som jeg var ud i alt for vanskeligt.

With frmMain.Text1


    Length = InStr(1, .Text, \"|~|\") - 1
    MsgBox (Mid(.Text, 1, Length))

    For i = 0 To 2
    tmpLenght2 = Length
    Length = Length + 4
    tmpLenght = Length
    Length = InStr(Length, .Text, \"|~|\") - 1
    MsgBox (Mid(.Text, tmpLenght, InStr(tmpLenght2, .Text, \"|~|\") - 1))
    Next
End With

enig....men hva gjør man så ?? leverer tilbake til admin på grunn av \"uvitenhet\" fra andre ?

nute:> du har fået pointene og så er det det, men jeg synes bare ikke at folk skal give SÅ store summer væk på så lidt ...

Her er så koden som løser opgaven (Var meget Desp)

Private Sub PutDataToDatabase()

Dim Vaerdi As String
Dim CountUp As Integer

CountUpVaerdier = 0

DataArray = Split(frmMain.Text1.Text, \"|~|\")
AntalVaerdier = UBound(DataArray)

Do While Not CountUpVaerdier = AntalVaerdier
   
   
   
frmMain.Adodc1.Recordset.AddNew
UpdateDatabase
a = a + 1
    Loop
       


End Sub

Sub UpdateDatabase()
CountUp = 0
mAntal = Antal

  Do While CountUp < mAntal
   
   
        If DataArray(CountUpVaerdier) <> \"\" Then
            frmMain.Adodc1.Recordset(CountUp) = DataArray(CountUpVaerdier)
        End If
       
        CountUp = CountUp + 1
        CountUpVaerdier = CountUpVaerdier + 1
   
    Loop
        frmMain.Adodc1.Recordset.Update
End Sub

elsa:> tak, men du behøvede ikke at skrive den her da det ikke er en \"snyd\" anklage, men bare et spørgsmål om at jeg og netsrac synes det var lige i overkanten med 400 point for en Split().

jeg er fullstendig enig med deg tdaugaard, men....vi kommer jo forsåvidt opp i den regulære diskusjonen omkring points igjen.

Desverre har \"vanskelig\" en subjektiv betydning. Noe som er vanskelig for deg er kanskje ikke vanskelig for meg, og så videre. det er gjerne vanskelig ( jeg blir desverre nødt å bruke ordet selv...det er \"vanskelig\" å la det være ;) ) å forestille seg en løsning på problemer man ikke selv kjenner løsningen på, eller man vet løsningen, men vet ikke hvordan den skal implementeres.


det er selvfølgelig en masse parametre som kan avgjøre om den som stiller spørsmålet er i stand til å bedømme vanskelighetsgraden selv: er han/hun ny på xperten, ukjent med språket eller andre lignende ting. Det burde vært en kutyme som sa at man gjerne burde legge opp til at den som svarer kommenterer at foreslåtte points er for mye eller for lite til det relevante spørsmål, men dette kommer nok, etter en tid, til å drepe debatten. Folk begynner å bruke altfor mye tid på å diskutere points...hvor mye er hva verdt.

Man kan nok diksutere i laaaang tid om dette, og det vet jeg det allerede har blitt gjort, men jeg poster bare noen meninger allikevel... :)

/nute

De andre bartender er også lidt sure når jeg giver en 500kr sedel for en øl..

Jeg vil sige at det er lige rigeligt for en så simpel funktion. Men der er ingen anklager om snyd!

elsa >> En anden gang foreslår jeg at du bruger en smule mindre point eller tager et kig i dokumentationen http://www.asp.dk/docs/vbscript/vbstoc.htm

elsa >> der er en betydelig forskel på penge og point, pointene på eksperten har ikke nogen værdi, udover at de kan vise hvor meget man kan, men systemet er jo ikke til at stole på hvis der bliver uddelt kæmpe pointsummer for simple ting, for så er det jo bare hvem der lige er heldig at være på eksperten, når spørgsmålet bliver oprettet.