くぴんのブログ

1.テキストファイルを開く。
2.1行ずつ読み込む。
3.必要なデータを変数に入れる。
4.出力フォーマットに合わせて書き出す。


〇エクセルVBAの例
点の座標とIDをdata.txtから読み込んで、距離計算してout.txtに書き出す。

Open "C:\data.txt" For Input As #1 '入力ファイル
Open "C:\out.txt" For Output As #2 '出力ファイル

Do Until EOF(1)
    Line Input #1, buf
    If InStr(buf, "aaaaa") > 0 Then
        Do
            Line Input #1, buf
            inod = inod + 1
            nid(inod) = Left(buf, 8)
            xnod(inod) = Mid(buf, 9, 16)
            ynod(inod) = Mid(buf, 25, 16)
            znod(inod) = Mid(buf, 41, 16)
        Loop
    End If
Loop

For i = 1 To inod-1
    for j=i+1 to inod
        dist=sqr((xnod(j)-xnod(i))^2+(ynod(j)-ynod(i))^2+(znod(j)-znod(i))^2)
        print #2, nid(i) & "," & nid(j) & "," & dist
    next
next
Close #1
Close #2

にほんブログ村