Aiuto! Lettura dati da file txt

[francy_eb]

Ciao ragazzi,
il problema è il seguente, dovrei creare in una pagina un link di questo tipo A-D cliccando su di esso finisco in una pagina che legge i dati da un file txt. Il file è strutturato nella seguente modo:

parola 1
parola 2
parole 3 ecc..

come faccio a stampare solo le parole che vanno dalla A alla D e così per tutto l'alfabeto
Il file di testo non posso strutturarlo come db.
Grazie

[lukeonweb]

me ne vado per un'idea... prova ad impostare una condizione per cui

If Left(StreamRigaCorrente, 0) = "A" Then
' legge la riga
End If

smanettaci un po, fammi sapere

[maueo.mb]

Utilizzando il FileSystemObject, devi creare un ciclo tipo:

  
Const ForReading = 1
Dim irow, fso, f, RigaFile, txtResponse
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\fileprova.txt", ForReading)
While Not f.AtEndOfLine 
  RigaFile = f.ReadLine
  If UCase(Left(RigaFile, 1)) = "A" Then
    strResponse = strResponse & "
"
  End If
Wend
Response.Write strResponse
f.Close

[francy_eb]

<%
Const ForReading = 1
Dim irow, fso, f, RigaFile, txtResponse
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\parole.txt", ForReading)
While Not f.AtEndOfLine
RigaFile = f.ReadLine
If UCase(Left(RigaFile, 1)) = "A" Then
strResponse = RigaFile & "
"
End If
Wend
Response.Write strResponse
f.Close
%>

[maueo.mb]

Sorry....

While Not f.AtEndOfStream

[francy_eb]

non funziona neanche così non so più dove

[maueo.mb]

Che errore ti posta?

[francy_eb]

<%
Const ForReading = 1
Dim irow, fso, f, RigaFile, txtResponse
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\parole.txt", ForReading)
do while f.AtEndOfStream = false
'Response.Write(f.ReadLine)
RigaFile = f.ReadLine
If UCase(Left(RigaFile, 1)) = "A" Then
strResponse = RigaFile & "
"
End If
Response.Write strResponse
loop
f.Close
%>

[maueo.mb]

:tongue: ok

[francy_eb]

Adesso che ho suddiviso la cosa per lettere come faccio a riordinare in ordine alfabetico tutte le parole della lettera ad esempio "A"
Grazie :gren: