在WINCC中读取TXT文件的值画曲线(VBS)

说明：采用WINCC7.0SP3ASIA版测试，显示曲线用的是函数趋势控件，脚本放在按钮下面。先上效果图’////////////////////TXT中的内容//////////////////021522633864355636227538759471026/////////////////////////////////////////////////////’以下开始是脚本DimKey,FctTrdCtrl,iDimX_Values,Y_Values'VBS_Keyisthenameoftheclickedbutton'DisableoperatorcontrolandforcegraficoutputSetKey=ScreenItems.Item(按钮1)Key.Operation=vbFalserefreshX_Values=Array(0,1,2,3,4,5,6,7,8,9,10)Y_Values=Array(0,1,4,9,16,25,36,49,64,81,100)SetFctTrdCtrl=ScreenItems.Item(控件1)DimobjTrendSetobjTrend=FctTrdCtrl.GetTrend(趋势1)'SetindexFortrend1AnddeletedataFctTrdCtrl.TrendIndex=0objTrend.RemoveData'X-axispropertysettingFctTrdCtrl.XAxisAutoRange=vbFalseFctTrdCtrl.XAxisBeginValue=0FctTrdCtrl.XAxisEndValue=10'Y-axispropertysettingFctTrdCtrl.YAxisAutoRange=vbFalseFctTrdCtrl.YAxisBeginValue=0FctTrdCtrl.YAxisEndValue=100'InsertX/Yvalues’OPENTXTDimtxtFile,szContentConstForReading=1Dimfso,filenameSetfso=CreateObject(scripting.FileSystemObject)Setfilename=HMIRuntime.Tags(filenameforhqx)filename.ReadIffso.FileExists(&filename.Value&)ThenSettxtFile=fso.OpenTextFile(&filename.Value&,ForReading)szContent=txtFile.ReadAlltxtFile.closeElseMsgBox文件不存在ExitsubEndIf’READTXTDimkDiml,mDimRow,lineRow=Split(szContent,vbCrLf)Fori=0To10line=Split(row(i),vbTab)objTrend.InsertDataline(0),line(1)Next'enableoperatorcontrolKey.Operation=vbTrue’脚本到此结束