Più colonne

[francy_eb]

Ho la seguente funzione
-----------------------
Private Function LoadKey()

Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")

Set Rst=FileObject.OpenTextFile(Server.MapPath("parole .txt"),1,False,False)
S=Rst.ReadAll

Rst.Close

Set Rst = Nothing
Set FileObject=Nothing

S=replace(S,Chr(13), "
")
Response.Write S

End Function
---------------------
Come faccio a stampare i risultati su 3 colonne?

[francy_eb]

Qualcuno mi può aiutare con split?
Grazie

[Corwin]

Nel file c'è una sola parola per riga ?

[francy_eb]

Ci sono più parole per riga ma suddivise da un a capo

[Corwin]

Originariamente inviato da francy_eb
Ci sono più parole per riga ma suddivise da un a capo

Private Function LoadKey()

Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")

Set Rst=FileObject.OpenTextFile(Server.MapPath("parole .txt"),1,False,False)
S=Rst.ReadAll

Rst.Close

Set Rst = Nothing
Set FileObject=Nothing
Parole = Split (S,Chr(13))
nCol = 3
%>
<table border="1">
<%For x = 0 to ubound(parole)%>
<%If (x mod ncol) = 0 Then%>
<tr>
<%End If%>
<td><%response.write parole(x)%></td>
<%if (x mod nCol) = ncol -1 then%>
</tr>
<%
End if
Next
%>
<%If (x mod ncol) <> 0 Then%>
<%For y = (x mod ncol) to nCol -1%>
<td>& nbsp;</td>
<%Next%>
</tr>
<%end If%>
</table>

End Function