WinCC如何读写txt文件

WinCC如何读写txt文件
2009年12月23日
　　说明：
　　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