高分求助?取html表格的问题?(0分)

duanyu · 2002-02-19

我的一个取html表格的问题?如一个这样的数据:
</table>
名称: AAA有限公司北京办事处
 电话: 
(10) 42334234
 传真: 
35345453
 
地址: 
北京市xxxx 
邮政编码: 100000
 
产品: QQQQQ
 
请问我要取出表格中的文字应该怎么做?

远帆 · 2002-02-19

这是我以前写的一段代码，用于提取网页中的文字。
你稍改一下就可以实现你的要求。
var
fi, fo: tfilestream;
bock, size: integer;
buff, BP: ^byte;
outbuf, outbp: ^byte;
outsize: integer;
n: integer;
begin
fi := tfilestream.Create('1.htm', fmOpenRead or fmShareDenyWrite);
fo := tfilestream.Create('1.txt', fmOpenWrite or fmShareDenyWrite);

size := fi.Size;
bock := 0;
outsize := 0;

getmem(buff, size);
getmem(outbuf, size);
fi.Read(buff^, Size);
BP := Buff;
outbp := outbuf;

for n := 1 to size do
begin
case bp^ of
60: inc(bock); //char <
62: dec(bock); //char >
123: inc(bock); //char {
125: dec(bock); //char }
else
if bock = 0 then
begin
outbp^ := bp^;
inc(outbp);
inc(outsize);
end;
end;

inc(bp);
end;

fo.Write(outbuf^, outsize);

freemem(buff);
freemem(outbuf);

fo.Free;
fi.Free;

f950436 · 2002-02-19

有道理

duanyu · 2002-02-19

谢谢上面,汉字怎么判断?
小弟水平有限,不知怎么改?

远帆 · 2002-02-19

根本就无需判断汉字。
上面的程序很简单：
一个html文件，由<>{}包括起来的一般都是控制信息。
所以略过这些信息就可以把文本读出来了。
但是沿着这条路走下去实在是不怎么简单<pre>标志、&nbsp，
所以上面的程序只是很初步的达到了要求。
以你上面的html文件是完全可以正确提取文本的。但是不太清楚你的要求。

duanyu · 2002-02-19

多谢远帆兄,假定名称/电话/传真...等(类型)在程序中只出现一次,
我现在要取出表格中的数据与数据库一一对对应,
即htm--->DB

远帆 · 2002-02-19

那就要判断<>内的内容了。
你自已试试。

duanyu · 2002-02-19

谢谢远帆兄,您能不能帮助写一下,我写的不得要领,
在下感激不尽

远帆 · 2002-02-19

你给多少分呀？

duanyu · 2002-02-20

远帆兄,现在分已用完,下次一定被上,多谢您了

远帆 · 2002-02-20

你多弄几条记录我看看，数据取出后放在哪？

duanyu · 2002-02-20

远帆兄,数据取出放到我们的数据库中

远帆 · 2002-02-20

你不说清楚一点我不知道如何读取以及将数据传递给你们啊？

梦 · 2002-02-20

正则表达式
java和c#有
delphi不知道有没有

duanyu · 2002-02-20

您的意思是,不太明白,我的Email:sylix@263.net

远帆 · 2002-02-20

把你们的例子html发到我的信箱：yuan-fan@21cn.com
还有你们希望的输出方式？

duanyu · 2002-02-20

多谢远帆兄,好的,高人呀

远帆 · 2002-02-20

别捧我，说不定我做不出的呢？

GuestUser · 2002-04-01

可以给前后定一个标志串,顺序检索下来就可以,检索完一个串以后就把上面的部分去掉,
我也正在做这种东西,单独做一个站点的还可以,通用的还没有很好的解决方法.

高分求助?取html表格的问题?(0分)

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

f950436

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

梦

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

duanyu

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

GuestUser

Unregistered / Unconfirmed

Similar threads