回复 5# a2002
晕,有可比性吗
不过要是C算法写不好没准还没有VBS快
其他:
看看这个- Wscript.Echo Join(ReadBinary(Wscript.Arguments(0))," ")
- Function ReadBinary(FileName)
- Dim Buf(), I
- With CreateObject("ADODB.Stream")
- .Mode = 3: .Type = 1: .Open: .LoadFromFile FileName
- ReDim Buf(.Size - 1)
- For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
- .Close
- End With
- ReadBinary = Buf
- End Function
复制代码
|