-PR-
解決済み

ファイルの開き方について

  • 暇なときにでも
  • 質問No.66834
  • 閲覧数122
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 85% (66/77)

1 2 3 4 5 6
上記のように文字と文字の間が半角スペース一つで区切られている
ファイルを配列に
Datatable(1)=1
Datatable(2)=2
Datatable(3)=3
Datatable(4)=4
Datatable(5)=5
Datatable(6)=6
のように格納するにはどうすればよいのでしょうか。

Open MyPath & "DataBaseJ.dat" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, DB(i)
Loop
Close #1

上記のようにすると
1 2 3 4 5 6
と一行が
Datatable(1)=1 2 3 4 5 6
と格納されてしまいます。
「,」で区切っているとそれぞれが分かれて格納されてくれるのですが…
よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル11

ベストアンサー率 47% (115/244)

VB6ですとsplit関数を使って

Dim aaa As String
Dim Datatable() As String

aaa = "1 22 333"
Datatable = Split(aaa)

というようにすると

Datatable(0)には "1" 、
Datatable(1)には "22"、
Datatable(2)には "333"
が格納されます。
お礼コメント
nox_neo

お礼率 85% (66/77)

お返事ありがとうございました。
説明不足な点が多数あるであろう,質問にお答えくださって
本当にありがとうございます。

そして,的を得たお答えありがとうございます。
回答の通り,split関数を使って
Open MyPath & "DataBaseJ.dat" For Input As #1
Do Until EOF(1)
Input #1, TempRec1
TempRec2 = TempRec1 + TempRec2
Loop
Close #1
DBS = Split(TempRec2)
という,おそらくは原始的な方法にて解決しました。
投稿日時 - 2001-04-22 20:20:58
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ