• 西门子触摸屏利用VBScript脚本创建csv文件


    功能描述:利用VBScript脚本创建csv/txt文件

    有时需要将PLC或运动控制器Simotion中的数据写到SD卡或U盘上。一种实现方法是,如果使用的是精致面板(comfort panel),可以使用vbscript生成脚本。

    • 软件 TIA Portal V14sp1, Wincc professional V15sp1
    • 硬件 一个西门子 TP1200触摸屏 (wince系统),其它西门子comfort panel也可以
    • 此功能不能使用Wincc模拟器执行,需要有真实的触摸屏
    • Wince 使用的VBS对象和Windows有区别

    参考文献:
    https://files.cnblogs.com/files/lion-zheng/vbscript_wince.pdf

    https://msdn.microsoft.com/en-us/library/t0aew7h6.aspx

    Step1

    在触摸屏中建立2个internal tag,
    var1,var1

    本文中使用触摸屏的internal tag,如果需要存储PLC中内容,请使用PLC tag

    Step2 将u盘插入TP1200

    在wince系统的"我的电脑"中,查看是否识别了优盘
    u盘的路径 "Storage Card usb"

    Step3 插入脚本

    以下脚本生成两行CSV表格,第一行是写入文本;第二行是记录var1,var2两个变量的值.

    • 使用FileCtl类创建对象
    • 定义文件路径和文件名
    • 使用open方法来打开文件
    • 使用LinePrint方法写入行
    • 使用close方法关闭文件
    Sub VBFunction_1()
    
    Dim f,Storage_Path
    Dim v1,v2
    
    Set f =CreateObject("FileCtl.File")
    
    Storage_Path = "Storage Card usbmyfile.csv"
    
    f.open Storage_Path,2
    v1 = SmartTags("var1")
    v2 = SmartTags("var2")
    
    f.LinePrint("valueName1,valueName2,valueName3")
    f.LinePrint(""&v1&","&v2&",")		
    f.close
    Set f = Nothing
    
    End Sub
    

    Step4 通过一个按钮触发脚本

    写入优盘后,使用EXCEL打卡CSV文件查看

  • 相关阅读:
    Docker入门
    15个Docker基本命令及用法
    Docker系列
    docker
    Docker 常用命令
    查看用户列表在Linux
    Spring boot Mybatis
    CountDownLatch和CyclicBarrier 专题
    Spring Boot MyBatis 连接数据库
    Spring Boot MyBatis 通用Mapper插件集成 good
  • 原文地址:https://www.cnblogs.com/lion-zheng/p/9050898.html
Copyright © 2020-2023  润新知