求助！如何将TXT文件转换成XML文件
有这样一个需求，一个固定格式的txt文件，里面有很多条记录，每条记录里有几个字段，中间用逗号分隔开，现在要把每条记录里面所需要的固定字段取出来转换成xml文件。用VB写程序应该怎么写？最好能举一个例子，不胜感激。加分
txt的内容是：
xxx,,xxx,xxx
xxx,,xxx,xxx
xxx,,xxx,xxx
…………
--------------------编程问答-------------------- 关注 --------------------编程问答--------------------
Sub txt2xml()
s = "c:\txt1.txt"
s2 = "c:\xml2.xml"
Open s For Binary As 1
d = Input(LOF(1), 1)
Close 1
d = Replace(d, ",", "</bb><bb>")
d = Replace(d, vbCrLf, "</bb></div>" & vbCrLf & "<div><bb>")
d = "<aa><div><bb>" & d & "</bb></div></aa>"
Open s2 For Output As 1
Print #1, d
Close 1
End Sub
补充：VB , 基础类
