01. maj 2002 - 21:04
Der er
2 kommentarer og
1 løsning
Sorter alabetisk i en komme sepereret streng
Hej
Er det muligt at sortere alfabetisk i en komma sepereret streng. F.eks.
oStreng = "Peter Mads, Lars"
oStrengSplit = Split(oStreng, ",")
For i = LBound(oStrengSplit) To UBound(oStrengSplit)
Response.Write oStrengSplit(i) & VbCrlf
Next
Dette vil resultere i følgende resultat:
Peter
Mads
Lars
Men er det muligt at sortere strengen i ASP så navnerækkefølgen bliver som følgende
Lars
Mads
Peter
Håber at der er nogen der kan hjælp :-)
Det er en mulighed Orca. Jeg har også selv fundet en løsning hvor jeg sortere vha. et recordset. (Se koden nederst)
Tak for dit svar og du får selvfølgelig dine point ;-)
Public Function test() As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim intI As Integer
' Instantiate the recordset.
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
' Append two fields
rst.Fields.Append "ColorID", adSmallInt
rst.Fields.Append "ColorName", adVarChar, 10
' Put some data in the recordset
rst.Open
rst.AddNew Array("ColorID", "ColorName"), Array(1, "Red")
rst.AddNew Array("ColorID", "ColorName"), Array(2, "Orange")
rst.AddNew Array("ColorID", "ColorName"), Array(3, "Yellow")
rst.AddNew Array("ColorID", "ColorName"), Array(4, "Green")
rst.AddNew Array("ColorID", "ColorName"), Array(5, "Blue")
' Save the data. This isn't required,
' because ADO will do it for you.
rst.UpdateBatch
' Dump the recordset to the Immediate Window
rst.MoveFirst
rst.Sort = "ColorName"
Do Until rst.EOF
Debug.Print rst("ColorID"), rst("ColorName")
rst.MoveNext
Loop
End Function
