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
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
6
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
7
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
8
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
9
VBScriptでfindを使うには??
Visual Basic(VBA)
-
10
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
11
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
12
0バイトのテキストファイル
Visual Basic(VBA)
-
13
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
14
VBS パスに変数を入れたい
その他(プログラミング・Web制作)
-
15
txtファイルから特定の文字列が書かれた行だけを取得や削除するソフト
フリーソフト
-
16
【vbs】ファイル名の検索と該当ファイルの削除について
その他(プログラミング・Web制作)
-
17
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
18
VBScriptでファイルの日時順(降順)で並び替えて一覧を出力したい。
その他(プログラミング・Web制作)
-
19
VBSの「MsgBox」について
Visual Basic(VBA)
-
20
VBSでExcelシートのコピー
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
自前のアップローダの作り方
-
WEB上で文書のアイコンを配置す...
-
サーバー上のフォルダ削除が出...
-
ApacheでのCGIについての質問
-
カタカナを英語やフランス語に...
-
.htaccessを2つ以上設置した場合
-
SFTPなどは使わないホームペー...
-
Ajax React Jqueryの位置づけと...
-
Perlプログラム上でアラートを表示
-
CGI掲示板のバーミッションにつ...
-
NAMAZUでの文字化け
-
#!/usr/local/bin/perlとしたい
-
ニフティでメールフォームを使...
-
CGIって何ですか?簡潔に教えて...
-
FTPにて553エラー
-
KENT WEBのページカウンタのタ...
-
FC2へのCGIメールフォーム設置
-
クライアントサイドとサーバー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBAでサーバーにアクセスするに...
-
VBScriptで、ファイルから任意...
-
JAVAで別サーバーのファイルの...
-
vbでFTPサーバーに対して、サー...
-
C# ファイル削除のエラーコード
-
空のファイル
-
Perl 別ドメインのファイル存在...
-
contenttypeについて
-
input type="file"で複数選択を...
-
CGI_lite.pmを使ったファイルの...
-
FTPでのアップロード後
-
自前のアップローダの作り方
-
WEB上で文書のアイコンを配置す...
-
Webフォルダでサーバーからイン...
-
サーバー上のフォルダ削除が出...
-
URLに~/cgi-bin/~を隠す方法
-
ラジオボタンのグループ化
-
ASPから既存のexcelブックを開...
おすすめ情報