Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29780 / 76738 ←次へ | 前へ→

【52233】Re:OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい
質問  moto  - 07/11/2(金) 0:50 -

引用なし
パスワード
   こんばんは。

標題の件につきまして、中々思い通りにできくて困っています。
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」を追加したい




いいいいいいいいいいいいいいいいい
いいいいいいいいいいいいいいいいい



-------------------------------------------------------------------

ご指導の程、宜しくお願い致します。

0 hits

【52163】OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい moto 07/10/26(金) 0:04 質問
【52164】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/10/26(金) 8:29 発言
【52182】Re:OpenAsTextStreamで、テキストファイル... moto 07/10/26(金) 22:42 お礼
【52233】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/2(金) 0:50 質問
【52235】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/2(金) 8:36 発言
【52275】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/4(日) 21:22 質問
【52278】Re:OpenAsTextStreamで、テキストファイル... neptune 07/11/4(日) 23:04 発言
【52280】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/5(月) 0:07 質問
【52283】Re:OpenAsTextStreamで、テキストファイル... りん 07/11/5(月) 1:15 発言
【52290】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/5(月) 19:42 発言
【52301】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/7(水) 0:27 お礼
【52314】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/8(木) 0:20 お礼

29780 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free