VBS代码（函数）转为AU3代码，在线等高手相助

manlty

下面这个vbs函数是将附件中的文件数据转为txt文档数据的，请转码为au3的函数

Sub PoboToFoxtraderTXT(strFile,fileName,dateNum)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim objStream, fso, jiaGe(10)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Open
    objStream.LoadFromFile strFile
    If dateNum=0 Then
        dateNum= objStream.Size/32
    ElseIf dateNum < objStream.Size/32  Then
        dateNum=dateNum
    Else
        dateNum=objStream.Size/32
    End If
    objStream.position = objStream.Size-dateNum*32
    For i = 1 To dateNum
        readFile = AscB(objStream.Read(1))+AscB(objStream.Read(1))*256+AscB(objStream.Read(1))*256*256+AscB(objStream.Read(1))*256*256*256
        nian = readFile\1048576
        yue  = readFile\65536-nian*16+100
        ri   = (readFile Mod 65536)\256\8+100
        riQi = CStr(nian)+"/"+Right(CStr(yue),2)+"/"+Right(CStr(ri),2)
        For j = 1 To 4
            readFile = AscB(objStream.Read(1))+AscB(objStream.Read(1))*256+AscB(objStream.Read(1))*256*256+AscB(objStream.Read(1))*256*256*256
            jiaGe(j) =CStr(readFile/1000)+" "
        Next
        objStream.position = objStream.position+12   '成交量和持仓量数据结构未知，暂时不导出！
        shuChu = shuChu+riQi+" "+jiaGe(2)+jiaGe(3)+jiaGe(4)+jiaGe(1)+vbCrLf
        riQi=""
    Next
    objStream.Close
    Set objStream =  Nothing
    Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists("C:\TXTDAY") Then
        i=0
    Else
        fso.CreateFolder ("C:\TXTDAY")
    End If
    Set MyFile=fso.OpenTextFile(fileName,ForWriting,True,TristateFalse)
    MyFile.WriteLine shuChu
    MyFile.close
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

manlty

顶，让高手略施身手，只是一个函数

awingu

貌似可以使用二进制方式可以将文件保存为文本？

manlty

盼懂VBS的高手指点迷津，这个函数是怎么将压缩包中的数据文件010709.m1的数据结构解成普通的txt文件

manlty

盼高手出手相助，不懂vbs，但做au3程序要用到该数据文件

lin0308

不是很懂..