小数点以下に０が来た場合のフォーマット

Question

いつもお世話になっております。

vb.netで文字列のフォーマットに悩んでいます。
数字が入力され、ボタンを押した時、小数点以下に0が続いていた場合その0を省いて表示したいのです。

例
2.00000→2
111.0111→111.0111
3.666000→3.666

電卓を作っているので演算子を押したときに履歴に処理された数字が入るようにしたいです。
一部ですが基本的には下のようにコードを組んでいます。

'結果エリアの数字と入力された演算子を履歴エリアに追加
			lblRecord.Text = lblAns.Text + strOpe
			m_strOldtxt = lblAns.Text

			'演算子が連続で入力されていたら
		ElseIf m_strSansyo = "+" OrElse m_strSansyo = "-" OrElse m_strSansyo = "*" OrElse m_strSansyo = "/" Then

			'末尾の演算子を削除して入力された演算子を追加する
			lblRecord.Text = lblRecord.Text.Remove(lblRecord.Text.Length - 1, 1)
			lblRecord.Text += m_strOperator

Answer 1

正規表現を使用した方法です。
1行目は、変数strcutの小数点以降の数字より、末尾の0（複数OK）を除いたものに置き換えます。
2行目は、上記処理で末尾に小数点が残った場合、それを取り除きます。
（2行目は正規表現でのコードを書きましたが、末尾が小数点だったら、それを取り除く、という方法でもOKです。）

        strcut = System.Text.RegularExpressions.Regex.Replace(strcut, "(.[1-9]*)0+$", "$1")
        strcut = System.Text.RegularExpressions.Regex.Replace(strcut, ".$", "")

Answer 2

末尾から数字にぶつかるまでの文字数を検索し、その分を削除することで解決しました。

Friend Sub Check_Cat(ByRef strcut As String)

		Dim Intindex As Integer															'どこからカットするかのチェック用
		Dim chrNumFound As Char() = {"1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c}			'検索文字

		'どこまでカットするか検索（数字に当たるまで）
		Intindex = strcut.LastIndexOfAny(chrNumFound)
		'末尾から数字までカット
		strcut = strcut.Remove(Intindex + 1)


	End Sub

Comments

[kenshirou]

これだと、strcut = 100の場合、結果が1になってしまいます。