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
と格納されてしまいます。
「,」で区切っているとそれぞれが分かれて格納されてくれるのですが…
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
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"
が格納されます。
お返事ありがとうございました。
説明不足な点が多数あるであろう,質問にお答えくださって
本当にありがとうございます。
そして,的を得たお答えありがとうございます。
回答の通り,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)
という,おそらくは原始的な方法にて解決しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) batにて、異なるフォルダの同名ファイルを参照し、文字列を判別。擬似配列で変数へ格納 3 2022/04/10 03:37
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) Excel VBA でデータ転記について 1 2023/03/07 19:11
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報