全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3773
推到 Plurk!
推到 Facebook!

如何從webbrowser之innerhtml以存取物件方式來讀取資料

答題得分者是:Clarinet

裡面的 VITAMIN B12 S.C. TABLETS "CHINTENG"

裡面的500 MG

2若無資料如這行

又如何事先判斷有無資料呢?

這裡是我的webbrowser之innerhtml:

健保用藥品項查詢-清單


vbkiller
一般會員


發表:65
回覆:28
積分:18
註冊:2007-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-04-01 04:07:32 IP:218.164.xxx.xxx 訂閱
底下是我的webbrowser之innerhtml,

1.我如何以存取物件方式讀取
VITAMIN B12 S.C. TABLETS "CHINTENG"
500 MG






複方品項成分係提供第1筆主成分資料,若需查詢所有主成分及其他基本資料,
請於藥品代碼欄位進入下一頁連結行政院衛生署藥品許可證查詢
共有 1 筆 (友善列印另開視窗)
<FORM name=query1_list action=query1_list.asp method=post><FONT size= 0><INPUT type=hidden value=10 name=PageNum> <INPUT type=hidden value=A002140100 name=Q1_ID> <INPUT type=hidden name=Name> <INPUT type=hidden name=element_name> <INPUT type=hidden name=stand_num> <INPUT type=hidden name=drug_form> <INPUT type=hidden name=sales> <INPUT type=hidden name=mixture> <INPUT type=hidden name=start_YY> <INPUT type=hidden name=start_MM> <INPUT type=hidden name=is_update> <INPUT type=hidden value=迄今 name=type>
回查詢頁 | 請選擇頁次:<SELECT name=Page> </SELECT></FONT>
</FORM></TD>





























異動

藥品代碼

藥品名稱

成份

成份
含量

規格量

單複方

價格

起迄

藥商

劑型

備註

VITAMIN B12 S.C. TABLETS "CHINTENG" HYDROXOCOBALAMIN
500 MG


單方

1.2

086.04.01
|
迄今
井田製藥工業股份有限 糖衣錠





編輯記錄
dllee 重新編輯於 2007-04-21 19:10:45, 註解 修改文章分類由 無 -> 問題, 提問時, 請記得選擇 [問題] 分類, 才能把分數給辛苦答題的會員, 謝謝您的配合‧‧
lackey
一般會員


發表:2
回覆:6
積分:1
註冊:2007-04-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-09 12:00:20 IP:61.144.xxx.xxx 訂閱
 用POS搜索字串,来查找。更高效一点用正则表达式来获取。
------
勤建商贸
vbkiller
一般會員


發表:65
回覆:28
積分:18
註冊:2007-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-04-10 09:45:19 IP:220.131.xxx.xxx 訂閱
lackey你好:
何謂正則表達式?

lackey
一般會員


發表:2
回覆:6
積分:1
註冊:2007-04-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-10 10:38:56 IP:219.136.xxx.xxx 訂閱
请在百度里以 "delphi  正则表达式" 关键字来搜索,即可得到答案,祝您好运!

简单地说,正则表达式是一种匹配机制,或者说是一种对于字串处理的功能强大的脚本语言。

它可以帮助您高效地解决目前的问题。
------
勤建商贸
Clarinet
高階會員


發表:9
回覆:97
積分:126
註冊:2002-05-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-04-14 10:13:10 IP:220.228.xxx.xxx 訂閱
之前不是叫你使用WebBrowser的各項Interface來取出它的資料值,所以,你要先取得其各個Interface。
Table的,有 IHTMLTable, IHTMLElementCollection, IHTMLTableRow.....等等之類的,去查MSDN,這些界面的用法。
您就會使用了,看你要控制、設定、取值……等等都可。

------
GPS(全球衛星定位系統)
http://www.allgps.com
mytion
一般會員


發表:0
回覆:4
積分:0
註冊:2011-01-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2011-08-07 17:08:53 IP:222.125.xxx.xxx 訂閱
IHTMLDocument2和那個IHTMLElement,if條件判斷加上for循環

[code delphi]
var
hDoc: IHTMLDocument2;
FDIV: IHTMLElement;
Doc, OVElements, ovLinks, ovAny: OleVariant;
begin
if (LoginWeb.Busy) or (LoginWeb.Document = nil) then Exit;
ovLinks := LoginWeb.OleObject.Document.all.tags('a');
if ovLinks.Length > 0 then
begin
for i := 0 to ovLinks.Length - 1 do
begin
if pos('void(0);', ovLinks.Item(i).href) > 0 then
begin
ovLinks.Item(i).Click;
break;
end;
end;
end;
end;
[/code]



[code delphi]
ovAny:=LoginWeb.Document;
for i:=0 to ovAny.all.length-1 do
begin
if ovAny.all.item(i).tagname = 'SELECT' then
begin
if uppercase(ovAny.all.item(i).name) = 'FITTYPE' then
begin
ovAny.all.item(i).value := IntToStr(ComboBox1.ItemIndex 1);
end;
end;
end;
[/code]

系統時間:2017-10-21 5:47:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!