我想把一个文本文件(路径为E:\ABAQUS\111\1.txt)里的内容赋值给Text1.Text,表达式怎么写啊?
rt --------------------编程问答-------------------- Text1.Text="E:\ABAQUS\111\1.txt" --------------------编程问答-------------------- Text1.Text = File.ReadAllText("E:\ABAQUS\111\1.txt")--------------------编程问答--------------------
向楼主表示歉意,我看错题目了…… --------------------编程问答--------------------
向楼主表示歉意,我看错题目了…… --------------------编程问答--------------------
--------------------编程问答--------------------
'定义变量
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 & " 行文本内容。"
'设置Text1的MultiLine属性为true
Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
End Sub
补充:VB , 基础类