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
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
如题。
不用API也能实现:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html
使用API输出文本存在显示刷新问题,需在ReSize或Paint事件中加入代码.
http://download.csdn.net/ ......
