WINCC flexible 脚本函数实例

gk-auto

来源： 机器人及PLC自动化应用

1.CreateFolder 创建文件夹

如果指定的文件夹已经存在，则会发生错误!

以下示例说明了“创建文件夹”方法的使用：

样例:

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject") 激活创建功能

Set f = fso.CreateFolder("c:\New Folder") 建立文件New Folder

reateFolderDemo= f.Path

事例:

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateFolder("C:\Users\zs\Desktop\New Folder")

------------------------------------------------------

2.实例:建立一个车号记录文档 test

建立一个现实RFID读入信息的IO域,使用变量”RFID_strVisuText1_0”

变量与RFID 读取的DB块相关联

新建脚本CreateAfile

Dim MyFile 声明变量

Dim fso,f, ts, path 声明变量

path =“D:\test\” & SmartTags(“Detail_RFID\RFID_strVisuText1_0”) & “_” & “.csv” 写入变量信息

变量path里写入要存储的地址是“D:\test” ，文件名是变量FID_strVisuText1_0的显示值和文件属性.CSV

Set fso = CreateObject(“Scripting.FileSystemObject”) 标准语句

Set MyFile = fso.CreateTextFile (path,True) 启用生成文件

MyFile.WriteLine(“time :;” & CStr(DatePart(“h”,Time))&“:” & CStr(DatePart(“n”,Time))& “:” & CStr(DatePart(“s”,Time))&“ ” & CStr(DatePart(“d”,Date))& “.” & CStr(DatePart(“m”,Date))& “.” & CStr(DatePart(“yyyy”,Date))) 在生成的文件中写入的内容是系统时间

MyFile.Close 语句结束

通过对每一台车的记录,形成了一个车身数据库.

-------------------------------------------------------

3. Int和Fix 整数，固定函数

数参数可以是任何有效的数值表达式。

如果数字包含空值，则返回空值。

Int和Fix都删除数字的小数部分，并返回结果整数值。

INT和修复之间的差异在于，如果数是负的，int返回第一负整数小于或等于数，而修复返回第一负整数大于或等于数量。例如，诠释将-8.4转换成-9 ，并且Fix将-8.4转换为-8。

例如:

MyNumber = Int(99.8)    ' Returns 99.MyNumber = Fix(99.2)    ' Returns 99.MyNumber = Int(-99.8)   ' Returns -100.

大超哥

无回帖，不论坛，这才是人道。

yangjunyi

加油，加油，不要沉下去，我是最热贴

彭金坤

水个经验，楼主加油，支持你～

陈先生

这波分析到位，逻辑满分！

墨染年华满蹒跚

说得对！狠狠赞同，没毛病～

淡定yong

原来还有这种操作，长见识了！

菜鸽子

已转发给朋友，一起感受这份快乐～

李磊

楼主太会说了，字字句句都在理

312788909

笑不活了，评论区比正文还精彩！