西門子1200寬溫型擴展模塊6AG12233BD305XB0

6AG1223-3BD30-5XB0 SIPLUS S7-1200 SB1223 輸入/輸出 -40...+60°C，-25°C 條件下開機 帶防腐蝕涂層 根據 6ES7223-3BD30-0XB0 . 數字輸入/輸出 2數字輸入/2數字輸出，24V DC 200kHz

SIEMENS西門子

*，質量保證，保修一年

專業銷售及維修西門子各類工控自動化配件;

：S7-200CN、S7-200SMART、S7-300、S7-400、 S7-1200、S7-1500、ET200、LOGO邏西門子可編程控制器輯控制模塊

西門子HMI人機界面：觸摸屏

西門子變頻器：MM420、MM430、MM440、G110、G120、6SE70

西門子工業以太網：通訊網卡、通訊電纜、通訊接頭、總線連接器 工控機、交換機、自動化軟件等系型號齊全，快速報價，買我們的產品無憂所值，我們的產品都承諾質保一年，讓您買的省心舒心，用的放心！

 現在網絡越來越發達了，對組態軟件要求也越來越多，我參考了網上的一些例子，但是獲取的數據都不是很多，對于搞暖通樓控的工程師來說溫度、濕度、和大氣壓力都很重要，若你要獲得更多的氣象數據網上提供的API是要收費的。我通過分析網站的數據，得到了更詳細的數據，免費。這里我自己寫了一個抓取天氣信息的VBS腳本，有興趣可以適當的改改弄到組態軟件當中去，這個是網頁抓取JSON格式的，這個可以作為參考如何從網頁當中抓取數據。 不同的組態軟件有不同的辦法，這個VSB腳本提供給大家參考。 我這個抓取的原始數據信息相當較全面，由于VBS不是JAVA不能直接解析JSON,我這里用了正則表達式提取了幾個數據作為彈窗。不同的組態軟件都可以參考這個進行獲取數據達到組態軟件中。。。。本例子獲得的氣象數據為成都市雙流區的。。你懂得我家在這里 改動參數就可以獲得別的地方的氣象數據。這個是中央氣象臺的后臺實時數據。。

   題外話：近也比較忙，其實挺想網上看些資料寫個關于不同經緯度不同日期時間的日照，太陽高度等西門子SCL的程序。。PLC就可以計算了對做樓控的兄弟就很有用了。。有興趣的支持我一下。

Dim html,http,strHtml,post_list,window,kuwo,tet,fso,f,t

 Dim regEx, Match, Matches

 DIM StrTEST

'Set html = CreateObject("htmlfile") 

Set http = CreateObject("Msxml2.ServerXMLHTTP") 

'html.designMode = "on" ' 開啟編輯模式 

http.send 

strHtml = trim(http.responseText)

'msgbox strHtml

'html.write strHtml ' 寫入數據 

'Set post_list = html.getElementById("post_list") 

'For Each el In post_list.children     WScript.Echo el.getElementsByTagName("a")(0).innerText 

'Next

'#################################################

'strHtml = http.responseText ' 得到數據 

'Set window = html.parentWindow 

'window.execScript strHtml, "JScript"     '定義一個JS變量，將JSON數據引入

'Set kuwo = window.returnCitySN ' 獲取解析后的對象

   '  MsgBox"溫度 " & window & " 攝氏度"

'Set kuwo = kuwo.json ' 獲取解析后的對象 

'WScript.Echo "溫度:", kuwo.temperature, " 濕度:", kuwo.humidity

'MsgBox window.Eval("json.temperature")

'

   ' MSGBOX sc.Eval("o.temperature")

 set fso=createobject("scripting.filesystemobject")

set f=fso.opentextfile("c:a.txt",2,true):f.write strHtml :f.close

set f=fso.opentextfile("c:a.txt",1)

strHtml = f.ReadAll

MsgBox strHtml

 ' 創建變量。

 StrTEST="temperature"

  Set regEx = New RegExp         ' 創建正則表達式。

  regEx.Pattern = StrTEST          ' 設置模式。

  regEx.IgnoreCase = True         ' 設置為不區分大小寫。

  regEx.Global = True         ' 設置全局適用。

  Set Matches = regEx.Execute(strHtml)   ' 執行搜索。

For Each Match in Matches      ' 對 Matches 集合進行迭代。

西門子1200寬溫型擴展模塊6AG12233BD305XB0