[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/06/18(Sat) 00:32
投稿者名：しん
ＵＲＬ　：
タイトル：前ゼロ埋め編集
教えてください。WRITE命令でTXTファイルに前ゼロ埋めをして書き込みたいのですが、
なかなかうまい方法が見つかりません。
以下のようにプログラムを組みました。

A = 5000
A = Val(Format(A, "00000"))
Open "C:\TEST.TXT" For Append As #1
      Write #1, A          
Close #1

希望する結果 05000 ← 数値扱い　　
実際の結果   5000

また、プログラムの2行目を
A = Format(A, "00000")
に変更して実行してみると結果は "050000" と文字列扱いになってしまいます。
宜しくお願いします。

投稿時間：2005/06/18(Sat) 01:52
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: 前ゼロ埋め編集
> A = 5000
変数 A のデータ型は何ですか?

> A = Val(Format(A, "00000"))
数値を、Format関数で文字列化したものを、
Valで再度数値化したら、何の意味もありませんよね。

> に変更して実行してみると結果は "050000" と文字列扱いになってしまいます。
Write #ステートメントではなく、Print #ステートメントを使いましょう。

投稿時間：2005/06/18(Sat) 13:22
投稿者名：いな
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 前ゼロ埋め編集
なにをお願いされたか全く分からないのですが
前ゼロがついた値は、
そもそも、0〜9迄の数字からなる文字列型の数値で、
質問者が希望しているとおり最初から数値です！

投稿時間：2005/06/18(Sat) 14:03
投稿者名：しん
ＵＲＬ　：
タイトル：Re^2: 前ゼロ埋め編集
ありがとうございました。printを使ったら希望どうりうまくいきました。

投稿時間：2005/06/20(Mon) 09:34
投稿者名：じゃんぬねっと
Ｅメール：
ＵＲＬ　：http://jeanne.wankuma.com/
タイトル：Re^3: 前ゼロ埋め編集
> ありがとうございました。printを使ったら希望どうりうまくいきました。

亀レスながら、手動ならこんな感じ。
hhttp://jeanne.wankuma.com/tips/string/11-pad.html