| 作者 | 主题 |
|---|---|
|
SIM工控 侠士 经验值:1383 发帖数:855 精华帖:6 |
楼主
主题:WinCC如何读写txt文件
请教:WinCC如何读写txt文件
|
|
dcount107 侠圣 经验值:2840 发帖数:1737 精华帖:55 |
楼
主题:回复:WinCC如何读写txt文件
这是我以前总结的东西《如何将TXT文本内容读入写到TXTOBJECT中
》,希望你能用得上。 说明: 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); 现在 WinCC V6支持VBs cript就更方便得,可以用fso组件实现。
非淡泊无以明志,非宁静无以致远
|
|
万泉河 至圣 经验值:29190 发帖数:10900 精华帖:131 |
楼
主题:回复:WinCC如何读写txt文件
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
微信公众号:PLC标准化编程,ZHO6371995
|