特定文字列の抽出

質問

VB6の質問です。
桁数、データが不定の文字列中から特定文字を抽出したいのでが、方法を教えていただけないでしょうか?
抽出したいデータの桁数が毎回不定でMid, Left, Right関数が使用できません。

Dim Buffer As String

Buffer = "A12345...B678910.TRAGET..C" '桁数、データが不定の文字列がBufferに入ります。

例えば、変数Bufferから、桁数を考慮しないで"TARGET"の文字列を抽出したのです。
InStr関数で、位置を特定して、Mid関数などで抽出するれば、良いと思うのですが
これをどんな桁数のときも対応できるようにルーチン化にできないでしょうか?

回答No.1

bin-chan · ベストアンサー

> 例えば、変数Bufferから、桁数を考慮しないで"TARGET"の文字列を抽出したのです。
なさりたいことをもう少し詳しく教えてくださいね。

欲しいのは"TARGET"ですか？それとも"TARGET"を取り除いた残りの部分ですか？

前者なら、instrでも用いて"TARGET"が含まれる場合に文字定数"TARGET"を返せばおしまい。

後者なら、
Buffer = "A12345...B678910.TARGET..C"
'わざと2行にしましたが、一行でも可能
Buffer = join(split(Buffer, "TARGET"))
’一行なら下記のとおり
’Buffer = join(split("A12345...B678910.TARGET..C", "TARGET"))
’"TARGET"を"SOURCE"に置き換えることも簡単
’Buffer = join(split("A12345...B678910.TARGET..C", "SOURCE"))

回答No.2

bin-chan

＃１です。すみません、訂正させてください。
join関数の引数が必要でした。

Buffer = "A12345...B678910.TARGET..C"
'わざと2行にしましたが、一行でも可能
Buffer = join(split(Buffer, "TARGET"), "")
’一行なら下記のとおり
’Buffer = join(split("A12345...B678910.TARGET..C", "TARGET"), "")
’"TARGET"を"SOURCE"に置き換えることも簡単
’Buffer = join(split("A12345...B678910.TARGET..C", "TARGET"), "SOURCE")