在一个Text文本框里写入一大篇东西

Question

你最好用 richtextbox （富文本框） 在大篇文本方面更勝一酬用 file 的 open 方法打開 文本文件 用 print 寫入文件
例 1,讀入到 text
 private sub fileopen()
  on error goto fileerr
    open "c:\text.txt" for input as #1
    text1.text=input$(lof(1),#1)
    close #1
    exit sub
fileerr:
    msgbox err.number
end sub2,寫入
 private sub filewrite()
on error goto fileerr
   open "c:\text.txt" for output as #1
   print #1,text1.txt
   closet #1
   exit sub
fileerr:
  msgbox err.number
end sub

Answer 1

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile