No.2ベストアンサー
- 回答日時:
'----------- ファイルシステムオブジェクト作成
Set objFso = CreateObject("Scripting.FileSystemobject")
'----------- 定数の作成
Const ForReading = 1 '読取フラグ
Const ForWriting = 2 '書込フラグ
Const ForAppending = 8 '追記フラグ
Const InsertLine = 2 '文字列の挿入行
Const InsertText = "Inserted!" '挿入する文字列
Const strPath = "test.txt" '処理するテキストファイルのパス
'----------- ファイルが存在することを確認
If objFso.FileExists(strPath) = False Then
MsgBox "指定のファイルがみつかりません"
WScript.Quit 'なければ終了
End If
'----------- テキストの行数を確認
Set objRead = objFso.OpenTextFile(strPath , ForReading) '読取モードでテキストを開く
objRead.ReadAll '全部読むことで最終行へ移動
intLine = objRead.Line '現在の行数を確認
objRead.Close '読取モード閉じる
'----------- テキストの挿入
If intLine <= InsertLine Then '挿入行がテキストの行数より大きいか、同じの場合
Set objAppending = objFso.OpenTextFile(strPath , ForAppending) '追記モードでテキストを開く
objAppending.WriteLine InsertText '挿入行の追記
objAppending.Close '追記モード閉じる
Else '挿入行がテキストの行数より小さい場合
Dim WritingText '書込用の文字列(省略可)
Set objRead2 = objFso.OpenTextFile(strPath , ForReading) '読取モードでテキストを開く
i = 1 '行数の確認用の数値
Do Until objRead2.AtEndOfStream = True '終了行まで繰り返し
If i = InsertLine Then '挿入行が来たら、文字列を挿入
WritingText = WritingText & InsertText & vbCrLf 'vbCrLfは改行コード
End If
WritingText = WritingText & objRead2.ReadLine & vbCrLf '1行読み取り、書込用の文字列に追加
i = i + 1 '読み取った行数を1増やす
Loop
objRead2.Close '読取モード閉じる
Set objWriting = objFso.OpenTextFile(strPath , ForWriting) '書込モードでテキストを開く
objWriting.Write WritingText '書込用の文字列値を一気に書込み
objWriting.Close '書込モード閉じる
End If
'----------- 完了メッセージ
MsgBox "挿入完了"
見やすくするため全角スペースを入れてあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- USBメモリー・SDカード・フラッシュメモリー 銀行が振込データの受け渡しに未だにFDを使っている理由は「FDDがAドライブ固定だから」って本当? 11 2022/06/02 03:53
- その他(恋愛相談) 膣の平均は8〜12cmと言われていますが、時には7cmや5cmなどもいると思います。ネットの記事を見 3 2023/02/23 19:06
- 避妊 今日挿入無しの行為をしましたが行為後少し寝てしまいました。この間に何か指入れなどされた可能性を考えて 2 2023/07/14 02:04
- Java java 次の機能を有するメソッドを自クラスに作成し、実装したいです。 機能 名前判定機能 →名前が 3 2022/06/16 16:08
- Excel(エクセル) 列を挿入しても式の一部を固定するには 6 2023/05/31 21:57
- その他(プログラミング・Web制作) 変換のプログラムを教えてください。 6 2023/07/01 09:57
- 避妊 挿入なしで、指入れされました。気をつけてはいたのですが、指に我慢汁がついてる可能性が完全に否定できま 4 2023/04/09 15:08
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- 避妊 着床出血で4日続き、量が増えることはありますか?排卵予定日前に、挿入なしですが、てまんをしました。精 2 2023/02/25 23:19
- Java javaでのプログラム(配列)について質問です. 2 2022/10/14 22:27
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBSで、テキストファイルに対して、全体の途中に文字列を追加したい
その他(プログラミング・Web制作)
-
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
-
4
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
5
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
6
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
7
VBscriptで「改行」と「」を置換させる"
その他(プログラミング・Web制作)
-
8
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
9
CSVファイルの特定行の削除
Visual Basic(VBA)
-
10
VBscriptが起動しない?
Microsoft ASP
-
11
VBscriptで、Excelのセルに文字列を入力するには?
その他(プログラミング・Web制作)
-
12
VBSを使用し、指定フォルダ内のテキストファイルを一つに結合させたい
Visual Basic(VBA)
-
13
VBSでフォルダ内のテキストファイルを全て連結するには?
その他(プログラミング・Web制作)
-
14
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
15
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
16
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
17
【vbs】ファイル名の検索と該当ファイルの削除について
その他(プログラミング・Web制作)
-
18
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
19
VBSにて改行コードの検出・置換
Visual Basic(VBA)
-
20
VBSでExcelシートのコピー
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バイナリファイルをテキストフ...
-
ファイル内のデータを1行削除...
-
ファイルサイズ指定し、ファイ...
-
テキストファイルの各行の文字...
-
VBSで指定行に挿入
-
c言語 2つのファイルを行ご...
-
ハフマン符号のプログラム
-
fclose(fp);
-
VC++6でfgets関数の変わりにな...
-
fgetsで2行目から文字化け
-
freadとfwrite
-
テキストファイルの行数を取得...
-
C言語のfeof関数について質問
-
テキストファイルの文字列の削除
-
Active Basic EditBoxや文字列...
-
C言語初心者の質問失礼します。
-
バッファとは何ですか
-
フルパスから最後のディレクト...
-
どんなプログラムを書いても指...
-
「UNCパスはサポートされません...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内のデータを1行削除...
-
テキストファイルの行数を取得...
-
バイナリファイルをテキストフ...
-
fgetsで2行目から文字化け
-
VBSで指定行に挿入
-
ファイルサイズ指定し、ファイ...
-
c言語 2つのファイルを行ご...
-
freadとfwrite
-
winsock recvでの文字化け
-
【VB.Net】バイト型配列に読み...
-
C言語での改行コードの扱いにつ...
-
fopen(書き込みモード)でファイ...
-
fortranで文字列を読み込む際の...
-
EOF判定されない
-
改行までの一文字ずつのファイ...
-
InternetReadFileで大きいファ...
-
freadでファイルを読み込んだ際...
-
C言語での採番について
-
複数テキストファイルを読み込...
-
C言語 バイナリファイルの読み...
おすすめ情報