2021-05-10

这是我在触摸屏里面写的非常简单的vb程序，
虽然写入了数据，但是我不会读取数据到指定变量，
我很苦恼，特地找了一个简单的读取案例，
我也尝试了一下，发现只能读取最后一行的数据，
希望各位能帮我改改怎么读取末尾20行的信息

以下为我的写入vb脚本

Sub record(1)

Dim fo
Dim path
Dim mode
Dim gap
Dim delimiter '分割线
Dim model '型号
Dim maintenance '修程
Dim speed '高低速
Const neu=0
mode=8
If SmartTags("导出位置") =1 Then
	path ="\Storage Card SD\datafile.csv"
	delimiter=";"
	gap=""
Else
	path ="\Storage Card USB\datafile.csv"
	delimiter=","
	gap=""
End If
If SmartTags("型号") =0 Then
	model="CRH2"
Else
	model="CRH380" 
End If

If SmartTags("高低速") =0 Then
	speed="MAX"
Else
	speed="MIN" 
End If


If SmartTags("修程") =0 Then
	maintenance="E3"
End If
If SmartTags("修程") =1 Then
	maintenance="E4"
End If
If SmartTags("修程") =2 Then
	maintenance="E5"
End If

On Error Resume Next
Set fo= CreateObject("FileCtl.File")

If Err.Number<> 0 Then
	ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
	Err.Clear
	Exit Sub
End If

'打开或者创建一个文件
fo.open path,mode
If Err.Number<> 0 Then
	ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
	Err.Clear
	Exit Sub
End If
'创建新的标题栏
If fo.LOF =neu Then
	fo.lineprint("DATE" & gap & gap & delimiter & "Wagon number" & delimiter & "Number" & delimiter & "Model" & delimiter & "High and low speed" & delimiter & "AC400V VOUT" & delimiter & "AC400V IOUT" & delimiter & "AC100V VOUT" & delimiter & "AC100V IOUT" & delimiter & "DC100V VOUT" & delimiter & "DC100V IOUT" & delimiter & "Maintenance" & delimiter & "Operator" & delimiter)
End If


'把数据写入对应表格中
fo.LinePrint(Now & delimiter & SmartTags("车号") & delimiter & SmartTags("编号") & delimiter & model & delimiter & speed & delimiter & SmartTags("Tag_A7") & "V" & delimiter & SmartTags("Tag_A9") & "A" & delimiter & SmartTags("Tag_A10") & "V" & delimiter & SmartTags("Tag_A11") & "A" & delimiter & SmartTags("Tag_A12") & "V" & delimiter & SmartTags("Tag_A13") & "A" & delimiter & maintenance & delimiter & SmartTags("试验人员") & delimiter)

'关闭并且保存文件
fo.Close

Set fo = Nothing

ShowSystemAlarm "文件保存成功！"

End Sub