在VB里怎样仅用自带的函数打开文本文件.有什么方法吗?(无内容)

Question

为了减少非标准控件的使用,我想还是用TextBox比较好.有什么好的办法.

Answer 1

临时写的，没有调试，可能有错：
Dim FileNum As LongFileNum=FreeFile
Open 文件名 For Binary As #FileNum
TexBox.Text=StrConv(InputB(Lof(FileNum),FileNum),vbUnicode)
Close #FileNum

Answer 2

可以用FileSystemObject来实现：
1、在工程中引用microsoft scripting runtime
2、dim fso as new filesystemobject
3、fso.opentextfile（文件路径）这样就可以了，方便快捷

Answer 3

不必
用
open "*.txt" for output as #1
读操作
close #1
就行了,这个在Gwbasic就有

Answer 4

用Open ... For Input ... 打开，用Line Input ...不就识别换行符了吗？

Answer 5

换行：Dim FileNum As Long
Dim FileLong As Long
Dim LoadBytes() As BytesFileNum=FreeFile
Open 文件名 For Binary As #FileNumFileLong=Lof(FileNum)
ReDim LoadBytes(1 To FileLong) As Byte
Get #FileNum,,LoadBytes
TextBox.Text=StrConv(LoadBytes,vbUnicode)Close #FileNum 

Answer 6

zyl910:
能不能象读txt文件那样读word文档，请给个代码好吗？