「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1881
現在:2


読込みファイルのデータ数について

ページOpenOffice.org FAQの登録ページ
投稿者Dyna
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2010-12-27 11:07:30 (月)
OSWindows XP
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

お世話になっております。

CSVファイルを取込む際に、読込みファイルの行数(件数)を
読込み前に取得する方法はあるのでしょうか。

VBAではOpenTextFileを使用する事で可能だと調べたのですが、
OpenOfficeBasic版は探せなくて・・・

何かよい方法がありましたらアドバイスいただけませんでしょうか。
宜しくお願いします。


行数を数える

M.Kamataki (2010-12-28 00:16:53 (火))

以下のサイトの最後の方に、テキストファイルを読み込むサンプルが紹介されています。

http://wiki.services.openoffice.org/wiki/JA/Documentation/BASIC_Guide/Files_and_Directories_%28Runtime_Library%29

Do While ループを使ってテキストドキュメントを 1 行ずつ読み出しています。CSVファイルもテキストドキュメントなので、Do While ループにカウンタを仕込んでおけば行数を数えることはできると思います。

とりあえず調べてみた結果です。他にアイデアのある方もよろしくお願いします。

無題

ike@九州 (2010-12-28 09:57:17 (火))

Windows であれば COM オブジェクトが使用できますが、定数等は指定しないといけません。

http://hanatyan.sakura.ne.jp/vbhlp/FSO10.htm

Sub Test
 ForAppending = 8
 sFilename = "E:\KEN_ALL.CSV"   
 Fso = CreateObject("Scripting.FileSystemObject")
 FsoCSV = Fso.OpenTextFile(sFilename,ForAppending)
 MsgBox format(FsoCSV.Line - 1,"#,###") & " 件"
 FsoCSV.Close
 FsoCSV = Nothing
 Fso = Nothing
End Sub

解決

Dyna (2010-12-28 14:47:30 (火))

M.Kamatakiさん、ike@九州さん

アドバイスありがとうございます。
両方とも試してみましたが、どちらもバッチリ動作しました。

お名前:
題名: