項目抜き出しセット

質問

現在、FIELD_A に次の値が入っています。

　　FIELD_A = "123 45"
　　　＊ 3と4の間は半角スペースが入っている。

これを、FIELD_BとFIELD_Cの２つのフィールドに
次のようにセットすることはできるのでしょうか？

　　FIELD_B = "123"
　　FIELD_C = "45"

よろしくおねがいします。

回答No.1

Azzuri · ベストアンサー

半角スペースで必ず区切るということであれば、
Dim lPos As Long

lPos = Instr(1,FIELD_A," ")
FIELD_B = Mid(FIELD_A,1,lPos - 1)
FIELD_C = Mid(FIELD_A,lPos + 1,Len(FIELD_A) - lPos)
となります。

お礼

できました！
ありがとうございました。
たすかりました。