VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/08/09(Tue) 07:11
投稿者： まさ
ＵＲＬ：
タイトル： 解決しました。あともう１点・・・

ありがとうございました、エラー表示の件は無事解決しました。
本当に毎回助けていただいて大感謝です。
そしてまた、１つ教えていただきたいことが・・・。
テキストファイルの中にあるデータ(0000000110000000/前８桁→ＩＤ、後８桁→売り上げ)が全角ではな
く半角であること、そしてそれが０から９までの数字であることを確認してから表示をしたいのです
が。ご教授よろしくお願いします。

Option Explicit

Public ArrayMoney(12) As Long
Public ArrayID(12) As Long
Public num As Integer
Public num2 As Integer
Public Money As Long
Public ID As Long
Public SMoney As Long
Public SID As Long


Private Sub Read_Click() '---テキストデータを読み込む

    On Error GoTo ErrHandler '---エラーを表示する


    Dim FName As String   '---ファイル名を格納する変数
    Dim Out As String '---ファイルデータを一時格納する変数

    List1.Clear
    Sale.Text = ""
    LClear

    FName = File.Text
    num = 0
    num2 = 0

    Open FName For Input As #1  '---ファイル名を指定して、Inputで＃１のファイルを開く
        Do Until EOF(1)             '---ファイルの末になるまで繰り返す
            Line Input #1, Out      '---１行分読み込んで格納する
            ID = Left(Out, 8)      '店舗コードの習得
            Money = Right(Out, 8) '売上のところを切り取り


            'カンマ編集と右詰め編集
            Money = Format(Format(Money, "###,###,##0"), "@@@@@@@@@@@")
            List1.AddItem ID & ":" & Money  '店舗コードと売上を表示

            ArrayID(num) = ID           '配列変数に代入(店舗)
            num = num + 1            '店舗の加算
            ArrayMoney(num2) = Money  '配列変数に代入（売上）
            num2 = num2 + 1         '売上の加算

        Loop
    Close #1

    Tenpo.Caption = num & "店舗"    '店舗数を表示
    Exit Sub


ErrHandler:
    MsgBox Err.Description, vbCritical
    Close #1
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -