易語言調(diào)用百度的真相問答制作真相問答機的代碼

更新時間：2018年12月03日 11:39:44 作者：易語言源碼教程

今天小編就為大家分享一篇關(guān)于易語言調(diào)用百度的真相問答制作真相問答機的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

全局變量表

.版本 2
.全局變量 源文件, 文本型
.全局變量 答案, 文本型

常量數(shù)據(jù)表

.版本 2
.常量 常量1, "<文本長度: 9>", , -middle">
.常量 常量2, "<文本長度: 7>", , </span>
.常量 常量3, "<文本長度: 7>", , proof">
.常量 常量4, "<文本長度: 7>", , </div>

驗證

.版本 2
.支持庫 HtmlView
.支持庫 spec
.程序集 窗口程序集_窗口1
.程序集變量 論證, 文本型
.子程序 _窗口1_創(chuàng)建完畢
標題 ＝ 答案
論證 ＝ “<div><h2><strong>” ＋ 答案 ＋ “<br><br>論證：</p></strong></h2>” ＋ 文本_取出中間文本 (源文件, “論證</p>”, “參考資料”)
寫到文件 (取運行目錄 () ＋ “\lz.html”, 到字節(jié)集 (論證))
超文本瀏覽框1.地址 ＝ 取運行目錄 () ＋ “\lz.html”
.子程序 文本_取出中間文本, 文本型, 公開, 比如：欲取全文本為“12345”,現(xiàn)在要取出“3”，<3>的前面為“2”，<3>的后面為“4”。
.參數(shù) 欲取全文本, 文本型, , 比如：欲取全文本為 12345
.參數(shù) 前面文本, 文本型, , 3的前面為“2”，引號直接用 #引號，如："<font color=#引號red#引號>"
.參數(shù) 后面文本, 文本型, , 3的后面為“4”，引號直接用 #引號，如："<font color=#引號red#引號>"
.參數(shù) 起始搜尋位置, 整數(shù)型, 可空, 可空。1為首位置，2為第2個位置，如此類推，如果被省略，則“尋找字節(jié)集”命令默認從首部開始，“倒找字節(jié)集”命令默認從尾部開始。
.參數(shù) 是否區(qū)分大小寫, 邏輯型, 可空, 可空。初始值為“假”。假 = 不區(qū)分  真 = 區(qū)分大小寫。
.局部變量 局_位置, 整數(shù)型
.局部變量 局_位置1, 整數(shù)型
.局部變量 局_前面文本, 文本型
.局部變量 局_后面文本, 文本型
局_前面文本 ＝ 子文本替換 (前面文本, “#引號”, #引號, , , 真)
局_后面文本 ＝ 子文本替換 (后面文本, “#引號”, #引號, , , 真)
是否區(qū)分大小寫 ＝ 取反 (是否區(qū)分大小寫)
局_位置 ＝ 尋找文本 (欲取全文本, 局_前面文本, 起始搜尋位置, 是否區(qū)分大小寫)
.如果真 (局_位置 ≠ -1)
  局_位置 ＝ 局_位置 ＋ 取文本長度 (局_前面文本)
.如果真結(jié)束
局_位置1 ＝ 尋找文本 (欲取全文本, 局_后面文本, 局_位置, 是否區(qū)分大小寫)
.如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
  返回 (“”)
.如果真結(jié)束
返回 (取文本中間 (欲取全文本, 局_位置, 局_位置1 － 局_位置))
.子程序 _窗口1_首次激活
.如果真 (答案 ＝ “你答錯了！這是真的！”)
  圖形按鈕1.正常圖片 ＝ #圖片1
.如果真結(jié)束
.如果真 (答案 ＝ “你答錯了！這是假的！”)
  圖形按鈕1.正常圖片 ＝ #圖片2
.如果真結(jié)束
.如果真 (答案 ＝ “這個問題還有待考證?！?
  圖形按鈕1.正常圖片 ＝ #圖片3
.如果真結(jié)束
圖形按鈕1.可視 ＝ 真
延遲 (3000)
圖形按鈕1.可視 ＝ 假

百度真相問答機

.版本 2
.支持庫 EThread
.支持庫 internet
.支持庫 HtmlView
.程序集 窗口程序集_啟動窗口
.程序集變量 正確
.程序集變量 錯誤
.子程序 _問題按鈕_被單擊
啟動線程 (&子程序1, , )
.子程序 __啟動窗口_創(chuàng)建完畢
_問題按鈕_被單擊 ()
.子程序 子程序1
真按鈕.禁止 ＝ 真
假按鈕.禁止 ＝ 真
置隨機數(shù)種子 ()
編輯框2.內(nèi)容 ＝ “http://zhidao.baidu.com/liuyan/detail?id=” ＋ 到文本 (取隨機數(shù) (3100, 5900))
編輯框1.內(nèi)容 ＝ 到文本 (HTTP讀文件 (編輯框2.內(nèi)容))
源文件 ＝ 編輯框1.內(nèi)容
編輯框3.內(nèi)容 ＝ 文本_取出中間文本 (編輯框1.內(nèi)容, “status: '”, “'”)
.如果真 (文本_取出中間文本 (源文件, “論證</p>”, “參考資料”) ＝ “”)
  _問題按鈕_被單擊 ()
  返回 ()
.如果真結(jié)束
.如果真 (編輯框3.內(nèi)容 ＝ “”)
  _問題按鈕_被單擊 ()
  返回 ()
.如果真結(jié)束
寫到文件 (取運行目錄 () ＋ “\wt.html”, 到字節(jié)集 (文本_取出中間文本 (編輯框1.內(nèi)容, #常量1, #常量2) ＋ “<br> <br>” ＋ 文本_取出中間文本 (編輯框1.內(nèi)容, #常量3, #常量4)))
超文本瀏覽框1.地址 ＝ 取運行目錄 () ＋ “\wt.html”
_啟動窗口.真按鈕.禁止 ＝ 假
_啟動窗口.假按鈕.禁止 ＝ 假
標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤)
.子程序 _真按鈕_被單擊
.如果真 (編輯框3.內(nèi)容 ＝ “1”)
  正確 ＝ 正確 ＋ 1
  _問題按鈕_被單擊 ()
.如果真結(jié)束
.如果真 (編輯框3.內(nèi)容 ＝ “2”)
  錯誤 ＝ 錯誤 ＋ 1
  答案 ＝ “你答錯了！這是假的！”
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結(jié)束
.如果真 (編輯框3.內(nèi)容 ＝ “3”)
  答案 ＝ “這個問題還有待考證。”
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結(jié)束
標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤)
.子程序 _假按鈕_被單擊
.如果真 (編輯框3.內(nèi)容 ＝ “1”)
  答案 ＝ “你答錯了！這是真的！”
  錯誤 ＝ 錯誤 ＋ 1
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結(jié)束
.如果真 (編輯框3.內(nèi)容 ＝ “2”)
  正確 ＝ 正確 ＋ 1
  _問題按鈕_被單擊 ()
.如果真結(jié)束
.如果真 (編輯框3.內(nèi)容 ＝ “3”)
  答案 ＝ “這個問題還有待考證?！?
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結(jié)束
標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤)

運行結(jié)果：