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

投稿日： 2003/07/21(Mon) 04:35
投稿者： LESIA
Ｅメール：
ＵＲＬ：
タイトル： Re: スペース区切りで読み込み

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

Clipプロパティを使いましょう。
ただし、Clipプロパティのセルの区切り文字はタブなので、
スペースをタブに変換してやる必要があります。

Do While Not EOF(1)
     Line Input #1, mytext
     With CellGrid
        If .Row < .Rows Then
           .Row = count
　　　　　　.RowSel = count
           .Col = 1
           .ColSel = .Cols - 1
           .Clip = Replace(mytext, " ", vbTab)
           count = count + 1
        Else
            .Rows = .Rows + 1
            .Row = count
            .RowSel = count
            .Col = 1
            .ColSel = .Cols - 1
            .Clip = Replace(mytext, " ", vbTab)
            count = count + 1
        End If
    End With
Loop

> コードはこのような感じです。１行ずつ読み込み、MSFlexGrid
> に表示させるものです。それから処理が遅いんですが、１行ずつ
> 読み込むやり方で処理速度を早く出来ないでしょうか？↓

処理速度を早くしたいなら、Redrawプロパティを使うといいかも。

With CellGrid
   .Redraw = False
   処理
   .Redraw = True
End With

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

- Web Forum -