Unicodeファイルの行数を取得するには？

解決

---

はじめまして、リーと申します。

Unicodeファイルの行数を取得しようとしてるのですが、
Asciiファイルの場合は、
lngMaxLine = objFso.OpenTextFile("test.txt", ForAppending).Line
で取得することができます。
Unicodeファイルの場合、この方法ですと正確な行数を取得することができません。

どなたかご存知の方いらっしゃいませんか？
よろしくお願い致します。

編集 削除

---

OpenTextFileのformat引数を調べてみてください。

MSDN
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsmthopentextfile.asp

編集 削除

---

返信ありがとうございます。

ご指摘通り、Unicodeファイル用に下記のように引数を指定しますと、、
lngMaxLine = objFso.OpenTextFile("test.txt", ForAppending, False, TristateTrue).Line
行数に関係なく、lngMaxLine = 1 が返ってきます。

編集 削除

---

Lineプロパティの仕様がようわからんですね。

MSDN
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsproline.asp
には、TextStream ファイル内での現在の行番号を返します
とあるので、ForAppendingでひらけば、最終行に位置になっていると思っていたのですがね。

With objFso.OpenTextfile("test.txt", ForWriting, True, TristateTrue)
    .Writeline "ABC"
    .Writeline "EFG"
    .Close
End With

With objFso.OpenTextfile("test.txt", ForAppending, False, TristateTrue)
    Debug.Print .Line
    .Writeline "HIJ"
    Debug.Print .Line
    .Close
End With

を試してみたのですが、TristateFlaseの場合と結果違いますね。
わからねぇ。。。

編集 削除

---

Blueさん返信ありがとうございます。

いろいろ調べたのですが、よくわからないので、
ファイルを一行ずつ読んでカウントすることにしました。

試していただいてありがとうございます。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。