VS VB编程中 如何读取并显示Txt文本?请会的指点一下感激不尽..(本人初学)

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:19:31
我想读取Txt文本里面文本 并显示在label中
已知文本中的内容为: 你好1chr(5)你好2chr(6) 现在我要点击button后读取你好1显示在label1中 你好2在label2中 应该如何写循环 查找?

private sub command1_click()
dim msg() as string

'打开文件
open "c:\文本文件.txt" for input as #1

line input #1,rs
msg=split(rs,"chr(5)")

label1.caption=msg(0)
label2.caption=msg(1)

close #1
end sub