.net では、readstream でがばっととって、テキストボックス(読み取り専用)に表示しました。
これと同様のことをVB6.0でチャレンジしたのですが、テキストボックスに表示されるのは最初の一行だけでした。マルチラインのテキストボックス設置後
Private sub command1_click()
Dim data as string
Open "ファイルパス" for input as #256
Do while EOF(256)
line input #256, data
loop
text1.text=data
としたところ、ファイル内の最初の一行目に位置する「%」のみが表示されました。
readonlyもつかえないみたいなので、Listを使うのがよいのでしょうか?ご教示下さい
No.1ベストアンサー
- 回答日時:
FileSystemObject を使いましょう。
参照設定で "Microsoft Scripting Runtime" を参照した場合は
Dim textValue As String
Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set ts = fso.OpenTextFile("D:\test.txt", ForReading)
textValue = ts.ReadAll
ts.Close
Me.TextBox1.Text = textValue
参照設定をしない場合は
Const ForReading = 1
Dim textValue As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("D:\test.txt", ForReading)
textValue = ts.ReadAll
ts.Close
Me.TextBox2.Text = textValue
です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- C言語・C++・C# C#テキストボックスの文字を配列にいれてその後表示する 4 2022/07/17 04:47
- Visual Basic(VBA) リストボックスに表示されたファイルを削除したい 1 2023/04/19 12:02
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
COPYコマンドで結合すると余計...
-
VBAでワークシートを引数として...
-
拡張子を元に戻す
-
VBAでエクセルをtxtに変換する...
-
多数のサブディレクトリ内のフ...
-
.txtではなく.logの方が良いの...
-
Windowsのバッチファイルを利用...
-
ファイルの最後に文字列挿入
-
batファイルについて
-
forfilesで検索したファイルを...
-
trcからtxtへの変換方法を教えて!
-
3つ以上のテキストファイルをコ...
-
任意のディレクトリ以下に存在...
-
バッチファイル 複数ファイル...
-
テキスト(txt)→ワード(docx)へ...
-
バッチにてフォルダ内ファイル...
-
テキストファイルのタブをカン...
-
FTPのコマンド「mput」について
-
ExcelVBA テキストファイルUNIC...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
forfilesで検索したファイルを...
-
テキストファイルのファイル名...
-
テキストファイルで提出とは?
-
ファイルの最後に文字列挿入
-
バッチファイル 複数ファイル...
-
Windowsのバッチファイルを利用...
-
psqlでエラーログをとりたい
-
バッチファイルからVBAに引数を...
-
renameコマンドについて
-
VBAでエクセルをtxtに変換する...
-
バッチファイルで文字列削除に...
-
cshでファイルサイズ取得
-
テキスト(txt)→ワード(docx)へ...
-
ファイル内容の修正、行削除に...
おすすめ情報