Excel VBA質問箱 IV

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

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


29724 / 76732 ←次へ | 前へ→

【52283】Re:OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい
発言  りん E-MAIL  - 07/11/5(月) 1:15 -

引用なし
パスワード
   moto さん、こんばんわ。

>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)

こうなるんだと思いますけど。
>P             <-この位置に「P」が付いてしまいました。
>CREATE TABLE "○○○○" (   

なので、
>  If Flag And InStr(1, strLine, key2) Then 'key2があったら
    outFile.WriteLine (strLine & addStr)
>  Else
     outFile.WriteLine (strLine)
>  End If
これでどうでしょうか。

>どうもkey1、key2、Flagの意味が良く理解できていません。
 それぞれ、変数の名前です。
 (人によって付け方の法則がちがうけど、そのままの意味なのでわかりやすい方だと思いますが)
存在意味というなら、
 key1、key2は、読み込んだ文字列に含まれているかどうかチェックする文字(列)
 Flagは読み込んだ文字列にkey1が入っていたかどうかのチェックの結果です
1 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 お礼

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