求帮忙用vb读dat的数据

Question

求帮忙用vb读dat的数据    20110822  A e _  
 a ? q  T  ?   ~    d        t  )  &  耮  鶙QN?  ?QNpQN?       8 ??    ,   峁 ,                   ?  B               
      ?  ? €   c m ??    3   遣 6      B             3   4           
      ?     €     ??    ?  埅 ?      ;
          P  C   4           
      ?  r  €                                                                                   

Answer 1

    Dim d, flen As Long
    fh = FreeFile
    Open "d:\1.dat" For Input As #fh
        flen = LOF(fh)
        d = Input(flen - 1, #fh)
    Close #fh