在线求助根据文件生成表单

[wkj0923]

（1）有一文件A.TXT中有若干行文字.(行数不定,为5的倍数)
要求根据这个文件生成一个表单,每5行一个单位,其中第一行直接显示其文字,下面四行每行生成一个单选按钮,单选按钮右边显示该行文字.

[wkj0923]

up

[xieyj]

<script language=vbs>
dim fs,i
set fs = createobject("scripting.filesystemobject")
fs.getfile "文件名"
fs.readline 每行文本
i = 0
do while not .eof
if i/5 then
end if
'动态创建Radio,这里搞忘记了,自己查查
loop
set fs = nothing
</script>

[wkj0923]

详细点嘛，我很菜呀！

[江南昆虫]

你还不如用XML数据岛呢！很方便的！

[江南昆虫]

<SCRIPT LANGUAGE="VBScript">
jnkc = ""
set fso = CreateObject("scripting.filesystemobject")
set f = fso.opentextfile("C:\test.txt",1,false)
arr = split(f.readall,vbCrLf)
set f = nothing
for i=0 to ubound(arr)
If arr(i)="" Then Exit For
If i Mod 5 > 0 Then jnkc = jnkc & "<input type=radio>"
jnkc = jnkc & arr(i) & "<br>"
next
set fso = nothing
document.write jnkc
</SCRIPT>

[wkj0923]

各位给点稍微详细点的注释嘛，我不是说了我是菜鸟吗？真的没写过JS，这样我好给分结贴呀！谢谢了。

[wkj0923]

jnkc(江南昆虫) 给点稍微详细点的注释嘛，我不是说了我是菜鸟吗？真的没写过JS，这样我好给分结贴呀！谢谢了。

[江南昆虫]

<SCRIPT LANGUAGE="VBScript">
jnkc = "" '输出缓存变量
set fso = CreateObject("scripting.filesystemobject") '处理filesystemobject对象
set f = fso.opentextfile("C:\test.txt",1,false) '打开文本文件
arr = split(f.readall,vbCrLf) '读取文件内容，并以行为单位，存为数组
set f = nothing
for i=0 to ubound(arr) '循环读取数组
If arr(i)="" Then Exit For '读到空行跳出循环
If i Mod 5 > 0 Then jnkc = jnkc & "<input type=radio>" '非每组第一条时输出单选按钮
jnkc = jnkc & arr(i) & "<br>" '输出单行内容
next
set fso = nothing '释放filesystemobject对象
document.write jnkc '把内容输出到页面
</SCRIPT>

[江南昆虫]

好像格式都乱掉了：（
<SCRIPT LANGUAGE="VBScript">
jnkc = "" '输出缓存变量
set fso = CreateObject("scripting.filesystemobject")'处理filesystemobject对象
set f = fso.opentextfile("C:\test.txt",1,false) '打开文本文件
arr = split(f.readall,vbCrLf) '读取文件内容，并以行为单位，存为数组
set f = nothing
for i=0 to ubound(arr) '循环读取数组
If arr(i)="" Then Exit For '读到空行跳出循环
If i Mod 5 > 0 Then jnkc = jnkc & "<input type=radio>" '非每组第一条时输出单选按钮
jnkc = jnkc & arr(i) & "<br>" '输出单行内容
next
set fso = nothing '释放filesystemobject对象
document.write jnkc '把内容输出到页面
</SCRIPT>