投稿日 | : 2005/06/18(Sat) 00:32 |
投稿者 | : しん |
URL | : |
タイトル | : 前ゼロ埋め編集 |
教えてください。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" と文字列扱いになってしまいます。
宜しくお願いします。