该如何把从文件中读取的一行赋值到一个数组
Dim enword（） as byte
Open "MYFILE.TXT " For Input As #1
Randomize
rand = Int(7 * Rnd)
Do While Not EOF(1)
Line Input #1, strdata
enword() = strdata;这句报错
cnt = cnt + 1
If cnt > rand Then
Exit Do
End If
Loop
我想把得到的随机字符串读取到数组中进行操作，该如何写，如果我的数组是二维数组，想存取多个字符串，又该如何操作
[解决办法]
应该是循环吧
Dim enword（） as string
dim i as integer
Open "MYFILE.TXT " For Input As #1
Randomize
rand = Int(7 * Rnd)
i=0
redim enword(0 to 0)
Do While Not EOF(1)
Line Input #1, strdata
redim preserve enword(0 to i)
enword(i)=strdata
i=i+1
cnt = cnt + 1
If cnt > rand Then
Exit Do
End If
Loop
[解决办法]
Dim enword（） as byte
Open "MYFILE.TXT " For Input As #1
Randomize
rand = Int(7 * Rnd)
Do While Not EOF(1)
Line Input #1, strdata
enword = strconv(strdata,vbunicode);这句这么改
cnt = cnt + 1
If cnt > rand Then
Exit Do
End If
Loop
