我想把一个文本文件（路径为E:\ABAQUS\111\1.txt）里的内容赋值给Text1.Text,表达式怎么写啊？

Question

rt

Answer 1

Text1.Text = File.ReadAllText("E:\ABAQUS\111\1.txt")

Answer 2

'定义变量
Dim tmpStr As String          '读取每行文本的零时变量
Dim ReadText As String        '累计读取文本的变量
Dim CrlfCount As Long         '累计读取到的行数变量
Dim fs As Integer             '可用文件号变量CrlfCount = 0                 '初始化行数
fs = FreeFile                 '取得可用的文件号'以文本读写方式打开文件(前提是文件必须存在和能够访问，否则会发生错误)
Open "E:\ABAQUS\111\1.txt" For Input As #fs
Do While Not EOF(fs)          '开始循环读取文件内容
   Line Input #fs, tmpStr     '读取一行的内容到 tmpStr 变量中
   CrlfCount = CrlfCount + 1  '累计行数
   If CrlfCount = 1 Then
      '读取第一行直接将读到的内容赋值到 ReadText 变量就可以了
      ReadText = tmpStr
   Else
      '读到第二行以上的内容就将内容累积到 ReadText 变量里
      '并且在累积过程中将 vbCrLf （换行符）一起加入进去
      ReadText = ReadText & vbCrLf & tmpStr
   End If
Loop
Close #fs                     '关闭打开的文件
Text1.Text = ReadText         '将读到的内容赋值给 Text1 的 Text 属性中
'最后用对话框显示一下已读到的文本行数
MsgBox "文件中读到 " & CrlfCount & " 行文本内容。"

Answer 3

'设置Text1的MultiLine属性为truePrivate Sub Form_Load()
   Open "c:\1.txt" For Input As #1
   Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
   
End Sub