Ciao ragazzi,
il mio problema è il seguente, devo leggere dei record da un file txt e creare una tabella che ha 5 celle dentro ad ognuna di essa di devo essere 15 record che recupero dal mio file txt
Come posso fare? Io mi sono bloccata alla lettura dell'intero file
Eccovi il codice:
Private Function LoadKey()
Const ForReading = 1
Dim irow, fso, f, RigaFile, txtResponse
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("categorie/casa.txt"), ForReading)
strResponse = f.ReadAll
arr = Split(strResponse,vbCrLf)
f.Close
'---ORDINO L'ARRAY------
continua=true
do while continua
continua=false
for i=LBound(arr) to UBound(arr)-1
if arr(i)>arr(i+1) then
temp=arr(i)
arr(i)=arr(i+1)
arr(i+1)=temp
continua=true
end if
next
loop
'---STAMPO LE PAROLE ----
for i=LBound(arr) to UBound(arr)
parole = arr(i) & "
" & vbCrLf
Response.Write parole
next
Rispondi quotando
