VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

前０が消える…、そんなはずはないです。　数字でセットせず、文字列としてセットしましょう。

Private Sub Form_Load()
    MSFlexGrid1.TextMatrix(1, 1) = "00057"
End Sub

> 前０が消える…、そんなはずはないです。　数字でセットせず、文字列としてセットしましょう。
> 
> Private Sub Form_Load()
>     MSFlexGrid1.TextMatrix(1, 1) = "00057"
> End Sub
 このように文字列で表示させていますが・・・
MSFlexGrid1.Col = 2
          MSFlexGrid1.Text = Format(Data(i).no, "#####")
でませんよ。

>  このように文字列で表示させていますが・・・
>           MSFlexGrid1.Text = Format(Data(i).no, "#####")
> でませんよ。

それ以前に、
   Format(Data(i).no, "#####")
というのが、そもそも前ゼロ処理になっていないと思いますよ。

# というか、むしろ前ゼロを取り去る構文になってるし。(^_^;)

> >  このように文字列で表示させていますが・・・
> >           MSFlexGrid1.Text = Format(Data(i).no, "#####")
> > でませんよ。
> 
> それ以前に、
>    Format(Data(i).no, "#####")
> というのが、そもそも前ゼロ処理になっていないと思いますよ。
> 
> # というか、むしろ前ゼロを取り去る構文になってるし。(^_^;)
 なんどもすみません。前の文は前ゼロ処理になってるということなんでしょうか？？？？
どのように書けばいいのでしょうか？？
＃＃＃＃を消したら表示できませんでした（TT)
ご指導おねがいします

> >  このように文字列で表示させていますが・・・
> >           MSFlexGrid1.Text = Format(Data(i).no, "#####")
> > でませんよ。
> 
> それ以前に、
>    Format(Data(i).no, "#####")
> というのが、そもそも前ゼロ処理になっていないと思いますよ。
> 
> # というか、むしろ前ゼロを取り去る構文になってるし。(^_^;)
 なんどもすみません。前の文は前ゼロ処理になってるということなんでしょうか？？？？
どのように書けばいいのでしょうか？？
＃＃＃＃を消したら表示できませんでした（TT)
ご指導おねがいします

> ＃＃＃＃を消したら表示できませんでした（TT)

以下を確認してみてください。

L = 345
MsgBox "[" & L & "]"    
MsgBox "[" & Format(L, "#####") & "]"
MsgBox "[" & Format(L, "00000") & "]"
MsgBox "[" & Format(L, "@@@@@") & "]"

S = "00345"
MsgBox "[" & S & "]"    
MsgBox "[" & Format(S, "#####") & "]"
MsgBox "[" & Format(S, "00000") & "]"
MsgBox "[" & Format(S, "@@@@@") & "]"

> > ＃＃＃＃を消したら表示できませんでした（TT)
> 
> 以下を確認してみてください。
> 
> L = 345
> MsgBox "[" & L & "]"    
> MsgBox "[" & Format(L, "#####") & "]"
> MsgBox "[" & Format(L, "00000") & "]"
> MsgBox "[" & Format(L, "@@@@@") & "]"
> 何度もすみません、データは可変長なのでこれはだめでした
ノートパッドに書いてある00057というデータをINPUTでもってきて
表示させたいのですが57としか表示されません。
最初に詳しく書いておけばよかったです（＾＾；)
方法ありますか？あったら教えてください
> S = "00345"
> MsgBox "[" & S & "]"    
> MsgBox "[" & Format(S, "#####") & "]"
> MsgBox "[" & Format(S, "00000") & "]"
> MsgBox "[" & Format(S, "@@@@@") & "]"

> > > ＃＃＃＃を消したら表示できませんでした（TT)
> > 
> > 以下を確認してみてください。
> > 
> > L = 345
> > MsgBox "[" & L & "]"    
> > MsgBox "[" & Format(L, "#####") & "]"
> > MsgBox "[" & Format(L, "00000") & "]"
> > MsgBox "[" & Format(L, "@@@@@") & "]"

> > S = "00345"
> > MsgBox "[" & S & "]"    
> > MsgBox "[" & Format(S, "#####") & "]"
> > MsgBox "[" & Format(S, "00000") & "]"
> > MsgBox "[" & Format(S, "@@@@@") & "]"
何度もすみません、データは可変長なのでこれはだめでした
ノートパッドに書いてある00057というデータをINPUTでもってきて
表示させたいのですが57としか表示されません。
最初に詳しく書いておけばよかったです（＾＾；)
方法ありますか？あったら教えてください

重複投稿は迷惑になるので、返答の付いていない不要な投稿は、
このページの一番下のボタンで削除しておいてください。

> 何度もすみません、データは可変長なのでこれはだめでした
おっしゃる意味がわかりません。(;_;)
可変長かどうかは関係ないと思いますが。

> ノートパッドに書いてある00057というデータをINPUTでもってきて
ノートパッド？ notepad.exeの事ですか？

テキストファイルからの読み込みならともかく、
メモ帳に書かれたデータを直接読み込める程の技量があるなら、
Ｑ＆Ａ掲示板で質問した方がよいと思いますが…。

> 表示させたいのですが57としか表示されません。
> 最初に詳しく書いておけばよかったです（＾＾；)
そう思ったのなら、何故詳しく書かないのですか？ (--;

具体的にどういうデータを、どういう変数に、どういうコードで読み込んで、
それをどうやってMSFlexGridに表示させているのかわからないので、
先ほどから、質問と回答がすれ違ってばかりいるのですよ。

> 方法ありますか？あったら教えてください
数値を前ゼロ埋めしたい、という事なら、#18422の回答を、
ヘルプと付き合わせながら実験すれば、わかると思います。(^^;)

前ゼロの文字列データが、(グリッドに表示する時ではなく)データ取得時に
前ゼロが取れてしまうと言うのなら、それはあなたのプログラムのバグです。

INPUT で…、と言う事は、ファイル上は 00057 になっているわけですね。

という事は、Input # で読みこむ変数が、整数型になっているのでしょう。　元の文字列をそのまま
表示したいなら、変数は String 型にしましょう。