行の読み込みについて

ミー 2005-05-27 15:42:24 No: 90101

行を読み込むので
春
夏
秋
冬
とあった場合夏を参照したら
夏
秋
冬
といったような夏以下を表示させたいのですが
KMid$()とfilter（）を使えばいいのでしょうか？

ガッ 2005-05-27 16:18:11 No: 90102

ノ＜Filter()を始めて知りました…情報thx!(ぇ

で、
> 夏
> 秋
> 冬
> といったような夏以下を表示させたい
「表示させる」だけならば、配列を新たに作ったりする必要はないのでは？
・配列を部分的に表示させるループをつくり、
「夏」が出た段階で表示を開始する。
で十分な気がします…

ち 2005-06-01 00:08:08 No: 90103

入力元と出力先がわかりませんが、
フラグをたててみては如何でしょうか？

以下ファイルからの入力でテキストボックスに出力させる定で書き込みます。
Text1はMultiLine = Trueです。
勘違いの回答でしたらすみません。

Private Sub Form_Load()
    Dim FileNum     As Integer
    Dim strPath     As String
    Dim strLine     As String
    Dim strText     As String
    Dim strSearch   As String
    Dim flgHit      As Boolean


    strSearch = "夏"
    strPath = App.Path & "\Load.txt"

    FileNum = FreeFile
    Open strPath For Input As #FileNum
    Do Until EOF(FileNum)
        Line Input #FileNum, strLine
        If strLine = strSearch Then
            flgHit = True
        End If
        If flgHit = True Then
            strText = strText & strLine & vbCrLf
        End If
    Loop
    Close #FileNum

    Text1 = strText

End Sub

ちぃず 2005-06-01 00:08:48 No: 90104

名前がちになってました。。
ちぃずです。
訂正します。

クラゲ URL 2005-06-02 05:33:16 No: 90105

重複キーが出てきたら、取得しています。
こんなの、3分じゃんか w

・フォームにボタンとリストボックスを貼り付けます。
・下記のコードを貼り付けます。
Private Sub Command1_Click()

    Dim iFileNo As Integer
    Dim sTmp    As String
    Dim sKey    As String

    sKey = "夏"
    iFileNo = FreeFile

    Open "C:\季節.txt" For Input As iFileNo
    Do Until EOF(iFileNo)
        Line Input #iFileNo, sTmp

        '*** キー発見
        If sTmp = sKey Or sKey = "" Then
           sKey = ""
           List1.AddItem sTmp
        End If

    Loop

    Close iFileNo

End Sub