DIAdemを起動し、下記のVBScriptを保存し、実行すると、VBScriptが保存されたフォルダにData1.tdmsというファイルが作成されます。このファイルの各プロパティは下記のScriptによって編集されており、スクリプト実行後のData Portalで確認できます。
Option Explicit
Dim oMyData, oMyGroupChannel, oMyChannel, i
Call Data.Root.Clear()
Set oMyChannel = Data.Root.ChannelGroups.Add("MyChnGrp").Channels.Add("MyChn",DataTypeFloat64)
For i = 1 to 1000
oMyChannel(i) = i
Next
'データのプロパティを編集します
Set oMyData = Data.Root
oMyData.Properties("name").Value = "Data1"
oMyData.Properties("description").Value = "memo"
oMyData.Properties("title").Value = "Validation1"
oMyData.Properties("author").Value = "Engineer1"
oMyData.Properties("datetime").Value = "2021/4/1 12:00:00"
oMyData.Properties("sourceoriginalname").Value = "Source"
'チャンネルグループのプロパティを編集します
Set oMyGroupChannel = Data.Root.ChannelGroups(1)
oMyGroupChannel.Properties("Name").Value = "ChannelGroup1"
oMyGroupChannel.Properties("description").Value = "memo"
oMyGroupChannel.Properties("sourceoriginalname").Value = "Source_ChannelGroup"
'チャンネルのプロパティを編集します
Set oMyChannel = Data.Root.ChannelGroups(1).Channels(1)
oMyChannel.Properties("Name").Value = "Channel1"
oMyChannel.Properties("description").Value = "memo"
oMyChannel.Properties("unit_string").Value = "Hz"
'プロパティを読み取ります
msgbox(oMyData.Properties("Name").Value)
'ファイルを保存します
Dim FilePath
FilePath = AutoActPath & "Data1.tdms"
Call DataFileSaveSel( "<filename>"&FilePath&"</filename>","tdms",oMyData)
例えばDataのプロパティを確認すると、下記のスクリプトの赤枠部分の内容がData Portalに反映されている事が確認できます。ただし、
保管日付/時間のプロパティはこのデータを保存した際の物に書き換わります。
保存されたData1.tdmsはDIAdemだけではなくExcelで確認する事もできます。TDMSファイルをExcelで開く方法は
こちらで確認できます。
TDM Excel Add-in をインストール後、TDMSファイルをExcelにインポートすると下記の様にメタ情報が含まれているデータを確認できます。