200分一个很菜的问题： 如何将一个文本文件的内容在WebBrowser1按。。。(0分)

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-11

• #1

如何将一个文本文件的内容在WebBrowser1按大富翁显示问题、回答的格式
一行黄背景，一行白背景的显示内容
文本文件的内容：a.txt
aaaa1,bbbb1
aaaa2,bbbb2
aaaa3,bbbb3
aaaa4,bbbb4
aaaa5,bbbb5
....
在第一行显示aaaa1黄背景
在第二行显示bbbb1白背景
在第三行显示aaaa2黄背景
在第四行显示bbbb3白背景
问题回答分立马送上

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #2

你的a.txt可以一行一行的加进来啊！

不就可以加上<font color=...>了吗？

 

Y

yansh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #3

一个循环，对奇数一个颜色，对偶数一个颜色

 

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #4

前辈们，我对这个web刚刚研究能不能给个实际的例子让我学学

 

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #5

嫌分少吗？

 

H

hryyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #6

i:=0;
while not f.eof do
begin
a:=aaaa1; //从文件中读出一行
if i mod 2 = 0 then
s:='<p><font color="#FF0000">'+a+'</font></p>' //HTML语法可用fontpage生成
else
s:='<p><font color="#0000FF">'+b+'</font></p>'
i:=i+1;
end

 

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-13

• #7

有没有人，从头开始详细的说明一下，如何操作

 

W

wx_zhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-19

• #8

faint

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-19

• #9

不会吧,从头操作?开电源,开显示器,开机,选启动那个系统,如果你有双系统.
正经说,
先开delphi,放一个webbrowser控件,没有的话在activeX页导入.
var
myfile:txtfile;
s,temp:string;
i:integer;
begin
assignfile(myfile,'your file dir and file name');
i:=0;
while not eof(myfile) then
begin
temp:=readln(myfile);
if i mod 2 = 0 then
s:='<p><font color="#FF0000">'+temp+'</font></p>' //HTML语法可用fontpage生成
else
s:='<p><font color="#0000FF">'+temp+'</font></p>'
i:=i+1;
end;
end;

 

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-20

• #10

产生一个串s:='<p><font color="#0000FF">'+变量串+'</font></p>'这个明白
还是不明白如何在webbrowser上显示?

 

T

Toylin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-24

• #11

look:

procedure TForm1.Button1Click(Sender: TObject);
var
V: OleVariant;
begin
V := WebBrowser1.Document;
V.Script.Document.Body.InnerHTML := '<u><b><i>Hello World!</i></b></u>';
end;

You know now!

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #12

接受答案了.