roze_mt5のプロフィール
- ベストアンサー数
- 0
- ベストアンサー率
- 0%
- お礼率
- 0%
- 登録日2009/08/16
- (aaa/bbb/○○)を、(××)に書き換えたい。
いつもお世話になっております。 開発環境:VisualBasic6.0 Windows2000 開発者レベル:プログラム初心者 文字列の入替について質問させて下さい。 元ネタ--------------------------- あああ,いいい ううう,えええ ・ ・ ←間400行くらい ・ %なんとかかんとか (H:/jlih/79057908423/jsglk/jklfsa/あああ) kkk { % ppp ggg (H:/jlih/79057908423/jsglk/jklfsa/あああ) mm } ・ ・ ←間、何百行か ・ (H:gds/grehe/79805423/hter/bhgs/ううう) kkk { % ppp ggg (H:gds/grehe/79805423/hter/bhgs/ううう) mmm } /元ネタ--------------------------- ↓やりたい結果↓ 完成--------------------------- あああ,いいい ううう,えええ ・ ・ ←間400行くらい ・ %なんとかかんとか (いいい) kkk { % ppp ggg (いいい) mm } ・ ・ ←間、何百行か ・ (えええ) kkk { % ppp ggg (えええ) mmm } /完成--------------------------- ユニークである「あああ」で検索して、 その行以下で見つかった「あああ」を含む()内の 全部を、「いいい」に書き換えたいのです。 Split関数で「,」を境に 「あああ」と「いいい」の左右を分解して 配列に格納する・・まで出来ましたが、 その後の置換で煮詰まっております。 自分で考えたのが、 (1)Replace関数で、 検索文字列を「(*あああ)」とかにして、 ワイルドカードを使用する。 しかし →ワイルドカード使用が上手くいかない上に、 この動作は置換ではなさそうな気がしてきた。 ex: 置換後=Replace("(*)","(*あああ)","(いいい)") (2)ユニークである「あああ」から、 InstrRev関数を使って「(」までのByte数を数えて、 丸ごと切り取り&代入する。 しかし →アナログすぎる気がした。 上の様な動作をさせる場合、 どのような流れで作るのが良いか、 もし良ろしければご意見を聞かせて頂けますでしょうか。 プログラム初心者の私が、 自分なりの狭い了見で考え、調べましたが、 ちょっと煮詰まっております。 文章に不足やお見苦しい点がございますことをお詫びいたします。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- 0896
- 回答数2