VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/03/24(Mon) 11:11 |
| 投稿者 | ： Turbo |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ありがとうございます。追加の質問２ですが。 |
ありがとうございます。
ご指摘いただいた本ホームページの項目を拝見しまして、両質問とも解決しました。
大変、助かりました。
実は、もうひとつだけ問題があります。
読み込むテキストファイルに下記のような記述部分があり、同部分を以下のコードで読み込む
ようにしてました。
'=== 読み込むテキストファイルの問題の記述部分 ===
'５桁ごとに５つずつ記述されています。実際はこんなにきれいな並びではありません。
'各数値は５桁になることはありません。→スペース区切りになっている。
101 102 103 104 105
…
9001 9002 9003 9004 9005
'=== 上記部分を読み込むコーディング ===
Dim IntBuffer As Integer '整数値の一時取込み変数
For i = 1 To NumNcp
Input #File_No, IntBuffer 'テキストファイルでは"5i5"で記述されている
NodCp(i) = IntBuffer 'NodCP()に格納
上記コーディング部ををFileSystemObjectを使って再現する場合は、ReadLineを使って
行全体を読込んだ後に、Mid関数等を用いてNodCpに格納するしか方法はないでしょうか？
以上の件、よろしくご教示いただけないでしょうか。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）