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

投稿日： 2003/07/20(Sun) 23:15
投稿者： Taka
Ｅメール：
ＵＲＬ：
タイトル： スペース区切りで読み込み

お昼はお世話になりました。ありがとうございました。
ファイルを読み込みMSFlexGridに表示させたのはいい
のですが、セルひとつにデータをひとつ入力していきたい
のですがMid(anything,1,7)などを使ってもなかなかうま
くいきません。ＶＢ素人なもので時間をかけても出来ませ
んでした。

コードはこのような感じです。１行ずつ読み込み、MSFlexGrid
に表示させるものです。それから処理が遅いんですが、１行ずつ
読み込むやり方で処理速度を早く出来ないでしょうか？↓
Private Sub File_Open_Click()
    Dim mytext As String
    Dim count As Integer
    Dim CC As String
    Dim Data As String
    Dim num As Integer
    Dim k As Integer, j As Integer
    
  
    With Dialog
        .DialogTitle = "ポイントマンＤＲＭのファイルを開く"
        On Error GoTo BACK
        .ShowOpen
        FileName = .FileName
    End With
    count = 1
    Open FileName For Input As #1
    Do While Not EOF(1)
         Line Input #1, mytext
         With CellGrid
            If .Row < .Rows Then
                .Row = count
                .Text = mytext
                count = count + 1
            Else
                .Rows = .Rows + 1
                .Row = count
                .Text = mytext
                count = count + 1
            End If
        End With
    Loop
    Close #1
    MsgBox "ファイルを読み込みました"
BACK:
End Sub

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

- Web Forum -