ファイルの読み込みについて
解決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
これでファイルの内容が表示されると思います。
変換の意味がわかりませんでしたのでとりあえずテキストボックスに表示させるまでのソースを書き込ませていただきました。
みなさんありがとうございました
| ツイート |  |