文字列の計算について
お世話になります。田中と申します。
また、教えていただきたいことがあり、書き込みました。
VB.NETの勉強をしております。
あるコードがあるんですが、そのコードに100を足した値を求めたいのです。
たとえば、
0001だと100を足して0101
01だと101
といった具合です。
しかし、普通にコードの入った文字列に100を足したら0101などの場合、101となってしまいます。
桁数が決まっていればFormat関数などで０詰めすればよいのですが、決まっていません。
期待通りに値を取得する方法はありますでしょうか？
私はまだＶＢ６なので考え方として
１．足す前（０００１）の桁数を変数にいれておく。 例 ketasu_1
２．足す方（０１０１）の桁数を変数にいれておく。 例 ketasu_2
３．計算をする。 kotae , 計算結果の桁数を ketasu_3 にセット。
４．ketasu_1 と ketasu_2 を比較して大きい方を ketasu とする。
５．kotae の桁数が ketasu に満たない時には左側に０を加える。
加える数は ketasu - ketasu_3
私もＶＢ６ですが
１．桁数を取得
２．もとの値を数値化して１００加える
３．ｆｏｒｍａｔ関数とＳｔｒｉｎｇ関数を組み合わせて桁数調整する
format(100足した変数, １で取得した分の０）って感じの考え方ですが
．Ｎｅｔでも通用するかな？
format(100足した変数, String(１で取得した桁数,"0"）)
桁数を取得するところをLengthかLenを使ってみてはどうでしょうか？
自分もVB6.0ですが・・・桁合わせの部分だけ妄想でやってみた
Dim suutiA As String 'ひとつめの数値代入用
Dim suutiB As String 'ふたつめの 〃
Dim sa As Long 'AとBの文字数差保存用
Dim i As Long 'ループ用
If Len(suutiA) > Len(suutiB) Then
sa = Len(suutiA) - Len(suutiB)
For i = 1 to sa
suutiB = suutiB + "0"
Next
End If
If Len(suutiA) < Len(suutiB) Then
sa = Len(suutiB) - Len(suutiA)
For i = 1 to sa
suutiA = suutiA + "0"
Next
End If
なんかアホみたいなプログラムだけども
Private mconFixVal As Long = 100 '固定加算値
以下プロシージャの中身
Dim strCode As String 'コード
Dim lngLenA As Long '文字列長１
Dim lngLenB As Long '文字列長２
Dim lngDigit As Long '桁
Dim lngResult As Long '足した結果
Dim strResult As String '最終的にほしい文字列
'桁数を取得
lngLenA = Len(strCode)
lngLenB = Len(mconFixVal)
'桁数の大きい方を取得
If lngLenA >= lngLenB Then
lngDigit = lngLenA
Else
lngDigit = lngLenB
End If
'コードを数値化して100加える
lngResult = Val(strCode) + mconFixVal
'足した結果を桁数０埋めで結果文字列に設定する
strResult = Format(lngResult, String(lngDigit ,"0"))
.Ｎｅｔにも応用は利くはず・・？？
VB.NETで書くと
Dim s1 As String = "0100"
Dim s2 As String = "101"
Dim t As Integer
If s1.Length >= s2.Length Then t = s1.Length Else t = s2.Length
Dim s3 As String = Format(CInt(s1) + CInt(s2), "".PadLeft(t, "0"c))
と書けるのだが、どう見ても良いコードではないな。。。。
ま、参考に。
.NET Framework 的には。(お得意なパターンで、空気嫁ない私が登場)
Dim s1 As String = "0100"
Dim s2 As String = "101"
Dim iLength As Integer
If s1.Length >= s2.Length Then
iLength = s1.Length
Else
iLength = s2.Length
End If
Dim iResult As Integer = Int32.Parse(s1) + Int32.Parse(s2)
Dim sResult As String = String.Format("{0:D" & iLength.ToString() & "}", iResult)
MessageBox.Show(sResult)
で、面倒だし、Int32.Parse() をいきなり実行するのは危険なのでメソッド化しましょう。
Public Shared Function GetFixedValueString(ByVal s1 As String, ByVal s2 As String) As String
'/ TODO : 上の s1. s2 の宣言部を除いたコードを挿入汁
'/ TODO : Int32.Parse の前に自作の IsNumeric を入れて安全にしとｋ
End Function
皆さんの投稿を見て思ったのは、
String.Format() メソッドの書式指定をご存知ない方が多そうだな...
ということです。
こっちの記事、複合書式とか色々広げておくようにします。
http://jeanne.wankuma.com/tips/string/12-format.html
>String.Format() メソッドの書式指定をご存知ない方が多そうだな...
他のかたがたはVB6なので私のことでしょうか。
私が使ったのは、String.Format() メソッドではなくVisual Basic のFormat 関数で。。
String.Format() メソッドはここに懇切丁寧な説明があり一応知ってはいるのですが、
http://www.atmarkit.co.jp/fdotnet/dotnettips/116formatint/formatint.html
文字列で埋め込むのが面倒なのでつい簡単に、と言うことで自分でも良いコードでは
無いと書きましたが、作ってしまったので思わず投稿してしまいました。（激しく反省）
じゃんぬねっとさんのコードを参考にされ、私のコードは忘れてください。
> 他のかたがたはVB6なので私のことでしょうか。
あ、そうですね... VB6 と謳って投稿してますね...
失礼しました。(*_ _)
> 私が使ったのは、String.Format() メソッドではなくVisual Basic のFormat 関数で。。
あ、こちらに関しては判っておりました。
単に、Format と書いてありますから...
だからこそ、String.Format メソッドって知られていないのかな? と思ったのです。
業務でも、Microsoft.VisualBasic.Format なる記述ばかり目にするもので...
> 文字列で埋め込むのが面倒なのでつい簡単に
PadLeft メソッドで埋め込んだ方が面倒だと思いました...
そういう意味ではないですか?
# それにしても、合わせる桁数が決まってないなんて良いんですかね...
# DB 利用してるならば、テーブル設計とかあるでしょうし...
徹夜明けだったので、失礼な物言いみたいになって申し訳ありませんでした... (*_ _)
>だからこそ、String.Format メソッドって知られていないのかな? と思ったのです。
MSDNでFormatを検索すると真っ先にString.Format が目に飛び込んでくるので。。
>PadLeft メソッドで埋め込んだ方が面倒だと思いました...
投稿の流れで、前の葉月αさんのコードを何も考えずに直しただけで。
># それにしても、合わせる桁数が決まってないなんて良いんですかね...
仕様なんでしょう。(^^;
| ツイート |  |