發信人：a9573@mail.kscgeb.edu.tw (山)
日期：Wed, 21 Jan 1998 04:21:38 GMT
標題：Re: 關於VB讀取資料
信群：tw.bbs.comp.language    看板：
代號：<34c577bb.10535472@news.seed.net.tw>
組織：SEEDNET InterNetNews News System

On Tue, 20 Jan 1998 17:00:46 +0800, "笨笨的家豬"
<didila@earthling.net> wrote:

>1.  我用VB讀取檔案內的資料
>    Open "C:\temp\data.txt" For Input As #6
>    Do While Not EOF(6)
>        Line Input #6, data
>    Loop
>    Close #6
>它的資料卻是由最後面往上讀取
>我要怎樣才能將它由上往下讀取呢?
>
>2.我要將它成為一個陣列
>    abc = Array(DATA)
>在DATA要如何去做設定?
>請幫我
>謝謝


1.讀取循序檔如您上面的寫法應該沒有錯
  變成由下往上讀,真覺得不可思意.

2.Array 函數,一般用在已知陣列維數時,
  如:
  Dim abc As Variant
  abc = Array(10, 20, 30, 40)

  如果您是想將上面讀取的檔案內容放入
  陣列中,可以用動態陣列的方法:

  Dim abc() As String
  Dim data As String
  Dim i As Integer
    
  i = 0
  Open "c:\temp\data.txt" For Input As #1
  Do While Not EOF(1)
      Line Input #1, data
      i = i + 1
      ReDim Preserve abc(i)
      abc(i) = data
  Loop
  Close #1

  如果您要確定目前動態陣列的維數,可以由 UBound 函數得知.   
  Label1.Caption = UBound(abc)

---------------
王德山
E-mail: a9573@mail.kscgeb.edu.tw
.