bCrLf = chrB(13) & chrB(10)

'取得每个项目之间的分隔符

sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)这里instrb(1,requestbindate,bcrlf)-1等于0，得到的不是是空吗？

iStart = LenB (sStart)

iFormStart = iStart+2

'分解项目

Do

iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3

tStream.Type = 1

tStream.Mode = 3

tStream.Open

oUpFileStream.Position = iFormStart

oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart

[ 本帖最后由 reyard 于 2009-9-20 13:46 编辑 ]

但是二进制流是以chrB(13)&chrB(10)&chrB(13)&chrB(10)也就是两个bCrLf开头的，InStrB(1,RequestBinDate,bCrLf)返回的不是1吗？