• 添加示例代碼到“Write_data”腳本中。
  
  注意:
  關(guān)于不同 VBScript 命令的更多信息，請(qǐng)參見(jiàn) WinCC flexible 幫助。

源代碼的說(shuō)明：
在 <行 10> 中聲明的變量只在腳本內(nèi)部有效。在 <行 12> 中的變量“bExtension”是一個(gè)全局變量，可以在整個(gè) WinCC flexible 項(xiàng)目中使用。使用該變量，可以通過(guò)符號(hào) IO 域選擇包含文件名稱和擴(kuò)展名的路徑。

        如果腳本發(fā)生運(yùn)行時(shí)錯(cuò)誤，那么“On Error Resume Next”語(yǔ)句是必需的。只要發(fā)生這種錯(cuò)誤，該錯(cuò)誤程序的下一條語(yǔ)句能自動(dòng)執(zhí)行。

        在 <行 24> 中的語(yǔ)句將訪問(wèn) Windows 文件系統(tǒng)的對(duì)象傳送到對(duì)象變量“f”。如下源代碼包含運(yùn)行時(shí)錯(cuò)誤處理程序。如果運(yùn)行時(shí)發(fā)生錯(cuò)誤，將會(huì)在消息窗口中輸出錯(cuò)誤消息并終止腳本的運(yùn)行。

注意：
        如果使用“FileCtl.File”，將不能訪問(wèn) Windows CE 文件系統(tǒng)。如果在使用其它操作系統(tǒng)的面板上運(yùn)行該腳本，將會(huì)出現(xiàn)運(yùn)行時(shí)錯(cuò)誤。

圖 06

• file.Open Path name, Mode, [access], [lock], [reclength]

如果文件或路徑名稱不存在，則如上提到的錯(cuò)誤處理程序?qū)?zhí)行。

的字符串將被“f”對(duì)象的“LinePrint”方法寫入已打開的文件中。在此，變量值也被傳送和保存。

注意：
如果欲為文本字符串保存時(shí)間戳，可以使用 Now 函數(shù)。

示例：
f.LinePrint( Now & "; material; " & szMaterial & ";")

然后使用“Close”方法關(guān)閉該文件。關(guān)鍵字“Nothing” 用于分離對(duì)象變量，該變量由“Set”命令分配給該對(duì)象。

*一條語(yǔ)句傳輸用戶自定義的系統(tǒng)消息到 HMI 消息系統(tǒng)。

圖 07

• 將 WinCC flexible 工程傳輸?shù)讲僮髅姘宀?dòng)運(yùn)行。
  
  注意：
  為了調(diào)試腳本，啟動(dòng)帶腳本調(diào)試器的 WinCC flexible 運(yùn)行系統(tǒng)。
   
• 預(yù)設(shè)不同的數(shù)值并輸入期望的材料名稱。
• 然后單擊“Save data”按鈕。
• 在符號(hào) IO 域選擇“.csv”并再次點(diǎn)擊按鈕。
• 終止操作面板的運(yùn)行。

圖 08

• 打開擴(kuò)展名為“.txt”的文本文件。
• 然后關(guān)閉文件。

圖 09

• 可以使用 Microsoft Excel 打開擴(kuò)展名為“.csv”的文件。
• 關(guān)閉 Excel 程序。

圖 10

• 通過(guò)單擊“項(xiàng)目 > 新建...”，并選擇“Multi Panels > MP 370 12" Touch”操作面板，創(chuàng)建新項(xiàng)目。

• 通過(guò)“項(xiàng)目 > Operator Panel_1 > 通訊 > 變量”打開變量編輯器。
• 添加如下名稱的3個(gè)內(nèi)部變量：
   

  序號(hào)	變量	數(shù)據(jù)類型
  1	szString_1	String
  2	nValue_1	Int
  3	nValue_2	Int

  表 03 - 變量
  
  注意：
  如果不使用先前的項(xiàng)目，需要添加一個(gè)“Bool”變量“bExtension”。

圖 11

• 添加一個(gè)矩形 - 見(jiàn)圖 12。
• 如果沒(méi)有，放置一個(gè)符號(hào) IO 域和三個(gè)普通 IO 域。
• 擴(kuò)大 WinCC flexible 畫面，添加 1 個(gè)按鈕和 4 個(gè)文本域。
• 如圖 12  所示布局所有對(duì)象并輸入如下文字：
  “Value_1:”
  “Value_2:”
  “String_1:”
  “Text file:”
  “Settings” (如果沒(méi)有)
  “Extension:” (如果沒(méi)有)
• 若尚未創(chuàng)建文本列表，則創(chuàng)建一個(gè)文本列表，命名為“Extension”，并含有如下條目：
  0 =>  “.txt”
  1 =>  “.csv”

圖 12

• 創(chuàng)建一個(gè)腳本，名稱為“Read_data”。為此在項(xiàng)目樹中單擊“腳本 > 添加腳本”。
• 鏈接如下變量和新創(chuàng)建的腳本到相關(guān)的對(duì)象上：
   

  變量/腳本	對(duì)象	對(duì)象用于...
  nValue_1	IO field	Value_1
  nValue_2	IO field	Value_2
  szString_1	IO field	String_1
  bExtension*)	Symbolic IO field	Extension
  Read_data	Button	Read data

  表 04 - 鏈接到不同對(duì)象
  ^{*)這些鏈接僅當(dāng)沒(méi)有為存儲(chǔ)文件做過(guò)配置時(shí)是必需的。}
   
• 將文本列表“Extension”連接到符號(hào) IO 域，若尚未作此操作(也可參見(jiàn)圖 05)。

圖 13

• 添加示例代碼到“Read_data”腳本中。
  
  注意：
  關(guān)于不同 VBScript 命令的更多信息，請(qǐng)參見(jiàn) WinCC flexible 幫助。

源代碼的說(shuō)明：
腳本中聲明的所有變量只在腳本內(nèi)部有效。使用符號(hào) IO 域，通過(guò)在腳本 <行 17> 中的變量“bExtension”，可以選擇包含文件名稱和擴(kuò)展名的路徑。

       如果腳本發(fā)生運(yùn)行時(shí)錯(cuò)誤，那么“On Error Resume Next”語(yǔ)句是必需的。只要發(fā)生這種錯(cuò)誤，只要發(fā)生這種錯(cuò)誤，該錯(cuò)誤程序的下一條語(yǔ)句能自動(dòng)執(zhí)行。

       在 <行 24> 中的語(yǔ)句將訪問(wèn) Windows 文件系統(tǒng)的對(duì)象傳送到對(duì)象變量“f”。如下源代碼包含運(yùn)行時(shí)錯(cuò)誤處理程序。如果運(yùn)行時(shí)發(fā)生錯(cuò)誤，將會(huì)在消息窗口中輸出錯(cuò)誤消息并終止腳本的運(yùn)行。

注意：
        如果使用“FileCtl.File”，將不能訪問(wèn) Windows CE 文件系統(tǒng)。如果在使用其它操作系統(tǒng)的面板上運(yùn)行該腳本，將會(huì)出現(xiàn)運(yùn)行時(shí)錯(cuò)誤。

圖 14

• file.Open Path name, Mode, [access], [lock], [reclength]

如果文件無(wú)法打開，則如上提到的錯(cuò)誤處理程序?qū)?zhí)行，從而安全地終止腳本運(yùn)行。

使用“Do-While-Loop”語(yǔ)句，通過(guò)對(duì)象變量“f”的“LineInputString”方法，當(dāng)循環(huán)執(zhí)行時(shí)，可以一行一行地讀出文本文件中的內(nèi)容。一旦到達(dá)文本文件末尾循環(huán)就被終止。

函數(shù)“Split”以分隔符來(lái)分離從文件中讀取的文本行()，該分隔符作為第二個(gè)可選參數(shù)。分離后的內(nèi)容被傳送到一個(gè)一維數(shù)組。本例中沒(méi)有使用*兩個(gè)參數(shù)。

• Split(Expression[,delimiter[,Number[,compare]]])

因?yàn)楫?dāng)保存時(shí)，可能包含空字符串(例如，參見(jiàn)圖 09)，這些字符串通過(guò)“Replace”函數(shù)來(lái)刪除。因此，前三個(gè)參數(shù)必須。*個(gè)參數(shù)包含字符串 () ，對(duì)該字符串執(zhí)行搜索(SearchCS) ，搜索到的字符被替換為由參數(shù)“ReplaceWith”的字符。

• Replace(Expression, find, replace with [,Start[,Number[,Compare]]])

圖 15

示例 - HiField (a, b)的結(jié)構(gòu)和內(nèi)容：

數(shù)組		b
		0	1	2
a	0	"material"	"Steel"	""
	1	"pressure"	"12"	"mbar"
	2	"temperature"	"56"	"°C"

表 05 - 二維數(shù)組內(nèi)容實(shí)例

打開的文件在 <行 62> 被關(guān)閉。關(guān)鍵字“Nothing” 用于分離對(duì)象變量，該變量由“Set”命令分配給該對(duì)象。

*一條語(yǔ)句傳輸用戶自定義的系統(tǒng)消息到 HMI 消息系統(tǒng)。

圖 16

• 將 WinCC flexible 項(xiàng)目傳送到操作面板并啟動(dòng)運(yùn)行。
  
  注意：
  為了調(diào)試腳本，啟動(dòng)帶腳本調(diào)試器的 WinCC flexible 運(yùn)行系統(tǒng)。
   
• 然后點(diǎn)擊“Read data”按鈕。
• 在符號(hào) IO 域中選擇“.csv”并再次點(diǎn)擊按鈕。
• 中止操作面板的運(yùn)行。

圖 17