今天小編就爲大家分享一篇關於易語言調用百度的真相問答製作真相問答機的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
全局變量表
.版本 2 .全局變量 源文件, 文本型 .全局變量 答案, 文本型
常量數據表
.版本 2 .常量 常量1, "<文本長度: 9>", , -middle"> .常量 常量2, "<文本長度: 7>", , </span> .常量 常量3, "<文本長度: 7>", , proof"> .常量 常量4, "<文本長度: 7>", , </div>
驗證
.版本 2 .支持庫 HtmlView .支持庫 spec .程序集 窗口程序集_窗口1 .程序集變量 論證, 文本型 .子程序 _窗口1_創建完畢 標題 ＝ 答案 論證 ＝ “<div><h2><strong>” ＋ 答案 ＋ “<br><br>論證：</p></strong></h2>” ＋ 文本_取出中間文本 (源文件, “論證</p>”, “參考資料”) 寫到文件 (取運行目錄 () ＋ “\lz.html”, 到字節集 (論證)) 超文本瀏覽框1.地址 ＝ 取運行目錄 () ＋ “\lz.html” .子程序 文本_取出中間文本, 文本型, 公開, 比如：欲取全文本爲“12345”,現在要取出“3”，<3>的前面爲“2”，<3>的後面爲“4”。 .參數 欲取全文本, 文本型, , 比如：欲取全文本爲 12345 .參數 前面文本, 文本型, , 3的前面爲“2”，引號直接用 #引號，如："<font color=#引號red#引號>" .參數 後面文本, 文本型, , 3的後面爲“4”，引號直接用 #引號，如："<font color=#引號red#引號>" .參數 起始搜尋位置, 整數型, 可空, 可空。1爲首位置，2爲第2個位置，如此類推，如果被省略，則“尋找字節集”命令默認從首部開始，“倒找字節集”命令默認從尾部開始。 .參數 是否區分大小寫, 邏輯型, 可空, 可空。初始值爲“假”。假 = 不區分 真 = 區分大小寫。 .局部變量 局_位置, 整數型 .局部變量 局_位置1, 整數型 .局部變量 局_前面文本, 文本型 .局部變量 局_後面文本, 文本型 局_前面文本 ＝ 子文本替換 (前面文本, “#引號”, #引號, , , 真) 局_後面文本 ＝ 子文本替換 (後面文本, “#引號”, #引號, , , 真) 是否區分大小寫 ＝ 取反 (是否區分大小寫) 局_位置 ＝ 尋找文本 (欲取全文本, 局_前面文本, 起始搜尋位置, 是否區分大小寫) .如果真 (局_位置 ≠ -1) 局_位置 ＝ 局_位置 ＋ 取文本長度 (局_前面文本) .如果真結束 局_位置1 ＝ 尋找文本 (欲取全文本, 局_後面文本, 局_位置, 是否區分大小寫) .如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1) 返回 (“”) .如果真結束 返回 (取文本中間 (欲取全文本, 局_位置, 局_位置1 － 局_位置)) .子程序 _窗口1_首次激活 .如果真 (答案 ＝ “你答錯了！這是真的！”) 圖形按鈕1.正常圖片 ＝ #圖片1 .如果真結束 .如果真 (答案 ＝ “你答錯了！這是假的！”) 圖形按鈕1.正常圖片 ＝ #圖片2 .如果真結束 .如果真 (答案 ＝ “這個問題還有待考證。”) 圖形按鈕1.正常圖片 ＝ #圖片3 .如果真結束 圖形按鈕1.可視 ＝ 真 延遲 (3000) 圖形按鈕1.可視 ＝ 假
百度真相問答機
.版本 2 .支持庫 EThread .支持庫 internet .支持庫 HtmlView .程序集 窗口程序集_啓動窗口 .程序集變量 正確 .程序集變量 錯誤 .子程序 _問題按鈕_被單擊 啓動線程 (&子程序1, , ) .子程序 __啓動窗口_創建完畢 _問題按鈕_被單擊 () .子程序 子程序1 真按鈕.禁止 ＝ 真 假按鈕.禁止 ＝ 真 置隨機數種子 () 編輯框2.內容 ＝ “http://zhidao.baidu.com/liuyan/detail?id=” ＋ 到文本 (取隨機數 (3100, 5900)) 編輯框1.內容 ＝ 到文本 (HTTP讀文件 (編輯框2.內容)) 源文件 ＝ 編輯框1.內容 編輯框3.內容 ＝ 文本_取出中間文本 (編輯框1.內容, “status: '”, “'”) .如果真 (文本_取出中間文本 (源文件, “論證</p>”, “參考資料”) ＝ “”) _問題按鈕_被單擊 () 返回 () .如果真結束 .如果真 (編輯框3.內容 ＝ “”) _問題按鈕_被單擊 () 返回 () .如果真結束 寫到文件 (取運行目錄 () ＋ “\wt.html”, 到字節集 (文本_取出中間文本 (編輯框1.內容, #常量1, #常量2) ＋ “<br> <br>” ＋ 文本_取出中間文本 (編輯框1.內容, #常量3, #常量4))) 超文本瀏覽框1.地址 ＝ 取運行目錄 () ＋ “\wt.html” _啓動窗口.真按鈕.禁止 ＝ 假 _啓動窗口.假按鈕.禁止 ＝ 假 標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤) .子程序 _真按鈕_被單擊 .如果真 (編輯框3.內容 ＝ “1”) 正確 ＝ 正確 ＋ 1 _問題按鈕_被單擊 () .如果真結束 .如果真 (編輯框3.內容 ＝ “2”) 錯誤 ＝ 錯誤 ＋ 1 答案 ＝ “你答錯了！這是假的！” 載入 (窗口1, , 真) _問題按鈕_被單擊 () .如果真結束 .如果真 (編輯框3.內容 ＝ “3”) 答案 ＝ “這個問題還有待考證。” 載入 (窗口1, , 真) _問題按鈕_被單擊 () .如果真結束 標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤) .子程序 _假按鈕_被單擊 .如果真 (編輯框3.內容 ＝ “1”) 答案 ＝ “你答錯了！這是真的！” 錯誤 ＝ 錯誤 ＋ 1 載入 (窗口1, , 真) _問題按鈕_被單擊 () .如果真結束 .如果真 (編輯框3.內容 ＝ “2”) 正確 ＝ 正確 ＋ 1 _問題按鈕_被單擊 () .如果真結束 .如果真 (編輯框3.內容 ＝ “3”) 答案 ＝ “這個問題還有待考證。” 載入 (窗口1, , 真) _問題按鈕_被單擊 () .如果真結束 標題 ＝ “知道真相問答機 ” ＋ “正確:” ＋ 到文本 (正確) ＋ “ 錯誤:” ＋ 到文本 (錯誤)
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接