技术论坛

 回复:WinCC如何读写txt文件

返回主题列表
作者 主题
SIM工控
侠士

经验值:1383
发帖数:855
精华帖:6
楼主    2006-06-17 20:48:46
主题:WinCC如何读写txt文件
请教:WinCC如何读写txt文件
dcount107
侠圣

经验值:2840
发帖数:1737
精华帖:55
    2006-06-18 10:45:11
精华帖  主题:回复: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
    2006-06-19 00:38:09
精华帖  主题:回复: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
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。