投稿日 | : 2003/07/20(Sun) 23:15 |
投稿者 | : Taka |
Eメール | : |
URL | : |
タイトル | : スペース区切りで読み込み |
お昼はお世話になりました。ありがとうございました。
ファイルを読み込みMSFlexGridに表示させたのはいい
のですが、セルひとつにデータをひとつ入力していきたい
のですがMid(anything,1,7)などを使ってもなかなかうま
くいきません。VB素人なもので時間をかけても出来ませ
んでした。
コードはこのような感じです。1行ずつ読み込み、MSFlexGrid
に表示させるものです。それから処理が遅いんですが、1行ずつ
読み込むやり方で処理速度を早く出来ないでしょうか?↓
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 = "ポイントマンDRMのファイルを開く"
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