脚本是这样的
Dim x,i,j,f,fs,ts
Dim vale(200),valen
Set fs=CreateObject("s cripting.FileSystemObject")
Set f=fs.GetFile("C:\Storage Card\logs" & "\" & "test" &".csv")
Set ts=f.OpenAsTextStream(1, -2)
For i = 1 To 10
vale(i) = ts.ReadLine
Next

ts.Close
For j=1 To 9
valen = Split(vale(j),",",-1,1)
Set x=HmiRuntime.Screens("Screens2").ScreenItems("username_"&j)
x.Text=valen(1)
Set x=HmiRuntime.Screens("Screens2").ScreenItems("enven_"&j)
x.Text=valen(0)
Set x=HmiRuntime.Screens("Screens2").ScreenItems("date_"&j)
x.Text=valen(3)
Next

请高手帮忙看下问题在哪里