Question

VB 读取文本内容加载进 RichTextBox 一行一行的显示 请赐教

Answer 1

先一行一行读文本文件,存放在变量里,读完后,把该变量的值赋给richtextbox的text属性.
Dim MyStr As String
Dim MyLineStr As String
MyStr = ""
'读取文件信息
Open "C:\1.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, MyLineStr
MyStr = MyStr & MyLineStr & vbCrLf
Loop
Close #1 ' 关闭文件。
RichTextBox1.Text = MyStr

追问

非常谢谢你 RichTextBox想把显示的数据每一行设置成不同的颜色 怎么处理
数据以以下方式 '
' (3)工工工工 red
'2012-9-3 17:44:10
' (3)戈戈戈戈戈戈戈戈 green
'2012-9-3 17:44:15
'(3)戈戈戈戈戈戈戈戈 white
'2012-9-3 17:44:15
这是其中一段数据 按这样子的

追答

Dim SS As Integer
Dim SL As Integer
Dim Cn As Integer
Cn = -1
SS = 1
SL = InStr(SS, RichTextBox1.Text, vbCrLf)
Do While SL 0
Cn = Cn + 1
Cn = Cn Mod 15
RichTextBox1.SelStart = SS - 1
RichTextBox1.SelLength = SL - SS
RichTextBox1.SelColor = QBColor(Cn)
SS = SL + 2
SL = InStr(SS, RichTextBox1.Text, vbCrLf)
Loop

用的是16种颜色，不过白的有问题，白的背景，白的字，那就看不见内容了？？？？？
你自己修改一下吧！

Answer 2

“仿真法”可以不？