文字列検索後にテーブル書き出し処理
ＶＢにて文字列を検索し、必要な情報をテーブルの各々の項目へセットする処理を考えています。
【実際の文字列例】
AAAAA+111,BBB,CCCC+22,DDDD,EEEE,FFFF,GGGG+4444 ・・・
文字列は１レコードが','(カンマ)で区切られ、
アルファベットが商品番号、数字がバージョンと考えて下さい。
商品番号は必ず存在しますが、バージョンは無い場合もあり、
バージョンが存在する場合は'+'(プラス)で商品番号とセットになる事を表しています。（バージョンが全く存在しない場合もあります）
既に商品番号のみをテーブルへセットする処理があり、その処理は下になります
【商品番号のみの処理】
dim pos1
dim pos2 = 1
dim itemNo
LOOP
pos1 := INSTR(文字列, ',', pos2);
IF pos1 = 0 THEN
itemNo := LTRIM(RTRIM(SUBSTR(文字列, pos2)));
ELSE
itemNo := LTRIM(RTRIM(SUBSTR(文字列, pos2, pos1 - pos2)));
END IF;
～itemNoをテーブルへセットする処理～
END IF;
EXIT WHEN pos1 = 0
pos2 = pos1 + 1
END LOOP
上記プログラムにバージョンを考慮した場合、どのように変更となるでしょうか？実プログラムをご教授くだされば幸いです。
素人の質問で申し訳ないのですが、宜しくお願い致します。
お礼
質問を投稿する前に何度もいろんな時間帯にユーリードのサポートに電話をしたのですがいつも話し中で。。。OKwebに投稿しました。 回答ありがとうございました。