VBでエディタ

解決済

質問者：Kakugari
質問日時：2002/02/09 10:13
回答数：3件

こんにちは。Kakugariです。

　今、ＶＢでエディタを作っていますがファイル操作でつまずいてしまいました。Commondialogからファイル名を取得して、そのファイルをMaintxtに表示するプログラムですがMaintxtに表示されるとき、Tabを使用してスペースを空けた部分が、無視されて文字が前に詰めて表示されます。それ以外は正常です。下にコードを載せましたので、お分かりになられる方は、間違いを指摘していただけたらありがたいです。ちなみにVB6です。Commondialogのプロパティは、デザイン時に設定されています。

Private Sub mnuOpen_Click()
　　On Error GoTo ErrCode

　　With CommonDialog1
　　　　.DialogTitle = "開く"
　　　　.ShowOpen
　　End With

　　Dim txt As String, Work As String
　　Open CommonDialog1.FileName For Input As #1

　　Do While Not EOF(1)
　　　　Input #1, Work
　　　　txt = txt & Work & vbCrLf
　　Loop

　　Close #1
　　Maintxt = txt
　　Exit Sub

ErrCode:
　　Close #1
　　MsgBox "ファイルは開けませんでした。", vbCritical
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： haporun
回答日時：2002/02/09 13:05

txt = txt & Work & vbCrLf

の部分は、容量が大きいファイルを扱うと、容量の2乗に比例したオーダーで速度が低下します。
今回は、VBのActiveXコンポーネントを使い、容量の1乗に比例したオーダーでしか速度が低下しない方法をご提供♪
ちなみに、VB6以上での方法です。

メニューのプロジェクト→参照設定でMicrosoft Scripting Runtimeを追加

次のコードを標準モジュールに貼り付ける

'↓ここから

Private FS As New FileSystemObject

Public Property Get AFile(File As String) As String

On Error Resume Next
Dim Tx As TextStream

If FS.FileExists(File) Then

Set Tx = FS.OpenTextFile(File)
AFile = Tx.ReadAll
Tx.Close
Set Tx = Nothing

End If

End Property

Public Property Let AFile(File As String, Data As String)

On Error Resume Next
Dim Tx As TextStream

Set Tx = FS.OpenTextFile(File, ForWriting, True)
Tx.Write Data
Tx.Close
Set Tx = Nothing

End Property

'↑ここまで

使い方

Text1.Text = AFile("ファイル名")
で読み込み。

AFile("ファイル名") = Text1.Text
で書き込み。

ファイルを変数のように扱える様になります。
また、読み込み部分は、コンポーネントがバイナリで一気に読み込んでから、文字列に変換してくれるので、容量が大きいときでも速度があまり低下しません。

もちろん、VBのTextBoxは32k文字までしか表示できません。