工控编程吧

标题: WinCC读写txt，实现能打开对话框选择文件和另存为文件，而不是打开，保存指定文件 [打印本页]

作者: baikhgmv 时间: 2016-9-22 12:30
标题: WinCC读写txt，实现能打开对话框选择文件和另存为文件，而不是打开，保存指定文件
WinCC读写txt，实现能打开对话框选择文件和另存为文件，而不是打开，保存指定文件有两个按钮，一个是实现打开对话框功能，选择电脑中的txt文件，并且把txt中的数据写入到wincc变量中；另一个是实现另存为对话框功能，弹出另存为对话框，命名txt文件名，并且将wincc变量的值写入到txt中。急求大家的解答，急求代码！！！

---------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

-----你好，真的谢谢你，我还有一个问题，就是在打开文件的时候，当打开某一个文件，如何获得其文件名，并将其显示在输入输出域中..

-------CDG.ShowOpen '打开文件之后

Msgbox CDG.FileName '显示完整路径和文件名

Msgbox CDG.FileTitle '显示文件名

------我还有一个问题，就是你写的读写txt文件的代码是ReadAll，后面我自己改成了ReadLine....但是我按行读取的过程中，我只想读取某一行特定位置的参数，比如，txt文件第一行：油箱温度：23度
我只想读取23，并且另存为的时候就保存成油箱温度：23度
该怎么实现？

欢迎光临工控编程吧 (https://www.gkbc8.com/)