UNIXで作成したTextファイルを読み込むには (ID:74317)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 改行コード判別の方法とUnixデータ読み込みは以下のようにして解決しました。 Open file1 for Input As #10 '改行コード判別のためにファイルオープン linesfromfile = Input(127, #10) due1 = Mid(linesfromfile, 126, 1) due2 = Mid(linesfromfile, 126, 2) If due2 = vbCrLf Then 'Windouws checkcr = 1 'Debug.Print Else If due1 = vbCr Then checkcr = 2 End If If due1 = vbLf Then 'Unix checkcr = 3 End If close #10 ' Open file1 for Input As #10 If checkcr = 1 Then 'Windowsの場合 For i = 1 To endnumber Input #10, time(i), m(i), xcen(i), ycen(i), z1(i), tx(i), ty(i), tt(i), pp(i), zz2(i), zz3(i) Next i Else 'Unixの場合(あるいは、改行コードがvbCr,vbLf) For i = 1 To endnumber linesfromfile = Input(126, #10) time(i) = Mid(linesfromfile, 1, 10) m(i) = Mid(linesfromfile, 12, 5) xcen(i) = Mid(linesfromfile, 18, 10) ycen(i) = Mid(linesfromfile, 30, 10) z1(i) = Mid(linesfromfile, 42, 12) tx(i) = Mid(linesfromfile, 54, 12) ty(i) = Mid(linesfromfile, 66, 12) tt(i) = Mid(linesfromfile, 78, 12) pp(i) = Mid(linesfromfile, 90, 12) z2(i) = Mid(linesfromfile, 102, 12) z3(i) = Mid(linesfromfile, 114, 12) Next i endif