mid$について (ID:122091)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Private Sub mnuFileOpen_Click()
    Dim sdata As String        'データ読み込み用
    Dim yn As VbMsgBoxResult   'メッセージボックス用
    Dim FileNum As Integer
    FileNum = FreeFile
    Dim s
    Dim t
    Dim r
    
     '保存の確認と保存処理  
    If Henkou = True Then  'データに変更あり？
        yn = MsgBox("まだ保存されていません。保存しますか。", vbYesNo, "保存確認")
        If yn = vbYes Then
            FileSave        '保存の処理を呼び出す
        End If
    End If
    '開くファイル名選択  
    On Error GoTo Err      'エラーが発生したらErrへ処理を移す
    CommonDialog1.ShowOpen '開くのダイアログを表示
    CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*"
    Filename = CommonDialog1.Filename  'ファイル名を設定
    RichTextBox1.Text = ""                      'テキストを消去
    'データを読み込む  (c)
    Open Filename For Input As #FileNum 'ファイルを開く
    Do
        If EOF(FileNum) Then        'ファイルの終わり？
            Exit Do              'Do-Loopを抜け出す
        End If
        Line Input #FileNum, sdata 'データを1行(改行まで)読み込む
      r = r & sdata & vbCrLf
      s = InStr(r, "ENTITIES")
      RichTextBox1.Text = Mid$(r, s)
      
    Loop
    Close #FileNum                 'ファイルを閉じる
    Henkou = False   '変更なし
    Exit Sub         'プロシージャを抜け出す
Err:
    MsgBox "ファイルが開けませんでした。"
 
End Sub

とプログラムをうったのですがmid$のところでエラーがおきます
ｓではなくて数字を入れたら普通に表示されるのですが・・・
いったいなにがいけないんでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る