写入的问题

Question

几个银行的数据，",102,00,"这里是生成数据后需要需要写入的，但以下代码只能实现一家银行的数据写入，如何才能加入其它几个银行的数据。 ICB 为",102,00," 
CBC 为",105,00," 
ABC 为",103,00,"  
------------------
        If ssText <> "" And MidX(strBank, 4, 3) = "ICB" Then 
        ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",102,00,"         Else 
            ssText = Format(i, "000000") & "," & strPolNum & strduedate & ",102,00," 
End If----------
出来的数据要求：
0000001,321025820091217,102,00 'ICB
0000002,321345820091217,105,00 'CBC
0000002,321312820091217,103,00 'ABC如何写才能实现，谢谢，急用

Answer 1

   Select Case iModule
        Case eModuleType.ICB
            c_click(icb)
        Case eModuleType.cbc
            c_click(cbc)
        Case eModuleType.abc
            c_click(abc)
        case else
            c_click(icb)
   End Selectprivate sub c_click(sname as string )
if sname=icb then
    sname=102,00
end if
if sname =cbc then
    sanme=105,00
end if
if sname=abc then
    sname=103,00
end if
If ssText <> "" And MidX(strBank, 4, 3) = "sname" Then 
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",'"&sanme&"',"        
Else 
    ssText = Format(i, "000000") & "," & strPolNum & strduedate & ",'"&sanme&"'," 
End If end sub

Answer 2

If ssText <> "" And MidX(strBank, 4, 3) = "ICB" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",102,00,"
ElseIf ssText <> "" And MidX(strBank, 4, 3) = "CBC" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",105,00,"
ElseIf ssText <> "" And MidX(strBank, 4, 3) = "ABC" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",103,00,"
Else
    ssText = Format(i, "000000") & "," & strPolNum & strduedate & ",102,00,"
End If

Answer 3

lz又发一帖照样没有说清楚问题,是写入文本文件还是写入数据库,数据库是sql server还是access?
ICB 为",102,00," 
CBC 为",105,00," 
ABC 为",103,00,"  
这几行数据是文本文件中还是在数据库中?

Answer 4

看情况可以用集合处理，代码量少点：    dim col as collection
    dim s as string
    
    set col=new collection
    col.add ",102,00,","ICB"
    col.add ",105,00,","CBC"
    col.add ",103,00,","ABC"
    
    s=Format(i, "000000") & "," & strPolNum & strduedate & col(MidX(strBank, 4, 3))
    if Len(ssText)>0 then ssText= ssText & vbCrLf & s    set col=nothing

Answer 5

改下：dim col as collection
    dim s as string
    
    set col=new collection
    col.add ",102,00,","ICB"
    col.add ",105,00,","CBC"
    col.add ",103,00,","ABC"
    
    s=Format(i, "000000") & "," & strPolNum & strduedate & col(MidX(strBank, 4, 3))
    if Len(ssText)>0 then 
        ssText= ssText & vbCrLf & s
    else
        ssText=s
    end if    set col=nothing