tagname.x 二进制结构-专业自动化论坛-中国工控网论坛

tagname.x 二进制结构点击：3622 | 回复：37

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-27 09:07:00

楼主

想使用工程中的tagname.x,有什么办法可取出intouch 中的所有点的属性！如点名称类型等！

分享到：

邀请回答

回复楼主

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-07 14:09:00

1楼

Mr johnny ,thank you!

回复引用举报

大马

精华：0帖
求助：0帖
帖子：6帖 | 117回
年度积分：0
历史总积分：179
注册：2002年8月06日

发表于：2003-03-10 21:41:00

2楼

deng_lp你好,可否公布方法?谢谢!!

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-11 08:51:00

3楼

To 大马找 johnny 吧！

回复引用举报

Johnny

精华：0帖
求助：0帖
帖子：1帖 | 187回
年度积分：0
历史总积分：187
注册：2001年7月27日

发表于：2003-03-11 12:23:00

4楼

I have not stutrc of tagname.x but I had tried how to read tagname.x from my program. if you want it,I had been to send it to deng_lp. I do not care if he want it to you.

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-11 13:00:00

5楼

我可贴出来了，johnny!

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-11 13:01:00

6楼

太大了我发给你吧！

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-12 09:14:00

7楼

Private Function GetInTouchTags(ByVal sInTouchPath As String) As Long Dim sTagFileName As String Dim sTagname As String Dim bByte() As Byte Dim hFileHandle As Long Dim idx As Integer Dim bp As Long Dim sKey As String lstTagBrowser.Clear sTagFileName = sInTouchPath + "\TAGNAME.X" If (Len(Dir(sTagFileName)) <= 0) Then GetInTouchTags = 0 Exit Function End If

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2003-03-12 09:16:00

8楼

hFileHandle = FreeFile On Error GoTo GetInTouchTags_errHandle Open sTagFileName For Binary Access Read As #hFileHandle ReDim bByte(1) As Byte bp = &H200 + 1 Do While bp < FileLen(sTagFileName) Seek #hFileHandle, bp + &H54 bByte = InputB(1, #hFileHandle)

回复引用举报

deng_lp