Ordem Alfabética arquivo txt

[ricardo coelho designer 0]

Boa tarde, gostaria de saber como organizar por ordem alfabética dados vindos de um arquivo txt.

[Mário Monteiro 179]

Organizar no próprio txt ou carregar em um db antes?

 

Mostre exemplos de como estão os dados no txt

[ricardo coelho designer 0]

Este é parte do código e se possível paginar os resultados.

 

<%set obj = fso.OpenTextFile(server.MapPath("lista/"&Arquivo), 1)   'Abrindo o arquivo TXT com o método OpenTextFile
While obj.AtEndOfStream = false                                     'Listando os dados do txt (linha por linha) até o fim do arquivo%>

<%if cor ="#FFFFFF" then
cor = "#EEEEEE"
else
cor ="#FFFFFF"
end if%>

<%response.write("<tr nowrap bgcolor="&cor&">")&vbCrlf
Arr = NOK
linha = obj.ReadLine ' ReadLine é o método que lê cada linha do txt
'---
Arr = split(linha,";")' Dividindo cada linha por; (ponto e vírgula)
for x = lbound(Arr) to ubound(Arr) ' Loop para criar as colunas <td> dentro das linhas <tr>

If (cInt(x) = cInt(uBound(Arr)-1)) Then
    If (ValidarEmail(Arr(ubound(Arr)-1)) = False) Then
        response.write(" <td bgcolor=""#FF0000""><span style=""color:#FFFFFF"">"&Arr(ubound(Arr)-1)&"</span></td>")
    Else
        response.write(" <td>"&Arr(ubound(Arr)-1)&"</td>")
    End If
Else
    response.write(" <td>"&Arr(x)&"</td>")
End If
next
'---
response.write("</tr>"&vbCrlf)
Wend
'---
'Fechando os objetos
set obj = nothing
set fso = nothing%>
</table>
<%else%>
<%response.write("O Arquivo <b>"&Arquivo&"</b> não foi encontrado!")
End if%>