改变TXT数据格式,原来的数据都是确定数据长度了的,如:
006CBC62            6227003817895234398 124588972008090100000000000038600   
006CBC62            6227822213350139404 550004822008090100000000000070600
006CBC62            6227003654578057933 340004772008090100000000000093000   但现在出来的是数据是:
6|2227003345454532950|张三|3430.00|成功|交易成功|11000468|
8|2227003572343247575|张一四|194.00|成功|交易成功|11000480|
13|222700121231216402|卓四|188.00|成功|交易成功|11000489|
14|222700381325841402|一浪|386.00|成功|交易成功|11000492|这样的数据就无法用下边这段代码来写了
        Strsub = RightX(strline, 68)
        StrBankAcc = MidX(Strsub, 3, 19)
        strPolNum = MidX(strline, 5, 8)
        StrDat = MidX(Strsub, 56, 8)
        StrAmt = "0000000" + MidX(Strsub, 46, 10)如何判断从第几个|开始提取数据呢?

解决方案 »

  1.   

    如果格式统一,用分隔符Split一下就好了啊
      

  2.   

     Strsub = RightX(strline, 68) 
            StrBankAcc = MidX(Strsub, 3, 19) 
            strPolNum = MidX(strline, 5, 8) 
            StrDat = MidX(Strsub, 56, 8) 
            StrAmt = "0000000" + MidX(Strsub, 46, 10) dim Arr() as stringArr=Split(Strline,"|")如Strline= "6 ¦2227003345454532950 ¦张三 ¦3430.00 ¦成功 ¦交易成功 ¦11000468 ¦ "则:
    Arr(0)=6Arr(1)=2227003345454532950 Arr(2)=张三Arr(3)=3430.00 Arr(4)=成功Arr(5)=交易成功Arr(6)=11000468