Lidt problemer med en funktion

Prøv at lægge response.write ind på passende steder, så du kan se helt præcis hvad der går galt.

Prøv dette:


strString = "18-10-2002 14:49 ~~¤Cowman¤~~ (#82342) ofrede 65.052 guldstykker."
strString = Replace(strString,".","")

Response.Write getID(strString)
Function getID(strString)
    If instr(strString,"#") > "0" then
        getEndStammenummer = instr(strString,")")
        getEndStammenummer2 = left(strString,getEndStammenummer-1)
        strStammenummer = mid(getEndStammenummer2,instr(getEndStammenummer2,"#"))
        strStammenummer = Replace(strStammenummer,"#",";")
       
        getEndOfring = instr(strString," guldstykker")
        getEndOfring2 = left(strString,getEndOfring-1)        ' DETTE ER LINIE 48
        strOfring = mid(getEndOfring2,instr(getEndOfring2,"ofrede "))
        strOfring = Replace(strOfring,"ofrede ",";")

        strOfringDelt = strOfringDelt & "" & strStammenummer & "" & strOfring
        getID =strOfringDelt
    End If
End Function
%>

Jo det virker sådan set, bortset fra jeg skal have det ud i en streng, skal senere bruge alle værdierne (skal indsættes i DB)

Der er en masse flere af strString, I får lige hele koden her!

******************************************************************************
strString = Request.Form("ofringer")
strString = Replace(strString,".","")

arrOfringer = split(strString,"guldstykker")

dim strGetID, strFinito
       
strFinito = ""

For t = 1 to UBound(arrOfringer)
    strGetID = Call getID(x)
    strFinito = strFinnish & strGetID
Next

Function getID(strString)
    If instr(strString,"#") > "0" then
        getEndStammenummer = instr(strString,")")
        getEndStammenummer2 = left(strString,getEndStammenummer-1)
        strStammenummer = mid(getEndStammenummer2,instr(getEndStammenummer2,"#"))
        strStammenummer = Replace(strStammenummer,"#",";")
       
        getEndOfring = instr(strString," guldstykker")
        getEndOfring2 = left(strString,getEndOfring-1)
        strOfring = mid(getEndOfring2,instr(getEndOfring2,"ofrede "))
        strOfring = Replace(strOfring,"ofrede ",";")

        getID = strOfringDelt & "" & strStammenummer & "" & strOfring
    End If
End Function
******************************************************************************

Eks. på hvordan form("ofringer") kan se ud:
18-10-2002 14:49 Cowman (#2134) ofrede 65.052 guldstykker.
18-10-2002 08:15 Preben (#33252) ofrede 278.005 guldstykker.
18-10-2002 07:44 Hmmm (#2141) ofrede 474.772 guldstykker.
18-10-2002 07:40 Dr. Intel (#13848) ofrede 526.356 guldstykker.

Kan I hjælpe mig??

Tjaa jeg har ikke fået det til at virke! Så jeg lukker spørgsmålet!

/Cowman