No.2ベストアンサー
- 回答日時:
>Set MyTxt = Nothing
>Set MyTxt = FSO.OpenTextFile(Strpath, 1)
>とすれば実現できます。
>しかし、この方法は一般的でしょうか?
はい、通常、そのようにします。
但し、Set MyTxt = Nothingの前で
MxTxt.Closeを実行したほうがよいでしょう。
>OpenTextFileをリセットするコマンドって用意されていませんか?
残念ながら、ありません。
以下は、ファイルの全行を読み込み、内部に格納し、
先頭行と最終行の内容を画面に表示しています。(もちろん、他の行も可能)
サイズが約25Mバイトの10万行のファイルを読み込んだ場合でも2~3秒で処理できました。(もちろんマシンによる個体差はありますが)
--------------------------------------------------
Option Explicit
Sub Sample()
Dim FSO As Object
Dim OTS As Object
Dim filename As String
Dim strText As String
Dim inCount As Long
Dim strFileName As String
Dim strArray() As String
Set FSO = CreateObject("Scripting.FileSystemObject")
filename = "c:\goo\data.txt"
Set OTS = FSO.OpenTextFile(filename, 1)
inCount = 0
Do While OTS.AtEndOfStream = False
strText = OTS.ReadLine
ReDim Preserve strArray(inCount)
strArray(inCount) = strText
inCount = inCount + 1
Loop
OTS.Close
Set OTS = Nothing
Set FSO = Nothing
Debug.Print "inCount=" + CStr(inCount)
Debug.Print strArray(0)
Debug.Print strArray(inCount - 1)
End Sub
--------------------------------------------------
今回のような場合は、全行読み込んでから、処理したほうが
簡単かと思うのですが、そのようにしたくない理由がなにかあるのでしょうか?
(例えば、ファイルサイズが非常に大きいとかです)
No.1
- 回答日時:
残念ながらReadLineにはそのような機能は提供されていません。
なので、全行を読み込み、内部のメモリに保管しておき、それを参照するのが、
もっとも良い方法でしょう。但し、行数が、あまり多くないことが前提になります。
どのような理由で、そのようなことをなさりたいのかを提示していただければ、
別の解決方法があるかも知れません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- C言語・C++・C# pythonのファイルの並びでの読み込みとリストについて 4 2022/04/13 03:52
- その他(プログラミング・Web制作) 【python】Excelファイルを読み込む際の日付の表示形式を任意にする 2 2022/11/24 14:21
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- Excel(エクセル) Excel Powerクエリーの質問、行数指定は可能でしょうか? 2 2022/08/22 12:54
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
Excel.VBA テキストファイルを指定行数からの読み込む
Excel(エクセル)
-
-
4
VBAでCSVファイルを途中行まで読んだ後で最初の行から読み直す方法はありますか?
その他(プログラミング・Web制作)
-
5
[エクセル VBA]テキストファイルから特定の行のみを抜き出したい 下記のようなテキストファイルから
Excel(エクセル)
-
6
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
7
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
8
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
9
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
12
ExcelVBA テキストファイルから特定行を抽出し、エクセルファイルのテキストボックスに張り付ける
その他(コンピューター・テクノロジー)
-
13
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
14
VBAでCSVファイルの特定行を書き換える方法はあるのでしょうか?
その他(プログラミング・Web制作)
-
15
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
16
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
17
テキストファイルから指定行をExcelに抽出したい。
Excel(エクセル)
-
18
VBScriptでSQLファイルの実行
その他(プログラミング・Web制作)
-
19
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
20
VBScriptでfindを使うには??
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlで、後ろの行を読んで、前...
-
perl で googleAPIを呼び出す...
-
CSVファイルについて
-
ファイル読み込みと書き込み
-
JavaでCSVファイルを高速に読む...
-
VBAでCSVファイルの特定行を書...
-
ExcelをCSV書き出す場合のシー...
-
VB6.0でDB接続する際に切断時の...
-
perl内でPHPを動かす?
-
エクセルVBA コードが同じでも...
-
VBScriptでファイル保存先のデ...
-
ReadLineでの読み出し行を指定する
-
C言語で特定の行を抽出する方法...
-
fgets で値が取得できない
-
空白文字 \\f と\\v の違いに...
-
VBAのFileFormatで悩んでいるこ...
-
Perlで他サイトの情報を取得し...
-
ifstream を利用した1行分のテ...
-
VBAコードを張り付け後のエクセ...
-
1行がやたら長いテキストをバッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでCSVファイルの特定行を書...
-
ExcelをCSV書き出す場合のシー...
-
VBAでCSVファイルを途中行まで...
-
VBAで巨大なファイルの途中から...
-
openした後、closeしないでプロ...
-
エクセルVBA コードが同じでも...
-
ReadLineでの読み出し行を指定する
-
JavaでCSVファイルを高速に読む...
-
perlで、後ろの行を読んで、前...
-
Perlの変数に文字数制限(容量...
-
エクセルVBAでCSVファイ...
-
perlにて2つのファイル比較
-
MATLAB グローバル変数の宣言
-
C#でCSVファイルを逐一更新したい
-
CSVが可変長の場合の検索方法
-
他のサーバーにあるファイルの...
-
動画像から静止画を取り出すには
-
perlで容量の大きいCSVファイル...
-
外部サーバーにあるファイルを...
-
1ファイルずつ読み込みたい
おすすめ情報
ありがとうございます。
指定した行に飛ぶことは無理かも知れませんが
最初の行から読み直すという操作であれば
Set MyTxt = Nothing
Set MyTxt = FSO.OpenTextFile(Strpath, 1)
とすれば実現できます。
しかし、この方法は一般的でしょうか?
OpenTextFileをリセットするコマンドって用意されていませんか?
ありがとうございます。
参考になりました。