みなさんこんにちは
あるテキストボックスに、固定文字 + 変動文字 が入ります。
この場合、変動文字の最初には必ず "(" が入ります。
この "(" の位置が、テキストボックスの左から何バイト目にあるか、
分かる方法はありますでしょうか。また固定文字には、全角、半角両方使用されています。
そして、"(" の位置が分かった後、その位置から変動文字を入れたいのです。
どのように記述したらよろしいでしょうか。
誰か分かる方教えて下さい。

> あるテキストボックスに、固定文字 + 変動文字 が入ります。
> この場合、変動文字の最初には必ず "(" が入ります。
> この "(" の位置が、テキストボックスの左から何バイト目にあるか、
> 分かる方法はありますでしょうか。
文字コード不明だけど、InstrBで取れない？
むしろ、固定長の終わりに"("があるなら、同じ長さなので何バイト目にあるかなんて調べな
くてもいい
のでは？

> また固定文字には、全角、半角両方使用されています。
> そして、"(" の位置が分かった後、その位置から変動文字を入れたいのです。
この辺りは適当に。
よいうより、「固定文字 + 変動文字」が入力されている状態で、変動文字がを入れるなんていうのがち
ょと不明…

※なんか激しい誤爆の予感

みなさん返答ありがとうございます。
instrBを使用して行ったのですが、
例えば、InStrB("ああ/いい (", " ")の場合、私は10が返ってくる
と思うのですが、11が返ってきます。
"ああ/いい (" の文字だけ見れば、全角２バイト、半角１バイトと計算すれば
10が返ってくると思うのですが、何かまちがえているのでしょうか。
すいませんが教えて下さい。

> "ああ/いい (" の文字だけ見れば、全角２バイト、半角１バイトと計算すれば
Unicodeの場合、1文字=2バイトです。

> この "(" の位置が、テキストボックスの左から何バイト目にあるか、
バイト数も文字数もVBは同じです。(半角も２バイトなので文字数×２)
ここの文字列処理関係をご覧下さい。
又、VB簡易リファレンスの中の文字列関係をよくご覧下さい。

前回の質問の返信がまだのようですが？
★ - テキストボックスを複数個表示 - NAO 02/18-11:45 No.2190

思うに、こんなことをしたいんでないかえ？

Option Explicit

Private Sub Command1_Click()
    Text1.Text = Replace(Text1.Text, "(", "(param as Long")
End Sub

Private Sub Form_Load()
    Text1.Text = "Function foo() As Long"
End Sub

ありがとうございます。
うまくいきました。
私の疑問であった、
InStrB("ああ/いい (", " ")の場合、11が返ってくる原因として
文字コード変換をしなければならない事は分かったのですが、
ここの文字列処理関係を見ても意味がよく分かりません。（素人でしてすいません）
もし知っていたら、どうすればよいか分かるでしょうか。
よろしくお願いします。

> ありがとうございます。
> うまくいきました。
> 私の疑問であった、
> InStrB("ああ/いい (", " ")の場合、11が返ってくる原因として
> 文字コード変換をしなければならない事は分かったのですが、
> ここの文字列処理関係を見ても意味がよく分かりません。（素人でしてすいません）
> もし知っていたら、どうすればよいか分かるでしょうか。
> よろしくお願いします。

StrConv関数でUnicodeからShiftJISに変換してやれば出来ます。
InStrB(StrConv("ああ/いい (",vbFromUnicode) , StrConv(" ",vbFromUnicode))

ありがとうございます。
助かりました。
今後ともよろしくお願いします。