回复：WinCC读写txt，实现能打开对话框选择文件和另存为文件，而不是打开，保存指定文件-技术论坛-工业支持中心-西门子中国

回复：WinCC读写txt，实现能打开对话框选择文件和另存为文件，而不是打开，保存指定文件

youhm

帖子

4924
精华

81
被关注

51

论坛等级：至圣

注册时间：2008-06-28

普通如何晋级?

发布于 2015-06-04 22:58:33

1楼

1.读txt文件写入WinCC变量代码
Dim CDG,FSO,F
Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")
Set FSO=CreateObject("s cripting.FileSystemObject")
CDG.MaxFileSize=260
CDG.InitDir="C:\" ‘初始路径
CDG.Filter="txt Files*.txt"
CDG.ShowOpen
Set F=FSO.OpenTextFile(CDG.FileName,1)
HMIRuntime.Tags("TagName").Write F.ReadAll
Set F=Nothing
Set FSO=Nothing
Set CDG=Nothing

2.WinCC变量写入txt文件代码
Dim CDG,FSO,F
Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")
Set FSO=CreateObject("s cripting.FileSystemObject")
CDG.MaxFileSize=260
CDG.InitDir="C:\" ‘初始路径
CDG.Filter="txt Files*.txt"
CDG.ShowSave
Set F=FSO.OpenTextFile(CDG.FileName,2,1)
F.Write HMIRuntime.Tags("TagName").Read
Set F=Nothing
Set FSO=Nothing
Set CDG=Nothing