Excel VBA質問箱 IV

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

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


29727 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼neptune さん:

こんばんは。
返信有難うございます。

正規表現というのは、ある決まった形にそった文字列を検索する場合に
利用するメタキャラクタを使った記述方法ということですよね。

自分自身、今回検索する文字列が正規表現を使用するのか使用しないのか
いまいち分かっていないのですが、下記のような文字列を検索して、文字を追加したいと
考えています。

(テキストの内容)-------------------------------------------------

ああああああああああああああああ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA



CREATE TABLE "○○○○" (   <--- ○○○○の後に「P」を追加したい。
                     ○の部分は数は定数(4つ)ではなく、不規則な文字列が入ります。



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


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

下記のように、変更したところ、
-------------------------------------------------------------------
strLine = readFile.ReadLine     '1行読み出し

  If InStr(1, strLine, key1) Then    'key1があったら
    Flag = True
  End If

  If Flag And InStr(1, strLine, key2) Then 'key2があったら
    outFile.WriteLine (addStr)
  End If

outFile.WriteLine (strLine)
-------------------------------------------------------------------
 ↓
(テキストの内容)-------------------------------------------------

ああああああああああああああああ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA


P             <-この位置に「P」が付いてしまいました。
CREATE TABLE "○○○○" (   



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


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

元のコードはネットで調べたコードを参照しているのですが、
どうもkey1、key2、Flagの意味が良く理解できていません。

もし、差支えなければお教え頂けませんでしょうか。
宜しくお願い致します。

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 お礼

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