![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
5
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
6
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
7
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
8
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
9
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
10
VBSでエクセル内の行数を取得する方法
その他(プログラミング・Web制作)
-
11
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
12
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
13
VBスクリプトでテキストファイルの行数カウント
その他(プログラミング・Web制作)
-
14
VBSでフォルダ内のテキストファイルを全て連結するには?
その他(プログラミング・Web制作)
-
15
VBSでテキストファイルのタブ区切りをカンマ区切り
その他(ソフトウェア)
-
16
VBSを使用し、指定フォルダ内のテキストファイルを一つに結合させたい
Visual Basic(VBA)
-
17
テキストファイルの最終行を削除したいのですが
その他(プログラミング・Web制作)
-
18
エクセルでファイルを開かずに文字を検索し、行を抽出したい
Excel(エクセル)
-
19
vbsのFolderExistsで部分一致をさせたい
その他(プログラミング・Web制作)
-
20
VBSで、テキストファイルに対して、全体の途中に文字列を追加したい
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBScriptで、ファイルから任意...
-
VBAでサーバーにアクセスするに...
-
WEBデザイナーの方にお聞きした...
-
ApacheでのCGIについての質問
-
ラジオボタンのグループ化
-
FTPにて553エラー
-
#!/usr/bin/perl --
-
URLに~/cgi-bin/~を隠す方法
-
AS/400 QUERYの集計結果について
-
WIn32API ディレクトリ内ファイ...
-
.htaccessを2つ以上設置した場合
-
CGI cgi-bin 動かない エ...
-
ftpでuploadのとき上書きとする...
-
perlからphpを実行して結果を得...
-
cgiで.datファイル内の一文を削...
-
特定のCGIだけ、作動するかわり...
-
jcode.plファイルが閲覧できる...
-
tableのthに斜めの線をCSSで入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBScriptで、ファイルから任意...
-
VBAでサーバーにアクセスするに...
-
JAVAで別サーバーのファイルの...
-
C# ファイル削除のエラーコード
-
最新の状態を誤って過去の状態...
-
離れた場所からEXCELファイルを...
-
tplファイルのプレビューの方法
-
サーバー上のフォルダ削除が出...
-
スタイルシートをアップしたい
-
空のファイル
-
input type="file"で複数選択を...
-
vbでFTPサーバーに対して、サー...
-
Webフォルダでサーバーからイン...
-
検索ロボットが更新日を知る方...
-
basp21でのファイルアップロー...
-
EZweb用サイト、ソースが直接表...
-
エックスサーバー上へファイル...
-
HTMLソースファイルからタグを...
おすすめ情報