|
こんばんは。
標題の件につきまして、中々思い通りにできくて困っています。
ichinoseさんのアドバイスをうけて、ネット等で色々調べて試しているのですが、
自分の勉強不足が禍して上手くいきません。
今、下記のコードで試しているのですが、マクロを実行しても何も反応がありません。
また、コードの内容でわからない部分があるので、再度ご教授頂ければと思い投稿させて
頂きます。どうか宜しくお願い致します。
-------------------------------------------------------------------
Sub test3()
Dim fso, file
Dim tempFile, outFile, readFile
Dim strLine, Flag, fileName, key1, key2, addStr
fileName = "C:\作業フォルダ\マクロ\sample.sql"
key1 = "CREATE TABLE" 'キーのはじめ
key2 = "" "(""" '挿入場所キー
addStr = "P" '挿入データ
Set fso = CreateObject("Scripting. FileSystemObject")
tempFile = fso.GetTempName
Set outFile = fso.OpenTextFile(tempFile, 2, True) '作業ファイルの作成
Set readFile = fso.OpenTextFile(fileName, 1)
Flag = False
Do Until readFile.AtEndOfStream
strLine = readFile.ReadLine '1行読み出し
If key1 = strLine Then 'key1を見つけたら
Flag = True
End if
If Flag And key2 = strLine Then 'key2を見つけたら
outFile.WriteLine (addStr)
End if
outFile.WriteLine (strLine)
Loop
readFile. Close
outFile.Close
Set file = fso.GetFile(fileName)
file.Name = fileName & ".bak" '元のファイルをバックアップする
Set file = fso.GetFile(tempFile)
file.Name = fileName '作業ファイルの名前を変更する
End Sub
-------------------------------------------------------------------
上記は、ネットで調べたコードを参照しているのですが、
"キーのはじめ"と"挿入場所キー"の部分と変数のFlagの意味がが良く
わかりません。
因みに編集したいテキストのデータは下記のような内容になります。
(テキストの内容)-------------------------------------------------
ああああああああああああああああ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
・
・
・
CREATE TABLE "○○○○" ( <--- ○の後に「P」を追加したい
・
・
・
いいいいいいいいいいいいいいいいい
いいいいいいいいいいいいいいいいい
・
・
・
-------------------------------------------------------------------
ご指導の程、宜しくお願い致します。
|
|