VB读文件的问题，求解！
有已知TXT文件test.txt，内容如下：
A
B
C
D
E
F
G
每个字母一行，现在我想把这些内容依次读出来并赋值给一个数组，这个变量将参与运算。
比如，读取后赋值给数组f()，f(1)=A，f(2)=B，……请问该怎么实现呀。
大体方法我明白点，但是不是很清楚怎么依次读TXT。恳请大家给解决一下吧，给个代码让小弟学习下。
--逐行读取
filenum% = FreeFile
Open CurrentPath + "LateReason.rtf" For Input As #filenum
Line Input #filenum, s1
Line Input #filenum, s2
Line Input #filenum, s3
Line Input #filenum, s4
Line Input #filenum, s5
lblbusid.Caption = s1
lbllicenseplatenum.Caption = s2
lblstartplace.Caption = s3
lblendplace.Caption = s4
lblstarttime.Caption = s5
Close #filenum
方法二： 读取全部文本 以回车符分隔 写入数组
Dim filenum As Integer
filenum = FreeFile
Open CommonDialog1.FileName For Binary As #filenum
a = Input(LOF(filenum), #filenum)
y = Split(a, vbCrLf)
MsgBox y(0)
MsgBox y(1)
DataBaseForm.Text1.Text = y(0) & "1111" & y(1)
VB code:
Option Explicit
Private Sub Command1_Click()
Dim st
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
有没有FOR VB 水晶报表的书或是电子文档啊？有信息的朋友告诉下 谢谢了
我也没找到
如果你有 FOR 其它 的文档，也可以参考吧！
‘道理’是一致的，只是“表达方式”不同而已。
mark
pls learn from ba ......
