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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值