文字列の読み込み

[よしき]

あけましておめでとうございます。


テキストファイルから文字列を読み込んで実数にしたいと思っているのですが

コード: 全て選択

Dim Goodtime As long
Dim Goodtimest As String

Open "test.txt" As #1
Input #1,Goodtimest
Goodtime=Val(Goodtimest)
Close #1

としてdebugするとtest.txtの中身は"25"なのにGoodtimestには"・・2"というのがはいってしまっていてうまく読み込めないんですが、どこが悪いんでしょうか。
新年早々申し訳ありませんがよろしくお願いします。m(_ _)m

[konisi]

こちらではAB413,AB423では再現できませんでした。
バージョンを書いてください。

又、textファイルのエンコードがUTF-8とかになってたりするとバイナリ単位で違う値になってしまうので、うまく読み込めない事があると思います。

[よしき]

4.24です。
textもメモ帳で普通に半角で打ち込んだだけなのですが・・・。　

[C1000]

> textもメモ帳で普通に半角で打ち込んだだけなのですが・・・。　

文字コードは保存するときに決まるようなので、確認してみてください

[よしき]

文字コードをUnicodeからANSIに変えたところ、ふつうに読み込むことができました。Webページ以外では文字コードを意識せずやってきたので反省しました。

新年早々ありがとうございました。