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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBSで、テキストファイルに対して、全体の途中に文字列を追加したい
その他(プログラミング・Web制作)
-
vbsで最後の行を削除する
その他(プログラミング・Web制作)
-
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
-
4
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
5
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
6
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
7
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
8
Windowsのバッチファイルを利用しtxtファイルの指定のした位置に文字を追加する方法
その他(プログラミング・Web制作)
-
9
VBscriptで「改行」と「」を置換させる"
その他(プログラミング・Web制作)
-
10
VBScriptでcsvファイルの編集は出来ますか
Visual Basic(VBA)
-
11
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
12
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
13
VBSを使用し、指定フォルダ内のテキストファイルを一つに結合させたい
Visual Basic(VBA)
-
14
VBSでフォルダ内のテキストファイルを全て連結するには?
その他(プログラミング・Web制作)
-
15
VBSで応答不要のメッセージボックスを表示したい
その他(パソコン・スマホ・電化製品)
-
16
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
17
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
18
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
19
VBscriptが起動しない?
Microsoft ASP
-
20
VBSにて改行コードの検出・置換
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル内のデータを1行削除...
-
C言語での改行コードの扱いにつ...
-
c言語 2つのファイルを行ご...
-
バイナリファイルをテキストフ...
-
C言語での採番について
-
freadとfwrite
-
巨大なテキストファイル(可変...
-
C言語 CSVファイルの読み込み
-
改行までの一文字ずつのファイ...
-
freadでファイルを読み込んだ際...
-
fortranで文字列を読み込む際の...
-
C言語初心者の質問失礼します。
-
どんなプログラムを書いても指...
-
FTPでputすると空ファイルが出...
-
バッファとは何ですか
-
ハッシュの計算時間について
-
マイクラでPythonのプログラミ...
-
c/c++ ビルドしたにもかかわら...
-
Access クエリ実行が急に非常に...
-
フルパスから最後のディレクト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内のデータを1行削除...
-
バイナリファイルをテキストフ...
-
fgetsで2行目から文字化け
-
テキストファイルの行数を取得...
-
c言語 2つのファイルを行ご...
-
C言語での改行コードの扱いにつ...
-
改行までの一文字ずつのファイ...
-
VBSで指定行に挿入
-
【VB.Net】バイト型配列に読み...
-
freadとfwrite
-
巨大なテキストファイル(可変...
-
0バイトファイルの作成
-
fopenで開いたファイルのサイズ...
-
fopen(書き込みモード)でファイ...
-
winsock recvでの文字化け
-
ファイルサイズ指定し、ファイ...
-
fortranで文字列を読み込む際の...
-
C言語での採番について
-
【C言語】テキスト読み込みの行...
-
VS2010 MFC CStdioFileについて
おすすめ情報