Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62084 / 76732 ←次へ | 前へ→

【19256】Re:固定長のテキストをスマートに切りだしながら取り込みたい
発言  Jaka  - 04/10/26(火) 16:54 -

引用なし
パスワード
   半角スペースのことを考えると、LIne inputでギッタンバッタンしないとダメだと思う。
こっちの方が速いや...。Pen150 64Mの時は気づかなかったけど...。
参照設定で、Microsoft Scripting Runtime のチェックが必要。

  OPFL = "開くファイルのフルパス"
  Open OPFL For Input As #1
  Do Until EOF(1)
    Line Input #1, RD
    CT = CT + 1
  Loop
  Close #1

   ↓

  Dim OPFL As String
  Dim Fso As New Scripting.FileSystemObject
  Dim TxStm As TextStream
  OPFL = "開くファイルのフルパス"
  Set TxStm = Fso.OpenTextFile(Filename:=OPFL, IOMode:=ForReading)
  Do Until TxStm.AtEndOfLine
    TxStm.SkipLine
  Loop
  CT = TxStm.Line - 1

0 hits

【19205】固定長のテキストをスマートに切りだしながら取り込みたい ackkn 04/10/25(月) 16:01 質問
【19207】Re:固定長のテキストをスマートに切りだし... Kein 04/10/25(月) 16:34 回答
【19210】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 17:19 発言
【19209】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/25(月) 17:04 回答
【19211】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 17:29 発言
【19212】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/25(月) 17:41 回答
【19214】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 19:14 質問
【19215】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 20:12 質問
【19230】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/26(火) 9:43 回答
【19233】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/26(火) 12:06 発言
【19256】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/26(火) 16:54 発言
【19282】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 12:08 質問
【19283】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/27(水) 12:37 発言
【19303】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 20:11 お礼
【19216】Re:固定長のテキストをスマートに切りだし... Hirofumi 04/10/25(月) 20:18 回答
【19223】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 22:50 発言
【19270】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 9:48 質問
【19304】Re:固定長のテキストをスマートに切りだし... Hirofumi 04/10/27(水) 20:57 回答
【19434】Re:固定長のテキストをスマートに切りだし... ackkn 04/11/2(火) 18:35 お礼

62084 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free