研究语言得体有何重要意义?

先说第1个问题吧..

Private Sub Command1_Click()
Dim a$, b$, i%

Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
i = i + 1
If i > 1 And i < 8 Then b = b & a & vbCrLf
Loop
Close #1
Text1 = b
End Sub

关键行是: If i > 1 And i < 8 Then b = b & a & vbCrLf
换句直白一点的意思就是读取第2行至第7行的内容到变量b中..最后使用text1=b来显示读取出来的内容

第2个问题:
刚刚读取的内容b,可以使用
再次来读取其中的内容,只是我没太明白,你是说只写后面的内容到text1吗? 就是:
"worldspawn"
"worldspawn"
"blue"
"4096"
"220"
"\cs15\valve\halflife.wad;\cs15\cstrike\cqsj.wad;\cs15\cstrike\hflogo.wad;\cs15\valve\decals.wad;\cs15\cstrike\siren_czl.wad"

别的都不要了吗?

第3个问题:
也不是太明白.你是说..只要最后一个\后面的内容,然后每个一行吗?
halflife.wad
cqsj.wad
hflogo.wad
decals.wa