文字の大小チェックを行うには

解決

mkt  2005-07-26 11:22:41  No: 123723  IP: [192.*.*.*]

VB6.0で作成しています。
数値データをString型で保存し、その後大小チェックを行っているのですが。
「09」と「1」等を比較する時「1」>「09」という結果が返ってきました。
データの型はString型のままで比較し、かつ「09」<「1」という結果を得られるようにしたいのですが、何か良い方法は無いでしょうか。

編集 削除
ガッ  2005-07-26 11:36:53  No: 123724  IP: [192.*.*.*]

最初に思いつくのはListBoxを使ったソートです。
ヒントは、
・文字列の左を有効桁まで0で埋める
・ItemDataプロパティを使う
・構造体(それかクラスのインスタンス)、の配列を使う
辺りでしょうかね…？

編集 削除
030  2005-07-26 12:09:29  No: 123725  IP: [192.*.*.*]

>データの型はString型のままで比較し
何か意味あるの？

編集 削除
id_rsa+  2005-07-26 12:41:21  No: 123726  IP: [192.*.*.*]

>「09」と「1」等を比較する時「1」>「09」という結果が返ってきました。
で、
>「09」<「1」という結果を得られるようにしたいのですが
ってコトは・・・・できてるジャン。。

編集 削除
KG  2005-07-26 12:56:27  No: 123727  IP: [192.*.*.*]

比較するときだけValを使ってみるとか。

>ってコトは・・・・できてるジャン。。
#私もそう思いました(笑

編集 削除
mkt  2005-07-26 14:39:04  No: 123728  IP: [192.*.*.*]

申し訳ありません。間違いです。
> かつ「09」<「1」という結果を得られるようにしたいのですが

ではなく、「09」>「1」の間違いです。
ご教授のほどよろしくお願い致します。

編集 削除
id_rsa+  2005-07-26 14:59:55  No: 123729  IP: [192.*.*.*]

Dim s1 As String
Dim s2 As String

 s1 = "09"
 s2 = "1"

 If Val(s1) > Val(s2) Then
  Debug.Print "09 > 1"
 End If
こうゆうことですか？

編集 削除
030  2005-07-26 15:30:34  No: 123730  IP: [192.*.*.*]

>If Val(s1) > Val(s2) Then
と思ったんだけど
>データの型はString型のままで比較し
ということなので、
String型のまま比較することに何か意味あるの？
と思ったんですが。

"1"<"09"
としたいんだったら
"01"<"09"
としてから比較すればいいだけのような。

編集 削除
id_rsa+  2005-07-26 15:49:28  No: 123731  IP: [192.*.*.*]

>String型のまま比較することに何か意味あるの？

憶測ですが・・・
元のデータが、数値に変換されてしまうと支障があるって事じゃないカナ？？

Dim s1 As Long
Dim s2 As Long

 s1 = Val("09")
 s2 = Val("1")

 If s1 > s2 Then
  Debug.Print s1 & " > " & s2  'ここで「"09 > 1"」→「"9 > 1"」になる
 End If
みたいな・・・・
どうでしょう？mktさん。

編集 削除
ガッ  2005-07-26 15:51:32  No: 123732  IP: [192.*.*.*]

なんか私のレスだけ安直に見えてきて鬱だな…(orz

さて、元の投稿の
> データの型はString型のままで比較し
というくだりが気になりますね…
・元のデータString():X以外のデータを作らずに済む方法
・元のデータXを書き換えないで済む方法
という風にも捉えられますが…
この場合、専用の比較方法を用いたソーティングが必要になりますので、
結構手間が掛かるかもしれませんね。
→件数が少ないなら別に気にする必要はないと思いますが。

※このソート法は最初に長さを無視して比較しますので、
  先ず"09"と"9"は等位になりますが、
  次に長さを考慮に入れているのかが不明なので、
  "09"と"9"の順位が不明になるソートですよね。
  →順序関係">"の定義が、
    >:(String,String)→String
    a,b∈String
    １  a">"b:="aの値がbより大きい"
    ２  a">"b:="aの値がbより大きい"∧"aの文字長がbより長い"
    この１、２どっちでしょ？

編集 削除
ねろ  2005-07-26 17:22:36  No: 123733  IP: [192.*.*.*]

>ガッさん
質問者さんはソートなんて言ってないような。(^^;

厳密に言うと質問者さんは「09」>「1」と言う結果を返せと言っているだけで、
比較の法則に関しては何一つ示していないのだが。。

たとえば、
Private Function Compare(ByVal s1 As String, s2 As String) As Boolean
    If Val(s1) >= Val(s2) Then
        Compare = True
    Else
        Compare = False
    End If
End Function
たとえばこんな関数を作れば、
>データの型はString型のままで比較し、かつ「09」>「1」という結果を得られるようにしたいのですが
に応えられる

編集 削除
mkt  2005-07-26 18:06:00  No: 123734  IP: [192.*.*.*]

みなさん、ありがとうございます。
今のところは数値のみ入力ですがこれが英文字が追加されるかもしれないので
それに備えて文字列というのは条件なんです。
Val変換もしくはZERO編集でやってみます。

ありがとうございました。

編集 削除
030  2005-07-26 19:01:45  No: 123735  IP: [192.*.*.*]

なんかおかしな仕様ですね。
"09"と"hoge"はどっちが大きいことになるんだろう。。。

文字というのは16進に使用される"A"〜"F"のことかな？
であればValで問題なくできるんだけど。

編集 削除
マグ  2005-07-27 08:28:33  No: 123736  IP: [192.*.*.*]

"09"の方が大きいと思います。
文字はValを通すと、0になりますから、
16進数の"1A"などでも、、文字と見なされて、0になります。

編集 削除
ガッ  2005-07-27 08:54:15  No: 123737  IP: [192.*.*.*]

val()だと確かにそうなるけど、
「長さを無視するために基底の文字で埋めた文字列」の比較なら、
・Xは基底の文字
・"09">?"hoge"⇒X+X+"09">?"hoge"
となるから、Xによっては微妙なんだよなぁ…

※いずれにせよ、これでは話にならない。

編集 削除
id_rsa+  2005-07-27 08:58:06  No: 123738  IP: [192.*.*.*]

俺もちょっとつっこむ。
>文字はValを通すと、0になりますから、
文字列の「0」〜「9」は文字列だけど、「0」にはならないので、
もうちょっと言い回しを変えた方が良いかも・・・

編集 削除
マグ  2005-07-27 14:05:06  No: 123739  IP: [192.*.*.*]

>id_rsa+さん
すみません、混乱するようなことを書いてしまいました。
文字の「0」〜「9」はValを通すと、数字の0〜9として、処理されますが、
文字の「hoge」はValを通すと、数字の判定が出来ないため、
Val関数がエラーを出す、次にエラーのため、戻り値、0を戻す。
よって、16進数の「1A」をまとめて、Val関数に送ると、
hogeと同様にエラーを出し、0を返す。
ということです。

そのまえに、ガッさんの言うとおり、
「0〜9」と「hoge」をどう考えても、if文で判断する方はいませんが・・・・・

編集 削除
通ってみた  2005-07-27 19:15:38  No: 123740  IP: [192.*.*.*]

まず根本的に「英文字が追加される」っていうシステムの仕様が意味不明な訳ですが
何を比較させたいのか・・・

編集 削除