数値＋演算子＋数値を計算したい！

Question

数値１＋演算子＋数値２を計算させたいのですが、１　＋　１　のような計算を格納するにはどうしたらいいですか？


数値１　Decimal
数値２　Decimal
演算子　String
結果　　Decimal

Decimal = Decimal + String + Decimal　だとエラーが出ます。当たり前ですけど・・・

Wizard_Zero · Accepted Answer

> Eval関数を使って、文字列を渡すと自動計算して結果も何もかもStringで扱いたいと思っています。
> Stringは20億桁ほど扱えるんですよね・・・Decimalより扱える桁が多そうな気がして・・・素人考えですみません。

20億桁を記憶することが出来ても、それで計算することは出来ません。プログラムどうこうというより、コンピュータの構造上不可能です。

DecimalやIntegerなどが扱うのは「数値」、
String型が扱うのは「数字」です。

「数値」は計算することはできますが「数字」は計算できません。

数値とは
12345 が １万２千３百４十５ という分量です。
一方、数字とは
12345 が「いち」「に」「さん」「よん」「ご」という文字の羅列であり、「数値」を表すための「文字」を並べたものにすぎません。

計算を全てString型でやるということは、不可能ではありませんが非常に効率が低下します。（個人的にはDecimalもNGなんですけども)


あと、Option StrictはOnにしたほうがいいです。今回のケースであれば、Offにする必要はありません。

参照設定でMicrosoft Script Control 1.0が見つからなかったのは、
「COM」タブから探していないからでしょう。
「参照の追加」を開くと[.NET][COM][プロジェクト]・・・とあるはずなので、[COM]を選択し、「Microsoft Script Control 1.0」を探して追加してください。
さらに、コードの次の部分を書き換えます。

[ ScriptControlクラスの作成箇所 ]
Dim js As Object
js = CreateObject("ScriptControl")
　　↓
Dim js As New MSScriptControl.ScriptControl

[ Eval関数の呼び出し箇所 ]
Total = js.Eval(Work) '遅延バインディングを使用できません
　　↓
Total = js.Eval(Work).ToString()

これで遅延バインディング及び暗黙的型変換は発生しなくなるはずです。

mitoneko · Answer

＞質問３．
＞DecimalがNGの理由を教えてください。できるだけ簡単に・・・

　まず最初に、ｍｓｄｎから、decimal型の説明を載せておきますね。
http://msdn.microsoft.com/ja-jp/library/xtba3z33(VS.80).aspx

　ここに書いてある、「すべての数値型の中で最もパフォーマンスの低いデータ型です。」というのが、おそらく総ての理由です。
　この型の本当の存在意義を知るためには、そもそも、２進数と１０進数での演算時の誤差に関する知識が必要です。
　単純化して簡単に言うと、１０進ではちゃんと割り切れる計算式でも２進数で計算すると割りきれない、又は、その逆のパターンが数多く存在します。そのため、２進数で計算する時と１０進数で計算する時では、誤差の出方が変わります。
　普通ならば、こんな誤差は、気になりません。でも、気になる人もいます。たとえ、２０桁の莫大な大きさの数値でも、単位が円や＄なら、ピタ１たりとも計算値は狂ってはいけないですよね。銀行業務で、「１円くらいだから別にいいよね。金庫にはうん千億のお金あるし・・・」なんて言ったら即クビです（笑）
　こういう時のために、decimal型と言うのは存在します。

　普通、コンピュータで計算する時には、２進数で総ての演算を行います。コンピュータは、ご存じの通り２進数で総ての処理を行いますから、計算も２進数でやるのが一番効率がいいんです。もちろん、数値の保管も２進数で行います。それが一番効率がよいですから。入力の数値を２進数に変換し、総ての処理を２進数で行い、最後に表示する時に、もう一度１０進数に戻しているわけです。
　でも、２進数と１０進数での計算結果が違うことが困ると言われたら、１０進で計算せざるをえません。decimal型での演算は基本的に１０進で行います。数値の格納も１０進で行います。コンピュータに無理を言って１０進で演算させるわけですから、もちろん効率はだだ落ちです。でも、計算を総て１０進で行うので、紙と鉛筆で計算した時と結果はぴったり同じになります。（ものすごく、話を単純化しています。実際の処理も理論もかなり複雑です。）
　これが、冒頭の「すべての数値型の中で最もパフォーマンスの低いデータ型です。」につながります。
　たいていの参考書や、ソフトでdoubleで計算するのは、このためです。というより、必要がなければ、decimalは使わない物と思っても良いです。

　誤解を招きかねない表現が少々ありますが、出来るだけ簡単に言うとこんな感じです。

Wizard_Zero · Answer

> COMの使い方がわかりません。
> プロジェクト設定で参照を追加できましたが、コードのインポートの仕方がわかりません。

COMも.NETのクラスとほぼ同じように扱うことが出来ます。

> プロジェクト設定で参照を追加すると、Importsを書かなくても実行できます。
> 'Imports Microsoft.JScript　とコメントアウトさせてます。
> これは問題ですか？

問題ありません。
Importsは、名前空間の指定を省略するためのものにすぎません。

> 質問１．
> 参照を追加するとインポート文は不要ですか？

絶対必要なものではありません。上記にあるとおり、名前空間の指定を省略するためのものです。

名前空間の省略、とは例えば
Dim AAA As System.String
と書かなければならないところを、Imports Systemとすることで
Dim AAA As String
と省略することができます。
※「System」をはじめいくつかの名前空間は既定でImports状態になっています。


> 質問２．
> ライブラリの検索方法を教えてください。

.NET Framework標準及びVisual Studio以外のライブラリやCOMクラスに関してはMSDNに掲載されていないものがほとんどです。
名前空間やクラス名などは、参照設定で追加したあとに「表示」メニューにある「オブジェクトブラウザ」を使えば調べることが出来ます。

tom11 · Answer

こんにちは、

NET以降だと、Eval関数について、以下の様なページを見つけました。

参考までに

http://dobon.net/vb/dotnet/programing/eval.html

tom11 · Answer

追伸です。

お礼のプログラムよく見ないで、返事をしましたが。
このプログラム、なんか、変じゃない？？

関係のないところは、省略したのですか？？

私の勘違いかな？？

tom11 · Answer

追伸、

こちらは、

Microsoft Visual Basic 2008

で、書いています。

そちらも環境を書くようにしましょう。

tom11 · Answer

こんばんは、
もしなければ、ないで、流石にエクセルは、もっているでしょうから。
エクセルの方を使った場合を、載せておきます。


        Dim app As Object

        app = CreateObject("Excel.Application")

        Dim s As String

        s = "1+1+1+2-1*3"

        Debug.WriteLine(app.Evaluate(s))

        app.Quit()

        System.Runtime.InteropServices.Marshal.FinalReleaseComObject(app)

        app = Nothing

計算結果　2

tom11 · Answer

こんにちは、環境がわからないのですが。

参照設定で、

Microsoft Script Control 1.0

は、存在しますか？？

なかったら、エクセルのEvaluate()を使うのも一つの手です。

tom11 · Answer

こんにちは、VBなのか、VBAなのか、よく解りませんが。
どちらでも、以下のコードは、実行できますよ。
ただし、たぶん、十進計算では、ないです。


        Dim js As Object

        js = CreateObject("ScriptControl")
        js.Language = "JScript"

        Dim s As String
        Dim data As Integer

        data = 10

        s = "2 + 1 + 1" & "+" & data

        Debug.Print(js.Eval(s))


計算結果　14

VBAなら、Evalに変わる、関数があるみたいです。

Wizard_Zero · Answer

すでに的確な回答が出ていますので、少し違う視点からアドバイスを。

２つの値(Value1とValue2)を加算した結果(Answer)を得るには
Dim Value1 As Decimal = 1
Dim Value2 As Decimal = 1
Dim Answer As Decimal
Answer = Value1 + Value2
とすればよい、というのは分かると思います。

次のステップとして、演算子「+」を文字列で指定することで、演算子を動的に変化させ、減算・乗算・除算などを行えるようにしたいのだと受け取りました。

しかし、文字列を演算子として扱うことはおっしゃるとおり出来ません。
ではどうするか。
「演算子の文字列」に代入されるであろう演算記号全てのケースに対し、分岐処理を作っておけばよいのです。すなわち
・文字列が「+」だったら加算する
・文字列が「-」だったら減算する
・文字列が「*」だったら乗算する
・文字列が「/」だったら除算する
と、このように演算子文字列にあわせて想定されるパターンをプログラミングします。

Dim Value1 As Decimal = 1
Dim Value2 As Decimal = 1
Dim Operate As String = "+"  ' 演算子を示す文字列 
Dim Answer As Decimal

' 文字列が「+」だったら加算する
If Operate = "+" Then
Answer = Value1 + Value2
End If

' 文字列が「-」だったら減算する
If Operate = "-" Then
Answer = Value1 - Value2
End If

' 文字列が「*」だったら乗算する
If ・・・・

この先はご自分で考えてみてください。


※提示したコードは、あくまで考え方を理解しやすいように書いています。実際には分岐処理をSelect Caseにし、演算子文字列が + - * / 以外の場合にどう対処するか、という点も考慮する必要があります。

数値＋演算子＋数値を計算したい！

> Eval関数を使って、文字列を渡すと自動計算して結果も何もかもStringで扱いたいと思っています。

＞質問３．

> COMの使い方がわかりません。

こんにちは、

追伸です。

この回答への補足

追伸、

こんばんは、

こんにちは、環境がわからないのですが。

こんにちは、VBなのか、VBAなのか、よく解りませんが。

すでに的確な回答が出ていますので、少し違う視点からアドバイスを。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング