| 投稿日 | ： 2006/11/22(Wed) 18:54 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テキストにファイルを読み込んだ時の表示の設定 |
> もう一つの質問の↓
> 例)111.11 少数点があった場合、小数点の位置を整えて並べる。
> 10.11
> -1.1
> というのはやり方すらさっぱりなもので、その点もどなたか教えていただけませんでしょうか？
> お願いいたします。
「やり方すらさっぱりなもので」と言う事は私が書いた先ほどの投稿の
「ＨＥＬＰ」の「Format関数」の参照はしない（していない）と言うことですね。
そう言う態度ではプログラミングの進歩は遅いですよ。
まあ、乗りかかった船でもあるのでもう少しつきあいますか．．．．．
下記のフォントはＭＳ ゴシックで試して下さい。
ＭＳ Ｐゴシックの様にＰがあるフォントでは小数点の位置のずれの有無の
確認が困難です。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = 10.11
b = -1.1
Label1.Caption = "$ " & Format(a, "###.##") & " $"
Label2.Caption = "$ " & Format(b, "###.##") & " $"
End Sub
他の方法としては数値を Cstr などで文字列に変換してから
小数点の左右に分割して ( Split ) 左右をそれぞれ同じ桁数にする。
例 1234.567
hidari : 1234
migi : 567
小数点の左側は hidari_gawa = Left$t(space(5) & hidari,5)
小数点の右側は migi_gawa = Right$(migi & space(5) ,5)
hidari_gawa & "." & migi_gawa
_1234.567__ ' 説明の為に _ は半角空白を表す