版本2
。支持庫iconv
支持圖書館互聯網
支持庫規範
。支持庫iext
。支持庫eAPI
。裝配窗口裝配_啟動窗口
。程序集變量的當前版本,文本類型。
。子程序_ _開始窗口_已創建
當前版本= "1.0 "
檢查更新()
。子程序檢查更新
。局部變量返回文本,文本類型。
局部變量的最新版本,文本類型
。局部變量更新的描述,文本類型。
。局部變量窗口的標題,文本類型
。局部變量分段文本,文本類型," 0 "
。局部變量i1,整數類型。
Return text = to text(編碼轉換(HTTP reading file("/s/blog _ 1522415ce 0102 Wei 7 . html)),# encoding _UTF_8,# encoding _GB18030,)'這個。
返回文本=取中間內容(返回文本,“///Start”,“///End”)
調試輸出(返回文本)
最新版本=中間內容(返回文本,"最新版本= ","
調試輸出(最新版本)
。判斷開始(最新版本= " ")
信息框(“更新無效請聯系作者”,0,“”)
。默認
。如果為真(到數值(最新版本) <到數值(當前版本))
信息框(“當前版本是最新的”,0,,)
Return()
如果真的結束了。
。如果為真(到數值(最新版本) >到數值(當前版本))
如果為真(信息框("當前版本:"+當前版本+#換行符+"最新版本:"+最新版本+#換行符+"更新內容:"+#換行符+透明標簽1。標題,#按鈕,“要下載最新版本嗎?”)= #是按鈕)
打開指定的網址(" www.360.com ")'這是下載地址。如果不想打開下載,添加壹個超文本瀏覽框,使超文本瀏覽框的地址等於下載地址。
例如:超文本框1。Address = "www.360.com "
銷毀()
如果真的結束了。
如果真的結束了。
審判結束
子例程接受中間內容、文本類型,並且是開放的。
參數完整內容,文本類型
參數左側的文本,文本類型
參數右側的文本,文本類型
局部變量的臨時位置,整數類型
整型局部變量的總長度
。局部變量臨時文本,文本類型
總長度=文本長度(全部內容)
臨時位置=查找文本(完整內容,左側文本,false)+獲取文本長度(左側文本)
臨時文本=取文本的中間部分(完整內容、臨時位置、總長度)
總長度=文本長度(臨時文本)
臨時位置=查找文本(臨時文本,右文本,假)-1。
臨時文本=取文本中間(臨時文本,1,臨時位置)
返回(臨時文本)