vincent85
August 26th, 2005, 03:12 AM
<%@Import Namespace="System.IO"%>
<script language="vb" runat="server">
Sub page_load(Sender As Object,e As EventArgs)
Dim filetoread as string
filetoread=server.mappath("Output.txt")
dim filestream as StreamReader
filestream = File.Opentext(filetoread)
Dim read as String=fileStream.ReadToEnd()
dim str1, s as string
dim i,k as integer
dim str1, str2(), s as string
dim i,k as integer
for k=0 to (read.count)-1
str1=read.item(k)
str2=str1.split("~")
dim r As New TableRow()
dim c11 As New TableCell()
dim chkbox11 as new checkbox
c11.Controls.Add(chkbox11)
r.Cells.Add(c11)
for i=0 to 5
dim c As New TableCell()
c.Controls.Add(New LiteralContro(str2(i)))
r.Cells.Add(c)
next
table.Rows.Add(r)
next
end sub
All i want to do is read the text file , split it , and display it in the Web page!
However , i have some trouble with it , can any one help me plz! :cry: :cry:
<script language="vb" runat="server">
Sub page_load(Sender As Object,e As EventArgs)
Dim filetoread as string
filetoread=server.mappath("Output.txt")
dim filestream as StreamReader
filestream = File.Opentext(filetoread)
Dim read as String=fileStream.ReadToEnd()
dim str1, s as string
dim i,k as integer
dim str1, str2(), s as string
dim i,k as integer
for k=0 to (read.count)-1
str1=read.item(k)
str2=str1.split("~")
dim r As New TableRow()
dim c11 As New TableCell()
dim chkbox11 as new checkbox
c11.Controls.Add(chkbox11)
r.Cells.Add(c11)
for i=0 to 5
dim c As New TableCell()
c.Controls.Add(New LiteralContro(str2(i)))
r.Cells.Add(c)
next
table.Rows.Add(r)
next
end sub
All i want to do is read the text file , split it , and display it in the Web page!
However , i have some trouble with it , can any one help me plz! :cry: :cry: