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

Question

<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>

Answer 1

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

Answer 2

<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>

Answer 3

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

Answer 4

<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>

Answer 5

好像格式都乱掉了：（
<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>