■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#8233-0最初と終わりのテキストを飛ばすには。ふにゃ2000-03-07(火) 07:40
     #8235-0RE#8233:最初と終わりのテキストを飛ばすには。だち公2000-03-07(火) 08:04
     #8404-0RE#8235:最初と終わりのテキストを飛ばすには。ふにゃ2000-03-09(木) 23:44
     #8405-0RE#8404:最初と終わりのテキストを飛ばすには。だち公2000-03-09(木) 23:48
     #8410-0RE#8405:最初と終わりのテキストを飛ばすには。だち公2000-03-10(金) 00:12
#8233-0
最初と終わりのテキストを飛ばすには。
ちょっと質問したいのですが、textファイルを読み込むとき最初と最後の行だけ
読み飛ばすことって出来るでしょうか?

今までは最初の行の先頭に"["があったので、ifステートメントで飛ばしていましたが、
違うフォーマットも出てきてどうやればいいか悩んでいます。

何か良い案はないでしょうか?
#8235-0
RE#8233:最初と終わりのテキストを飛ばすには。
> ちょっと質問したいのですが、textファイルを読み込むとき最初と最後の行だけ
> 読み飛ばすことって出来るでしょうか?
> 
> 今までは最初の行の先頭に"["があったので、ifステートメントで飛ばしていましたが、
> 違うフォーマットも出てきてどうやればいいか悩んでいます。
> 
> 何か良い案はないでしょうか?

動的配列を用意して、一端、全部Line Input等で読み込んで
その動的配列の一番はじめ(Lbound)と一番最後(Ubound)だけを
処理しなければ良いと思います。
#8404-0
RE#8235:最初と終わりのテキストを飛ばすには。
だち公さんレスありがとうございます。
お礼が遅くなってしましました。

> 動的配列を用意して、一端、全部Line Input等で読み込んで
> その動的配列の一番はじめ(Lbound)と一番最後(Ubound)だけを
> 処理しなければ良いと思います。

一度配列に読み込まないと無理ですか?
いくつもファイルを開いたとき、メモリーを圧迫してしまいそうで出来るなら他の手段を
使いたいのです。
と言っても、1つのファイルは 500KB程度ですが。

Line Inputで先頭行と最終行を見分けるってのは無理なんでしょうか?
#8405-0
RE#8404:最初と終わりのテキストを飛ばすには。
> 一度配列に読み込まないと無理ですか?
> いくつもファイルを開いたとき、メモリーを圧迫してしまいそうで出来るなら他の手段を
> 使いたいのです。
> と言っても、1つのファイルは 500KB程度ですが。
> 
> Line Inputで先頭行と最終行を見分けるってのは無理なんでしょうか?

大丈夫です。配列をEraseすればメモリーから解放されますので
必要なくなったら解放すればいいのです。
#8410-0
RE#8405:最初と終わりのテキストを飛ばすには。
もしかしたら以下のソースで出来るかも??
データの一番最初の時に0として2番目の列以降を順に+1にして
一番最後はそのフラグから1を引いた列を処理しなければいいと思います。

例
    Dim Flg As Integer

    Flg = 0
    Do While True
        If Flg = 0 Then
            If EOF Then Exit Do
            Line Input #1, Hensu
            Line Input #1, Hensu'←最初だけ2回読み込んで最初を処理しない(正確には上書きする)
        Else
            'ここに2列目からのデータを処理する
            If EOF Then
                'ここに最後の列を省く処理を記述
                Exit Do
            End If
        End If
        Flg = Flg + 1
    Loop

たぶん、こんな感じで出来ると思います。(試していませんので分かりませんが^^;;;;;)
このページと関連する記事:
#21351-0読み出しの時間2001-06-14(木) 07:00
#2774-1CSVデータを配列に展開する1999-08-06(金) 14:10
#442-1シーケンシャルファイルでの検索2002-08-24(土) 00:48
#22459-0Foam Lord 時 ComboBox 内2001-08-16(木) 12:03
#10155-0行数字(?)の表示方法2000-08-02(水) 15:41
#17803-0テキストエディタを作るときに分からない事2001-01-15(月) 23:40
#24590-0段落を変えたPrint方法を教えて下さい2000-06-29(木) 16:45
#14742-0CSV読込み時の動的配列2001-02-27(火) 12:14
#12859-0テキストファイルの読み込みについて。2000-11-19(日) 16:53
#1399-3テキストファイルからの読み込み2001-11-12(月) 06:15
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)