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
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
9
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
10
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
11
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
12
ExcelVBA テキストファイルから特定行を抽出し、エクセルファイルのテキストボックスに張り付ける
その他(コンピューター・テクノロジー)
-
13
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
14
テキストファイルから指定行をExcelに抽出したい。
Excel(エクセル)
-
15
VBScriptでfindを使うには??
Visual Basic(VBA)
-
16
VBAでCSVファイルの特定行を書き換える方法はあるのでしょうか?
その他(プログラミング・Web制作)
-
17
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
18
【ExcelVBA】300万件越えCSVから条件を満たす行だけ抽出するには?
Visual Basic(VBA)
-
19
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
20
テキストファイルから最終行の抽出
Windows Me・NT・2000
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCSVファイルを途中行まで...
-
ExcelをCSV書き出す場合のシー...
-
openした後、closeしないでプロ...
-
perlで、後ろの行を読んで、前...
-
動画像から静止画を取り出すには
-
VBAでCSVファイルの特定行を書...
-
ReadLineでの読み出し行を指定する
-
CSVが可変長の場合の検索方法
-
Perlでファイルの列を削除する。
-
VBAで巨大なファイルの途中から...
-
window.open でのファイル指定方法
-
VBA テキストファイルを読み取...
-
awkスクリプトでダブルクォーテ...
-
perlのflock関数でロックをかけ...
-
Perlで特定行から特定行までを...
-
ファイル全てを .xlsm に変更し...
-
重複ファイル名ある場合ファイ...
-
perlでファイルの比較
-
fopenでディレクトリ内の全ファ...
-
重複するデータを抽出できる秀...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelをCSV書き出す場合のシー...
-
VBAで巨大なファイルの途中から...
-
エクセルVBA コードが同じでも...
-
ReadLineでの読み出し行を指定する
-
VBAでCSVファイルの特定行を書...
-
VBAでCSVファイルを途中行まで...
-
openした後、closeしないでプロ...
-
JavaでCSVファイルを高速に読む...
-
VBScriptでファイル保存先のデ...
-
perlにて2つのファイル比較
-
エクセルVBAでCSVファイ...
-
ADOによるCSVファイルからのデ...
-
perlで容量の大きいCSVファイル...
-
C言語でのファイルのデータ更...
-
Perlの変数に文字数制限(容量...
-
MATLAB グローバル変数の宣言
-
Perlでファイルの列を削除する。
-
perlで、後ろの行を読んで、前...
-
CSVファイルに、連続した大量の...
-
Javaで同一のファイルを読み込...
おすすめ情報
ありがとうございます。
指定した行に飛ぶことは無理かも知れませんが
最初の行から読み直すという操作であれば
Set MyTxt = Nothing
Set MyTxt = FSO.OpenTextFile(Strpath, 1)
とすれば実現できます。
しかし、この方法は一般的でしょうか?
OpenTextFileをリセットするコマンドって用意されていませんか?
ありがとうございます。
参考になりました。