VBScriptにて、あるファイル内を1行ずつ順番に取り出しながら、
途中の数行を別のファイルに書き出したいのですが、方法が分からず
悩んでいます。
--------------------------------------------------------------
set objFS = CreateObject("Scripting.FileSystemObject")
set objReadText = objFS.OpenTextFile("C:\read.log")
set objWriteText = objFS.CreateTextFile("C:\write.log")
count = 1
Do Until objReadText.AtEndOfStream
If count >3 And count < 8 Then
strLine = objReadText.ReadLIne
objWriteText.WriteLine(strLine)
ElseIf count = 8 Then
Exit Do
End If
count = count + 1
Loop
objReadText.Close
objWriteText.Close
--------------------------------------------------------------
上記にて、例えばread.logの4行目から7行目だけをwrite.logに書き出したいのですが、
想定した途中の行だけを別ファイルに書き出す事が出来ません。
どなたかアドバイスを頂けないでしょうか。
No.1ベストアンサー
- 回答日時:
set objFS = CreateObject("Scripting.FileSystemObject")
set objReadText = objFS.OpenTextFile("C:\read.log")
set objWriteText = objFS.CreateTextFile("C:\write.log")
count = 0
Do Until objReadText.AtEndOfStream
strLine = objReadText.ReadLIne
count = count + 1
If count >3 And count < 8 Then
objWriteText.WriteLine(strLine)
End If
If count = 8 Then
Exit Do
End If
Loop
objReadText.Close
objWriteText.Close
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux 次の要件を満たすにはどのように修正したらよろしいでしょうか 1 2022/11/24 20:57
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 1つの入力フォルダの値を読み込み、3分割をして新しい変数に代入する方法を教えていただきたいです。 読 4 2022/10/17 20:52
- C言語・C++・C# プログラミング c言語 4 2023/03/07 01:05
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
-
4
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
5
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
6
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
7
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
8
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
9
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
10
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
11
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
12
VBScriptでfindを使うには??
Visual Basic(VBA)
-
13
0バイトのテキストファイル
Visual Basic(VBA)
-
14
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
15
VBSでエクセル内の行数を取得する方法
その他(プログラミング・Web制作)
-
16
テキストファイルの最終行を削除したいのですが
その他(プログラミング・Web制作)
-
17
VBスクリプトでテキストファイルの行数カウント
その他(プログラミング・Web制作)
-
18
VBSを使用し、指定フォルダ内のテキストファイルを一つに結合させたい
Visual Basic(VBA)
-
19
vbsのFolderExistsで部分一致をさせたい
その他(プログラミング・Web制作)
-
20
csvファイルを開かずに文字を検索し行を抽出したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBScriptで、ファイルから任意...
-
JAVAで別サーバーのファイルの...
-
最新の状態を誤って過去の状態...
-
VBAでサーバーにアクセスするに...
-
ウィンドウズ XPの検索で拡張...
-
input type="file"で複数選択を...
-
ラジオボタンのグループ化
-
WEBデザイナーの方にお聞きした...
-
Dreamweaverでのパーミッション...
-
CGIにCSSを
-
ASP(IIS?)のエラーについて
-
WIn32API ディレクトリ内ファイ...
-
PyCharmでのCGIを使ったWebサー...
-
KENT-WEBのclipmailで文字化け
-
ショッピング・システムに、HTM...
-
Web開発の完全素人です。 よけ...
-
URLに~/cgi-bin/~を隠す方法
-
パスワ-ド認証について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBAでサーバーにアクセスするに...
-
JAVAで別サーバーのファイルの...
-
VBScriptで、ファイルから任意...
-
サーバー上のフォルダ削除が出...
-
Webでのファイルアップロードに...
-
vbでFTPサーバーに対して、サー...
-
C# ファイル削除のエラーコード
-
WEB上で文書のアイコンを配置す...
-
HTMLソースファイルからタグを...
-
contenttypeについて
-
Dreamweaver(ドリームウィーバ...
-
自前のアップローダの作り方
-
個人的なアップローダーの設置
-
ローカルファイルをサーバーか...
-
PHPが動いてCGIが動かない?
-
30分ごとに更新
-
Perl 別ドメインのファイル存在...
-
アクセス制限について
おすすめ情報