For i = 0 To Scales(0,0)
strtrdg(i) = 0
EndRdg(i) = 0
DiffRdg(i) = 0
Zeile = FileIO(Scales(3,i), SmartTags("TagInternal_YieldSummary\FromDateTime"), SmartTags("TagInternal_YieldSummary\ToDateTime"))
Zeilen = Split (Zeile(0), ";", -1, 1)
scaleDatails = Split(Zeilen(0), "_", -1, 1)
ScaleTag = Split(scaleDatails(0), "/", -1,1)
Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("SCL" & i)
fs.text = ScaleTag(1)& "_" & scaleDatails(1)
Zeilen = Split (Zeile(0), ";", -1, 1)
temp = Right(Zeilen(0), Len(Zeilen(0))-10)
temp = Scales(2,i) &" (" & Left(temp, Len(temp)-15) & ")"
Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("SCL" & i)
SmartTags("TagInternal_YieldSummary\Scale" & i) = temp
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("StrtRdg" & i)
strtrdg(i) = Int(Zeilen(2))
SmartTags("TagInternal_YieldSummary\StrtRdg" & i) = strtrdg(i)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("FieldFromDte")
temp = Left(Zeilen(1), Len(Zeilen(1)) -1)
temp = Right(temp, Len(temp) -1)
SmartTags("TagInternal_YieldSummary\FromDateTime") = temp
Zeilen = Split (Zeile(1), ";", -1, 1)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("EndRdg" & i)
EndRdg(i) = Int(Zeilen(2))
SmartTags("TagInternal_YieldSummary\EndRdg" & i) = EndRdg(i)
DiffRdg(i) = EndRdg(i) - strtrdg(i)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("TotalRdg" & i)
SmartTags("TagInternal_YieldSummary\DiffRdg" & i) = DiffRdg(i)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("FieldToDte")
temp = Left(Zeilen(1), Len(Zeilen(1)) -1)
temp = Right(temp, Len(temp) -1)
SmartTags("TagInternal_YieldSummary\ToDateTime") = temp



//===========================================================================
其中Split (Zeile(0), ";", -1, 1)，temp = Left(Zeilen(1), Len(Zeilen(1)) ，temp = Right(temp, Len(temp) -1)看不懂