求助：如何把一个文本中的数据转换成另一种格式，然后存储到另一个文本中？

Question

例如：在A.txt中有这样一组数据：
1234567,dbyes,dbno,,,,ahb,bhc
1234789,dbno,dbyes,,,,ada,nbc
......这样一组数据如何把这样的一组转化成这样的格式：
adc：cba=1234567，nba＝dbyes&dbno&ahb&bhc
adc: cba=1234789, nba＝dbno&dbyes&ada&nbc
......然后把得到的这组数据存为另一个文本，然后输出
多谢各位！！

Answer 1

用到的东西有.
set fso=createobject("scripting.filesystemobject")
set f=fso.open("\a.txt",1)bss=f.readline
操作bss
f.write dff

Answer 2

这段代码符合你的要求：
Private Sub Form_Load()
    
    Const FileIn = "H:\newdown\COMMAND\In.txt"
    Const FileOut = "H:\newdown\COMMAND\Out.txt"    Dim s As String, s0 As String
    Dim sArr(3) As String
On Error GoTo Errh    Open FileIn For Input As #1
    Open FileOut For Output As #2
    Do While Not EOF(1)
        Input #1, s0, sArr(0), sArr(1), s, s, s, sArr(2), sArr(3)
        Print #2, "adc：cba=" & s0 & "，nba＝" & Join(sArr, "&")
    Loop
    Close #1
    Close #2
    Exit Sub
Errh:
    MsgBox Error, vbExclamation
End Sub

Answer 3

多谢，如果A.txt中的数据很长，即
1234567,dbyes,dbno,,,,ahb,bhc，........
1234789,dbno,dbyes,,,,ada,nbc,........（这么一行可能有150个左右的数据，数据之间用,做区分，而且,,之间可能有数据也可能没有数据，所以并不能用s来表示，只能用读取的方法来表示）
......(下面还有很多行这样的数据)那么转换到这样的格式：
adc：cba=1234567，nba＝dbyes&dbno&ahb&bhc&.......(还有很多，只要上面数据中，，之间有数据就加&)
adc: cba=1234789, nba＝dbno&dbyes&ada&nbc........然后输出，如何做？急，多谢各位！！！

Answer 4

那就这么做
Private Sub Form_Load()
    Const FileIn = "H:\newdown\COMMAND\In.txt"
    Const FileOut = "H:\newdown\COMMAND\Out.txt"
    Dim s As String, i As Integer
    Dim sArr() As String
On Error GoTo Errh    Open FileIn For Input As #1
    Open FileOut For Output As #2
    Do While Not EOF(1)
        Line Input #1, s
        sArr = Split(s, ",")
        s = sArr(1)
        For i = 2 To UBound(sArr)
            If sArr(i) <> "" Then s = s & "&" & sArr(i)
        Next
        Print #2, "adc:cba=" & sArr(0) & ",nba＝" & s
    Loop
    Close #1
    Close #2
    Exit Sub
Errh:
    MsgBox Error, vbExclamation
End Sub