WinCC如何读写txt文件.docVIP

WinCC如何读写txt文件 说明： HelpStr 用于存储文本内容，由于使用字符串指针，文本长度理论上可以达到无限长。 tmp 用于存放每行读取的内容。 txt 用于存放文本文件的地址。 ChrNumLine 设定每行读取的长度。 char tmp[255]; char *HelpStr; char txt[255]; int ChrNumLine=38; FILE *fp; BOOL ret; sprintf(txt,%s273\\HelpFile\\%s.txt,PrjPath (),lpszObjectName); fp=fopen(txt,r); if (fp==NULL) { printf(\r\nOpen File : %s Failed!,txt); sprintf(HelpStr,\r\nError!\r\nThe Help file - %s does not exit!,txt); } else { rewind(fp); while(!feof(fp)) { fgets(tmp,ChrNumLine,fp); strcat(HelpStr,tmp); strcat(HelpStr,\r\n); } } ret=fclose(fp); if (ret!=0) printf(\r\nError In fclose file %s,txt); SetText(Help_Content.pdl,Main,HelpStr); vb脚本： Function ReadAllTextFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject(s cripting.FileSystemObject) Set f = fso.OpenTextFile(c:\testfile.txt, ForWriting, True) f.Write Hello world! Set f = fso.OpenTextFile(c:\testfile.txt, ForReading) ReadAllTextFile = f.ReadAll End Function ===================================================================== 一、将WinCC变量导出到TEXT文件 　　Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) 　　Dim fso,File 　　Dim a 　　a=HMIRuntime.Tags(FileName).Read 　　Const ForWriting = 2 　　Set fso = CreateObject(Scripting.FileSystemObject) 　　Set File = fso.OpenTextFile(D:\ExportImport\CStr(a).txt, ForWriting, True) 　　File.WriteLine(HMIRuntime.Tags(Var_1).read) 　　File.WriteLine(HMIRuntime.Tags(Var_2).read) 　　File.WriteLine(HMIRuntime.Tags(Var_3).read) 　　File.WriteLine(HMIRuntime.Tags(Var_4).read) 　　File.WriteLine(HMIRuntime.Tags(Var_5).read) 　　File.Close 　　MsgBox 文件已经成功导出/Export Successful 　　End Sub 二、从TXT文件中读取数据到WinCC变量 　　Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) 　　Dim fso 　　Dim txtfile 　　Dim a 　　a=HMIRuntime.Tags(FileName).Read 　　Set fso = CreateObject(scripting.filesystemobject) 　　If fso.FileExists(D:\\ExportImport\\CStr(a).txt) Then 　　 Set txtfile = fso.OpenTextFile(D:\\ExportImport\\CStr(a).txt) 　　 HMIRuntime.Tags(Var_1).Write txtfile.ReadLine 　　 HMIRuntime.Tags(Var_2