ＶＢ６でのシーケンシャルファイルの読み込みと書き込みをするには？

解決

---

まったくの素人で申し訳ありません。ＶＢ６を使用してシーケンシャルファイル （txt）からの読み出し、１行ずつ読み込み、１次元配列に格納（書き込み？）のコマンドを教えていただけないでしょうか？

編集 削除

---

dim ff as Long
dim st as String
dim Lines() as String
dim LineCount as Long

ff=freefile
open "c:\fiLe.txt" for input as #ff
  while not eof(ff)
    Line Input #ff,st
    LineCount=LineCount+1
    redim Preserve Lines(1 to LineCount)
    Lines(LineCount)=st
  wend
close #ff

多分…最近こういうのやってないから。

編集 削除

---

いちゆ  様  ありがとうございます。

教えていただきましたプログラムについて
可能であれば教えていただきたいのですが・・・

ff = FreeFile
'テキストファイルをオープン
Open "c:\fiLe.txt" For Input As #ff
' ファイルの終端までループを繰り返し。
  While Not EOF(ff)
'１ 行づつ変数に読み込みます。
    Line Input #ff, st
    LineCount = LineCount + 1
    ReDim Preserve Lines(1 To LineCount)
    Lines(LineCount) = st
  Wend
'ファイルを閉じる
Close #ff

上記の中にあります

LineCount = LineCount + 1
    ReDim Preserve Lines(1 To LineCount)
    Lines(LineCount) = st

については
『txtが無くなるまで繰り返す』
という命令になっているのでしょうか？
ＶＢ初心者で申し訳ありません。

編集 削除

---

提示されたコードの中で分からない箇所はＭＳＤＮ  ＨＥＬＰで
調べましたか？  分からない箇所があればその単語を
キーワードにして調べて下さい。

http://www.yahoo.co.jp/  等の検索エンジンでも見つかります。

ReDim と Preserve 
そうすれば何をしているか分かるはずです。

編集 削除

---

以下のようになっています。
LineCount = LineCount + 1 ← 配列の上限値を変更
ReDim Preserve Lines(1 To LineCount) ← 配列の内容を保持したまま、上限を変更(添字は 1〜LineCountまで)
Lines(LineCount) = st ← 配列の上限に読込んだ値をセット

編集 削除

---

マフユさん、吉野さん  お手数お掛けして申し訳ありませんでした。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。