空文字にするには？

解決

AtoZ 2005-04-08 03:31:44 No: 89280

ＤＢのデータ変換チェックを行っています。

空文字の時に０をセットしたいのですが、下記のソースだと１文字が空の時しか０になりません。
なにかいい方法は、無いでしょうか？

関数 = IIf( strName = " ", 0, strName)

よろしくお願いします。

ガッ 2005-04-08 03:53:46 No: 89281

VB6？
…なら、LTrim$/RTrim$/Trim$()なんかどう？
で、"strName"って数値？
数値じゃなかったらなんで選択肢に0が…？
…と言ってみたり。
まぁ、別にいいんですけどねｗ；

VBCRLF 2005-04-08 04:02:49 No: 89282

>１文字が空の時
もうチョイ説明プリーズ

AtoZ 2005-04-08 05:54:58 No: 89283

言葉足らなくてすみません。
ソースは下記のものが '正'です。

Dim objData as Object

関数 = IIf(objData = "", 0, objData)

又、VB6.0ではなく、.NETです。

ガッ 2005-04-08 06:27:44 No: 89284

> ソースは下記のものが '正'です。
つまり、コレが'正しい'ということか…(解決？

> Dim objData as Object
>
> 関数 = IIf(objData = "", 0, objData)
>
> 又、VB6.0ではなく、.NETです。

再度見て思ったんだけど…
最初に、
> 空文字の時に０をセットしたいのですが、下記のソースだと１文字が空の時しか０になりません。
と書かれているんだけど、"空文字"はつまり""を意味すると思われるが、それでは疑問にならない。
もしかして、ホワイトスペースのことを言っているのかな？
それなら(色々条件があるかもしれないけど)、
.NETなら[String].Replaceで" "やTABを、" "に変換して、その文字列を[String].Trimにかければ、
両端のホワイトスペースを除去できると思われ…
というか.NETは範疇外なので、コレより良い方法があるかもしれないのであくまで「出来る」という具合だけど…

※誤爆…？

AtoZ 2005-04-08 20:46:42 No: 89285

ガッさん、VBCRLFさんありがとうございました。
下記のソースでなんとか行けました。
苦肉の策ですが・・・・・

Dim objData as Object

Dim intKeta As Integer = Len(objData) ← ホワイトスペースをカウント
関数 = IIf(objData = Space(intKeta), 0, objData)

LESIA 2005-04-08 20:52:08 No: 89286

オブジェクトが何故文字列と等しくなるのかが、疑問だけど
解決したのならいいか(^^;