コロン前までのデータを読み込みたい
解決はじめまして。環境はＶＢ６です。
下記のようなデータがcomboboxにあります。
1:みかん
11:すいか
3:りんご
これらのデータをコロン区切りで読み込みたいのです。
コロンが来るまで文字を切り取ってmdbに保存したいのです。
この場合ですと[1,11,3]のみ保存対象になります。
コロンのあとの文字は特に保存したりはしません。
For〜Next 文を使って作りたいのですがどうもうまくいきません。
よろしくおねがいします。
説明不足でした。
コンボボックスからはひとつだけ選んで保存します。
「11:すいか」を選択したら「11」のみ保存したいのです。
Left関数などで2文字だけ切り取ろうとおもったのですがその場合ですと「3:
りんご」がコロンまではいって「3:」になってしまうのです・・・
どちらの場合でも対応できるようにしたいのです。
instr関数
何も支障がないのなら
Val()でやりますが・・・。
すみません。For〜Next文で作れという指定なのでvalやInstrは使えないのです。せっかくのアドバイス申し訳ないです。
>For〜Next文で作れという指定なのでvalやInstrは使えないのです。
なぜ、使えないのですか。
いつもの課題でしょう！？
参考に↓
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200512/05120112.txt
気分を害されたら申し訳ありません。
自分の勉強のためにあえて面倒な方法でやってみようとおもったのです。
Val関数やinstr関数ならヘルプにも使い方が乗っているので自分のやりたいことを行えるのですが、Ｆｏｒ文でもできるのではないか？と思い質問したしだいです。
質問の仕方が悪かったみたいなのであとは自分でなんとかしてみます。
レス下さった方々ありがとうございました。
For 〜 Loopでやりたいならば
1.文字列の長さを調べる。
2.For文で、１文字目から、1で調べた長さまでを繰り返す。
3.１文字取り出す。
4.:か否かをチェック、:でなければ別の変数に追加
5.Loop
> Val関数やinstr関数ならヘルプにも使い方が乗っているので
> 自分のやりたいことを行えるのですが、
> Ｆｏｒ文でもできるのではないか？と思い質問したしだいです
まず、自分の勉強ならば、アプローチの仕方が不味いです。
For文でも出来るんじゃないかなぁ〜。
よし、聞いてみよう。
では、質問の仕方の勉強以外に他なりません。
For文でも出来るんじゃないかなぁ〜。
よし、試してみよう
というステップがないとね、
>For〜Next文で作れという指定なのでvalやInstrは使えないのです。
For〜Nextをどこかで使えばいいのでは？
Dim ii As Long
For ii = 0 To Combo1.ListCount - 1 Step 1
List1.AddItem (Combo1.List(ii))
Next
ComboBoxからデータを取得する時とかに。
>自分の勉強のためにあえて面倒な方法でやってみようとおもったのです。
自分の勉強のためなら、人に聞かない
１週間ぐらい考えるようには思いませんか。
私ならそうしますけど。
>自分の勉強のためにあえて面倒な方法でやってみようとおもったのです。
ならば一番最初に明記すべきです。
＞For〜Next文で作れという指定なので
と言っていたかと思えば
＞Ｆｏｒ文でもできるのではないか？と思い
と言う。
明らかにおかしいですよ、と。
みなさん言ってる通りFor〜Nextでできますよね
:が何文字目かを調べておけばよし
Do Whileでもできる
:にぶつかるまで1文字ずつ読めばよし
あと配列用意してSplitを用いてセパレータを:に設定して
配列0番目とか
答えを知るだけならか〜んたん
プロセスを知ることが難しい・・・
| ツイート |  |