ファイルの読み込みについて

解決

---

VB6を先月からやり始めました。
CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*"
commondialog1.showopen  
をしてDXFファイル形式をtext1.textに表示したいのですがうまく読み込んで出力されません。どのようにしたらいいですか？
  Sub DXFver(selFn As String)

    Dim strFilename As String
    Dim Read_Data As String
    Dim Tmp_Data As String
    Dim FileNum As Integer

    FileNum = FreeFile
    Read_Data = ""
    On Error GoTo file_read_err
     Open "c:\" For Input As #FileNum
     Text1.Text = ""
     Do Until EOF(FileNum)
     Line Input #FileNum, Tmp_Data
     Read_Data = Read_Data & Tmp_Data & vbCrLf
     Loop
     Close #FileNum
     Text1.Text = Read_Data
     Exit Sub
     
file_read_err:
     MsgBox "ファイルの読み込みエラー", , "エラーメッセージ"


End Sub

編集 削除

---

いやぁ、うまく読み込んで出力されませんってのが
具体的にどううまくいかないのか説明もらえませんか？
だって、透視能力ありませんし。

まず、DXFって読めるように適宜改行が入れてあるフォーマットなのか？
（そうでなければ、バイト単位で読み込む＆見やすいように適宜改行を
入れてあげるようなことをしないとならないかも）
あと、
TextBox側でMultiLineプロパティがTrueになってるかどうか？
は、まず思い浮かびますが．．．

編集 削除

---

> VB6を先月からやり始めました。
> CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*"
> commondialog1.showopen  
CommonDialog1が、Microsoft コモン ダイアログ コントロール 6.0
なら、
> をしてDXFファイル形式をtext1.textに表示したいのですがうまく読み込んで出力されません。どのようにしたらいいですか？
何を望んで「ファイル形式」と言っているのか全然検討が付きませんが、
コレ↓は全く関係の無いコードですよね？

>   Sub DXFver(selFn As String)
> 
>     Dim strFilename As String
>     Dim Read_Data As String
>     Dim Tmp_Data As String
>     Dim FileNum As Integer
> 
>     FileNum = FreeFile
>     Read_Data = ""
>     On Error GoTo file_read_err
>      Open "c:\" For Input As #FileNum
>      Text1.Text = ""
>      Do Until EOF(FileNum)
>      Line Input #FileNum, Tmp_Data
>      Read_Data = Read_Data & Tmp_Data & vbCrLf
>      Loop
>      Close #FileNum
>      Text1.Text = Read_Data
>      Exit Sub
>      
> file_read_err:
>      MsgBox "ファイルの読み込みエラー", , "エラーメッセージ"
> 
> 
> End Sub
とりあえず、text1.Text = CommonDialog1.FileNameとしてみたらどうでしょ？

編集 削除

---

On Error GoTo file_read_err
をコメントアウトし、実行したらどうなるでしょう？

編集 削除

---

御解答有難う御座います

DXFをnotepadで表示した内容をTEXT1.TEXTに表示させたいのですが・・・＞もげ

CADで設計した内容をDXF形式で出力しそれをtext1.textに表示させたいということです＞ガッ

編集 削除

---

>Open "c:\" For Input As #FileNum
これは何を開いてるの？
Openステートメントの引数の意味がわかってますか？

編集 削除

---

内容とは関係ないけど、指導を頂いた方を呼び捨てにするのはやめましょう。
初心者だからといって許されるとこではないので。
（人間としてのマナー）

編集 削除

---

呼び捨てにしてすいませんでした。
掲示板を使ったのも初めてだったもので本当にすいません。

編集 削除

---

呼び方はさておき、siroさんの
>On Error GoTo file_read_err
>をコメントアウトし、実行したらどうなるでしょう？
これはどうなりました。

編集 削除

---

コントロールはFORM1にText1配置してあるだけです。
Text1はMultiLine=True ScrollBars = 3-両方 になっています。
勘違いの内容でしたらすみません。

Private Sub Form_Load()
    Dim FileNum As Integer
    Dim strLine As String
    Dim strText As String
    
    Me.CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*"
    Me.CommonDialog1.ShowOpen
    
    If Not Me.CommonDialog1.FileName = "" Then
        FileNum = FreeFile
        Open Me.CommonDialog1.FileName For Input As #FileNum
        
        Do Until EOF(FileNum)
            Line Input #FileNum, strLine
            strText = strText & strLine & vbCrLf
        Loop
        
        Me.Text1 = strText
        
        Close #FileNum
    End If
End Sub

これでファイルの内容が表示されると思います。
変換の意味がわかりませんでしたのでとりあえずテキストボックスに表示させるまでのソースを書き込ませていただきました。

編集 削除

---

みなさんありがとうございました

編集 削除

---

名前

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

本文

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