ordenar datos de archivo de texto

[Tony Manero]

hola

tengo una archivo de texto asi, separados por #

Login# Wins# Score#
str# int# int#
juan# 166# 2402#
pedro# 100# 2189#
luis# 64# 1418#
andrea# 36# 1128#
peter# 21# 1052#
hector# 18# 890#

ya lei el archivo pero no se me ocurre como ordenarlo por score

[David]

Puedes guardar todos los datos en un array y después ordenar ese array .

[Tony Manero]

Iniciado por David el Grande

Puedes guardar todos los datos en un array y después ordenar ese array .

GRACIAS ESO YA LO SABIA, ahora el tema es como se haria logicamente.

[David]

Muéstranos cómo estás recuperando los datos, así será más fácil ayudarte para ajustarlo a lo que necesitas.

[Tony Manero]

Código PHP:

  Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set wfile = fso.OpenTextFile("c:\data\scores\local_scores.txt") 
'salto las 2 primeras lineas ya ke contiene el encabezado y el tipo de dato
wfile.readline
wfile.readline
 
    
Dim arreglo()
i=0
Do While Not wfile.AtEndOfLine
     'leo linea por linea y separaro los campos
     arregloTMP=Split(wfile.ReadLine,"#")
 
loop
Set fso=nothing 
   

hasta ahi voy, ahora no como dejarlo en otra arreglo o matriz. estoy confundido

[AlZuwaga]

Ta,bién podés usar recordsets "desconectados" para tal fin.

[Tony Manero]

gracias daz lo probare

[Tony Manero]

funciono perfecto
al final lo deje asi, por si a alguien le sirve

Código PHP:

  <&#37;
Sub top_ten
CONST adFldIsNullable = &H00000020
CONST adVarChar = 200
CONST adInteger = 3
CONST adDate = 7
CONST adOpenDynamic = 2
CONST adUseClient = 3
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set wfile = fso.OpenTextFile("c:\data\scores\local_scores.txt") 
 
Set rs = Server.CreateObject("ADODB.Recordset")
 
With rs
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Fields.Append "login", adVarChar, 255, adFldIsNullable
    .Fields.Append "wins", adVarChar, 255, adFldIsNullable
    .Fields.Append "score", adInteger, 255, adFldIsNullable
    .open
 
    wfile.readline
    wfile.readline
    Do While Not wfile.AtEndOfLine
        arregloTMP=Split(wfile.ReadLine,"#")
        .AddNew
        .Fields("login") = arreglotmp(0)
        .Fields("wins") = arreglotmp(1)
        .Fields("score") = arreglotmp(2)
        .update
    Loop
    
    Orden = Request.QueryString("Orden")
    Select CASE Orden
        Case "" OrdenarPor = "score DESC"
        Case "wins" OrdenarPor = "wins ASC"
        Case "login" OrdenarPor = "login DESC"
        Case Else OrdenarPor = "score ASC"
    End Select
 
        .Sort = OrdenarPor
        .MoveFirst
 
        response.write "<table>"
        response.write "<tr><td>login</td><td>wins</td><td>score</td></tr>"
        i=0
        do while not .eof
 ac&#225; recorrés el recordset volátil y creás el html necesario....
            response.write "<tr>"
            response.write "<td>"&rs.fields(0)&"</td>"
            response.write "<td>"&rs.fields(1)&"</td>"
            response.write "<td>"&rs.fields(2)&"</td>"
            response.write "</tr>"
            If i=10 Then
                Exit do
            End if
            i=i+1
            .Movenext
        Loop
        response.write "</table>"
        .close
End With
Set rs = nothing
Set folder = nothing 
Set fso = nothing
End sub%> 
   

[AlZuwaga]

Me alegro (Eso de "daz" me dejó un poco descolocado debo admitir )

[Tony Manero]

al zuwaga puedo hacer una consulta?

mejor dicho como hago una busqueda de un registro con sql

[AlZuwaga]

Hola.
No me queda claro si es con ese método de "recordsets desconectados" o con un recordset común y corriente. En caso de ser el segundo:

Código:

datoNumerico = 3
datoString = "hola"
SQL = "SELECT campo1, campo2, campo3 FROM tabla WHERE campoNumerico = " & datoNumerico & " AND campoString = '" & datoString & "'"

[Tony Manero]

si con recordset desconectados. si no tendria ke recorrerla con un do loop.

[AlZuwaga]

Ok, con la propiedad filter: http://www.w3schools.com/ado/prop_rs_filter.asp