如何在vb中做循环判断，并输出文件

Question

我用vb 写个程序，将excel表中各行数据读出来写入一标准化的asx文件中，asx文件的格式如下：<ASX Version="3.0">
  <TITLE>title</TITLE>
  <AUTHOR>author</AUTHOR>
  <ENTRY>
    <ref href="mms://流媒体服务器IP地址/节目1"/>
  </ENTRY>
<ENTRY>
    <ref href="mms://流媒体服务器IP地址/节目2"/>
  </ENTRY>
<ENTRY>
    <ref href="mms://流媒体服务器IP地址/节目3"/>
  </ENTRY>
</ASX>excel 文件中有一个title,author对应三个节目，如上所示。
请问该如何循环判断？
请高手指点一下，谢谢

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Arr()cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended
    Properties=""Excel 8.0;HDR=Yes;IMEX=1"""rs.Open "Select * From [Sheet1$] Where title='" & title & "' And author='" & author & "'"Open strPath & "\test.asx" For Output As #1
Print #1, "<ASX Version="3.0">"
Print #1, "  <TITLE>title</TITLE>"
Print #1, "  <AUTHOR>" & author & "</AUTHOR>"Do Until rs.EOF
Print #1, "  <ENTRY>"
Print #1, "  <ref href="mms://流媒体服务器IP地址/" & rs!节目 & "/>"
Print #1, "  </ENTRY>"
rs.MoveNext
Loop
Print #1, "</ASX>"
Close #1
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing