特定の行だけ取り出すには・・・

解決

ミ〜 2005-05-30 02:58:27 No: 90144

（数字）
10
100.56
20
86.45←ここの行
11
125.00
21
135.00

の場合（数字）から四行目の数字を取り出して「i=86.45」ってな具合に
したいのですがどうすればいいですか？

ガッ 2005-05-30 03:12:36 No: 90145

ロジックが問題なら、
・ファイルを開いて、一行ずつ読み込む。
・四行目を読み込んだら、「i=86.45」ってな具合にする。
だけだと思うが？

ミ〜 2005-05-30 07:08:52 No: 90146

1行ずつ読み込むにはfor文を使えばいいんですか？＞ガッさん
例えば
If Val(sdata) = 数字 Then

        For i = 数字 To EOF(FileNum) Step 1  ’←こういうことってできるんですか？
        Next i

End If

３−ｔ 2005-05-30 08:59:45 No: 90147

何をどう調べたらそんな風になるのか。
結局一つ一つ調べ方が浅いというか、自分で勝手に動作を想像して
使ってるというか。
もうちょっと一つ一つの関数、ステートメントの意味をMSDNライブラリで確認
してからプログラムにするようにしましょう。
で、
>・ファイルを開いて、一行ずつ読み込む。
>・四行目を読み込んだら、「i=86.45」ってな具合にする。
をそのままプログラムに直して下さい。

ミ〜 2005-05-30 15:21:09 No: 90148

わかりましたありがとうございます＞3-ｔさん

ｍ2ｍ10 2005-05-31 00:59:15 No: 90149

DXF のファイルと思いますが。

グループの始まりから、数えて下さい。

座標の始まりを調べる、ＧＥｔ

クラゲ URL 2005-06-02 05:44:55 No: 90150

・フォーム上にボタンを一つはりつけてください。
・次のコードを貼り付け
※何も言わないけど、、、ううむ

Private Sub Command1_Click()

    Dim dData(10) As Double
    Dim i         As Integer
    Dim dKey      As Double
    Dim iKey      As Integer

    '*** データを配列変数に格納する
    dData(0) = 10
    dData(1) = 100.56
    dData(2) = 20
    dData(3) = 86.45
    dData(4) = 11
    dData(5) = 125
    dData(6) = 21
    dData(7) = 135


    '*** 取り出したい行のデータ内容を指定する場合
    dKey = 86.45
    For i = 0 To UBound(dData) - 1
        If dData(i) = dKey Then
            Call MsgBox(dData(i), vbInformation)
        End If
    Next i


    '*** 取り出したい行番号を指定する場合
    iKey = 3
    Call MsgBox(dData(iKey), vbInformation)

End Sub

ミ〜 2005-06-16 01:09:08 No: 90151

ありがとうございました

ささ 2005-06-16 01:46:38 No: 90152

>ミ〜さん
スレをただ締めるのではなく、解決報告を行ってください。

解決した場合、
どのような方法で解決に至ったかを報告。

解決しなかった場合、
何が原因で解決しなかったのかを報告。

これでは、解決したのかしなかったのか不明で気持ち悪いです。

下記でも同じことを書いてありますが、常習者ですか？

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200506/05060087.txt